Двумерный массив boolean.

[Atilla]

Делал олимпиадную задачу на паскале, использовал free pascal. Там есть массив 3000*3000 of boolean. В free pascal'e все пучком. Тестировал на borland pascale, он говорит что структура слишком большая Берет только ~ 200*200. Не факт что при проверке у них будет free pascal? а отправлять надо исходники. Как пожарно решить проблему? Сдавать сегодня. Можно еще на дельфине отправить. Пожалуйста помогите.

[alexander.pronin]

В паскале я не силен, но на С/C++/C#/Java я бы упаковал булы в байты (сделал бы фантик) и даже не переписывал программу, которая уже есть.

[Atilla]

Вся проблема в том что у меня выбор из pascal/delphi. Кто на дельфине программировал -  может там можно подлиннее объявить?
Пользователь решил продолжить мысль 30 Сентября 2009, 11:48:02:Фууу. Прокатило на дельфи под форточку А можно как-нибудь его и для виновского компилятора под паскаль запустить?

[SergeyIT]

Может использовать динамический массив?

[Atilla]

Я просто не знаю что это... Хорошую ссылку не дадите?

[SergeyIT]

http://ru.wikipedia.org/wiki/%D0%94%D0%B8%D0%BD%D0%B0%D0%BC%D0%B8%D1%87%D0%B5%D1%81%D0%BA%D0%B8%D0%B9_%D0%BC%D0%B0%D1%81%D1%81%D0%B8%D0%B2
А вообще-то книжка про Object Pascal. Ну и олимпиадник!

[Atilla]

Я просто кроме паскаля почти ни на чем ни программировал. А там массивы надо заранее объявлять, и вроде нет динамических массивов... Если я не прав - исправьте.

[SergeyIT]

кроме паскаля почти ни на чем ни программировал

И на Паскале не программировал! Это же азы. В букварь!

[Atilla]

*Уже изучаю букварь*

Есть только один вопрос.

{$R-}
Type
  MyType=Word;
  MyArray=Array[1..1] of MyType;
  MyArrayPtr=^MyArray;
Var
  DynamicArray: MyArrayPtr;
  Count,
  I,Size: Word;
Begin
  Write('Число элементов массива: ');
  ReadLn(Count);

  Size:=Count*SizeOf(MyType);
  GetMem(DynamicArray,Size);
  For I:=1 to Count do DynamicArray^:=I;
  For I:=1 to Count do Write(DynamicArray^:4);

  FreeMem(DynamicArray,Size)
End.

Что хранится в переменной size, или точнее что выдает SizeOf(MyType). И что именно делает GetMem(DynamicArray,Size)? Только бить не сильно

[SergeyIT]

Это пример из DOSа, как я понимаю.
SizeOf(MyType) выдает размер типа MyType в байтах - так как здесь Word, то = 2.
GetMem(DynamicArray,Size) - резервирует в памяти область размером Size и присваивает ее адрес переменной DynamicArray. (для DOSa не более 64кбайт)
(А вообще-то, лучше почитать книжку - их в продаже по Паскалю хватает)

[Sova777]

Такое было в DOS'е в начале-середине 90-x (http://en.wikipedia.org/wiki/Far_pointer). Неужели сейчас такое бывает? Ну разве при программировании на PalmOS.

[Protopopulus]

http://forum.sources.ru/index.php?showtopic=51192 - 15 секунд гугления.

[kss]

Делал олимпиадную задачу на паскале, использовал free pascal. Там есть массив 3000*3000 of boolean. В free pascal'e все пучком. Тестировал на borland pascale, он говорит что структура слишком большая Берет только ~ 200*200.

Borland Pascal под реальный режим DOS'а был, там память адресуется в пределах сегмента в 64 кб (но самих сегментов много). Соответственно, никакая структура не может быть размером больше сегмента. Так что тебе бы не помогли бы и динамические массивы. Зато можно работать с массивом указателей на одномерный массив boolean, то есть:

Код: [Выделить]

type
     TArrayOfBoolean = array[1..3000] of boolean;
     PArrayOfBoolean = TArrayOfBoolean;

var
    A: array[1..3000] of PArrayOfBoolean;

Соответственно, обращение к элементу такого массива будет производиться следующим образом:

Код: [Выделить]

A[i]^[j] := True;

[Atilla]

Мне прям страшно стало. Так мало знаю. Кто может подсказать очень хорошую книгу по олимпиадному программированию?

[SergeyIT]

по олимпиадному программированию?

Для олимпиадого программирования, как я понимаю, язык не важен - важны алгоритмы.
А если изучать Паскаль, то
1. ищите книгу с описанием  Object Pascal.
2. можете сюда зайти http://www.delphikingdom.ru/ или на другие сайты по Паскалю