Циклические вычислительные процессы

[WVBR]

Ребят помогите решить задачу
не пойму как выстроить правильно циклы

[Zer0]

Вы бы хоть среду указали
А так цикл сделать просто, надо только помнить три предыдущих значения

[WVBR]

Форум программистов > Новички в программировании > Паскаль

=> язык паскаль
среда турбо паскаль 7-0

[Zer0]

var a:array[1..3] of real;
    i,n,count:integer; t:real;
begin
a[1]:=1; a[2]:=4; a[3]:=1;
count:=3;
readln(n);
for i:=1 to 3 do write (a[i]:0:3,' ');
for i:=4 to n do begin
 t:=a[i-3]+a[i-2]*sqrt(i*ln(abs(a[i-2])));
 if t-trunc(t)<0.5 then inc(count);
 a[1]:=a[2]; a[2]:=a[3]; a[3]:=t;
 write (t:0:3,' ');
end;
writeln;
writeln ('count of numbers = ',count);
readln;
end.

[WVBR]

Zer0 благодарю, а почему i:=4 начинаем именно с 4 ?

[Zer0]

Потому что первые три члена уже даны, начинаем считать от четвертого