Автор Диас задал вопрос в разделе Другие языки и технологии
Помогите вызвать процедуру на Delphi 7 и получил лучший ответ
Ответ от Ўра[гуру]
var a:arInt;
begin
ShellSort(a);
end.
Ответ от ?Pandacrash[гуру]
Процедура ShellSort у вас с параметром Arr: arInt. Значит вызывая эту процедуру вы должны передать туда переменную типа arInt. Эта переменная есть ничто иное, как массив целых чисел. таким массивом является incr, но она объявлена с четко ограниченным диапазоном элементов: [0..23]. что бы ее передать вам надо либо ее сделать типа "arInt", а потом в программе уже сделать присваивание нужных элементов, не забывая что массив динамически объявленный, либо сам тип arInt указать с ограниченным диапазоном: type arInt = array [0..23] of integer; и тогда можно будет передать вашу переменную в процедуру - ShellSort(incr); Поскольку параметр в процедуре записан с 'var" ,то значит все изменения с этим параметром, происходящие в процедуре, отобразятся на самом массиве, который был передан.
Код должен выглядеть так:
type arInt = array [0..23] of integer;
var incr: arInt = (1, 4, 10, 23, 57, 145, 356, 911, 1968, 4711,
11969, 27901, 84801, 213331, 543749, 1355339, 3501671, 8810089, 21521774,
58548857, 157840433, 410151271, 1131376761, 2147483647);
...
ShellSort(incr);
...
end.
P.S.: я не разбирался в процедуре, но у меня лично, выдает ошибку при работе самой процедуры, если передать ваш массив.
Процедура ShellSort у вас с параметром Arr: arInt. Значит вызывая эту процедуру вы должны передать туда переменную типа arInt. Эта переменная есть ничто иное, как массив целых чисел. таким массивом является incr, но она объявлена с четко ограниченным диапазоном элементов: [0..23]. что бы ее передать вам надо либо ее сделать типа "arInt", а потом в программе уже сделать присваивание нужных элементов, не забывая что массив динамически объявленный, либо сам тип arInt указать с ограниченным диапазоном: type arInt = array [0..23] of integer; и тогда можно будет передать вашу переменную в процедуру - ShellSort(incr); Поскольку параметр в процедуре записан с 'var" ,то значит все изменения с этим параметром, происходящие в процедуре, отобразятся на самом массиве, который был передан.
Код должен выглядеть так:
type arInt = array [0..23] of integer;
var incr: arInt = (1, 4, 10, 23, 57, 145, 356, 911, 1968, 4711,
11969, 27901, 84801, 213331, 543749, 1355339, 3501671, 8810089, 21521774,
58548857, 157840433, 410151271, 1131376761, 2147483647);
...
ShellSort(incr);
...
end.
P.S.: я не разбирался в процедуре, но у меня лично, выдает ошибку при работе самой процедуры, если передать ваш массив.
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Помогите вызвать процедуру на Delphi 7