VPF::Как реализовать цикл массивов

romjke

Дата 14.11.2011, 20:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 14.11.2011

Репутация: нет
Всего: нет

Доброго времени суток!

Код


type mas=array[1..11] of real;
var xx,y,dy,d2y,d3y,d4y:mas;
i,j,kol:byte;

...

write('d3y ');
for i:=1 to kol-3 do
d3y[i]:=d2y[i+1]-d2y[i];
for i:=1 to kol-3 do
write(d3y[i]:3:3,' ');
writeln;

write('d4y ');
for i:=1 to kol-4 do
d4y[i]:=d3y[i+1]-d3y[i];
for i:=1 to kol-4 do
write(d4y[i]:3:3,' ');

Как видно из кода необходимо выводить на экран значения этих самых массивов, однако число их будет не 4 и даже не 11 как указано выше, это просто для примера, их будет гораздо больше, но для каждого же случая не будешь писать отдельный вариант. Вопрос: можно ли(если да, то как) сделать цикл, который будет выполнять те же действия только для определённого кол-ва массивов.

northener

Дата 14.11.2011, 21:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1361
Регистрация: 2.9.2010

Репутация: 12
Всего: 20

А если вместо N одномерных массивов взять один, но двухмерный?

--------------------

Но только лошади летают вдохновенно.
Иначе лошади разбились бы мгновенно!

Чучмек

Дата 15.11.2011, 21:05 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 7
Всего: 41

В общем случае, работа с однотипными данными выносится в подпрограмму

--------------------

умную мысль держи при себе, а дурной - поделись с другими

romjke

Дата 18.11.2011, 21:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 14.11.2011

Репутация: нет
Всего: нет

Спасибо за ответы, разобрался использую двумерный массив =)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »