|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
проверка числовой последовательности на арифм прогрессию. в чём ошибка?
создаю массив
Код:
for i:=0 to l-1 do begin r[l-i]:=chislo mod 10; chislo := chislo div 10; end; вывожу на экран Код:
for i:=1 to l do begin writeln('r[',i,']=',r[i]); end; вывел Код:
r[1]=1 r[2]=3 r[3]=5 r[4]=7 r[5]=9 Код:
function progr(l:integer;r:array of integer):Boolean; элементы массива я не меняю внутри функции. Код:
r[1]=1 r[2]=3 r[3]=5 r[4]=7 r[5]=0 никак не пойму где я что неправильно наворотил... |
#2
|
|||
|
|||
Как массив объявлен?
|
#3
|
|||
|
|||
в var
Код:
r:array of integer; то Код:
SetLength(r, l); нашёл где не правильно,помощь не требуется,спасибо) Последний раз редактировалось badtrips, 26.08.2011 в 16:36. |
#4
|
|||
|
|||
В динамических массивах индексация начинается с 0
|