как создать цикл???

[AlexeyR23]

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,' ');
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,' ');

вот кусок кода

мне нужно, чтобы цикл автоматом создавал вот эти "dXy"

и соответсвующие к ним операции
точнее выполнял их

т.е. сейчас код заканчивается на d5y, но этого мало, нужно до 128, однако руками же не будешь копипастить 128 циклов))

нужно как-то автоматизировать)

d3y, d4y и все последующие - это массивы
типа real

[IT-man]

нужно как-то автоматизировать)

а про двумерные массивы вам не рассказывали?

[AlexeyR23]

в том то все и дело, как реализовать?

[IT-man]

в том то все и дело, как реализовать?

ну что то вроде


не знаю как у вас d1Y рассчитывается покажу со 2-го

var dy:array[1..128,1..kol] of real;
(*////////////////////////*)
for i:= 1 to 128 do
for j:=2 to kol-i do begin
dy[j,i]:=dy[j-1,i+1]-dy[j-1,i];
for k:=1 to kol-i do
write(dy[j,k]:3,' ');
writeln;
end;

[AlexeyR23]

спасибо, очень помогли)) дело осталось за редактированием прошлого кода ))) еще раз спасибо =)