Помощь - Поиск - Пользователи - Календарь
Полная версия: Циклические вычислительные процессы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
WVBR
12.12.2011 11:25
Ребят помогите решить задачу
не пойму как выстроить правильно циклы

Krjuger
12.12.2011 17:33
Покажите,как выстроили.....Тут телепатов нет.
WVBR
12.12.2011 20:38
Цитата
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.
Krjuger
14.12.2011 0:24
Эм для начала, лучше не переопределять исходные данные,а дополнять.
const n=10;
var a:array[1..n] of real;
 i,count:integer;
 t:real;
begin
count:=3;
a[1]:=1; a[2]:=4; a[3]:=1;
for i:=4 to n do begin
 a[i]:=a[i-3]+a[i-2]*sqrt(i*ln(abs(a[i-2])));
 if a[i]-trunc(a[i])<0.5 then
   inc(count);
end;
for i:=1 to n do
 write (a[i]:0:3,' ');
writeln;
writeln ('count of numbers = ',count);
readln;
end.

Как то так...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.