Скачать: CL | DM;

Будет ли такое работать в ТУРБО Паскале.   Найти похожие ветки 

← →
vidiv ©   (2004-08-01 15:33) [0]

в борланд паскале работает точно, а в Турбо будет ли?

program testdyn;
type TDynArr=array[0..0] of longint;
    PDynArr=^TDynArr;

var  DynArr: PDynArr;
    Summ: longint;
    Num:longint;
    I: integer;

begin
  randomize;

  getmem(DynArr, 100*sizeof(longint)); {100 numbers}

  Summ := 0;

  for I:=0 to 99 do
      begin
           Num := random(100);
           inc(Summ, Num);
           DynArr^[I] := Num;
      end;
  writeln("Summ (first): ", Summ);

  Summ := 0;

  for I:=0 to 99 do
      inc(Summ, DynArr^[I]);

  writeln("Summ (second): ", Summ);

end.

---

← →
DiamondShark ©   (2004-08-01 15:35) [1]

Будет. Если проверку индексов отключить.

---

← →
vidiv ©   (2004-08-01 15:37) [2]

Насколько я знаю проверка индексов работает только для статических индексов, например DynArr^[3]. Я почему то думал что Паскаль не может работать с динамическими массивами, кроме как если каждый элемент массива содержит ссылку на следующий и т.п.

---

← →
vidiv ©   (2004-08-01 15:40) [3]

Ой чтото чушь наговорил....

{$R-} этого достаточно?

---

← →
DrPass ©   (2004-08-01 15:45) [4]

Достаточно. Кстати, в чем, по-твоему, разница между TP и BP?

---

← →
DiamondShark ©   (2004-08-01 15:46) [5]

Достаточно.

---

← →
vidiv ©   (2004-08-01 15:52) [6]

> DrPass ©   (01.08.04 15:45) [4]

Во-первых буковкой. :) во-вторых борланд - более новый наверное.
А так не знаю, поэтому не спрашиваю.
Знаю что BP может генерировать exeшник для защищенного режима и винды, помимо досовских

---

← →
Anatoly Podgoretsky ©   (2004-08-01 15:54) [7]

А у тебя и есть статический массив с начальным и конечным индексом 0. Это работать будет при отключеной проверки диапазона, вместо это лучше объявить другой тип, такой как
type TDynArr=array[0..16379] of longint;

---

← →
vidiv ©   (2004-08-01 15:56) [8]

Но это я в примере указал конечные рамки. На самом деле в задаче может быть как 5 элементов, так и 25

---

← →
GuAV ©   (2004-08-14 20:47) [9]

> Знаю что BP может генерировать exeшник для защищенного режима
> и винды

, А ТР может генерить не на винт а в память.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.03 c