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

← →
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шник для защищенного режима и винды, помимо досовских

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

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

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

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

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