найти сумму ряда с точностью до Е Опции

[Rikki_Irena]

const
E=0.001;

var
Sum:real;
s:real;
n:integer;

begin
n:=1;
Sum:=0.0;
repeat
s:=3/(sqr(n)+1);
n:=n+1;
Sum:=Sum+s;
until abs(s)<E;
writeln('Sequence sum=',Sum:4:4,' Last element=',s:4:4);
readln;
end.

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

[-Федосеев Павел-]

чтобы программа выводила нужные элементы на экран

А какие элементы нужны?

[Rikki_Irena]

А какие элементы нужны?

наверное элементы которые суммируют

[Гость]

Тогда скопируй с небльшим изменением строку writeln в тело цикла

  repeat
    writeln(n:2, '. element ', s);
  until ....

[Rikki_Irena]

Тогда скопируй с небльшим изменением строку writeln в тело цикла

  repeat
    writeln(n:2, '. element ', s);
  until ....

а куда это поставить?

[Krjuger]

Госпади,конешно же между repeat until человек же написал " в тело цикла"
В итоге будет выглядеть так

const
E=0.001;

var
Sum:real;
s:real;
n:integer;

begin
n:=1;
Sum:=0.0;
repeat
s:=3/(sqr(n)+1);
writeln(n:2, '. element ', s);
n:=n+1;
Sum:=Sum+s;
until abs(s)<E;
writeln('Sequence sum=',Sum:4:4,' Last element=',s:4:4);
readln;
end.

И не забывайте обрамлять ваш в код в теги!!!!!

Сообщение отредактировано: Krjuger - 8.04.2012 14:49

[Федосеев Павел]

Сорри, конечно же для неопытного человека я должен был написать подробнее. Но, Ира, ты тоже мух не лови. В программе всего раз встречается until.

[Rikki_Irena]

Госпади,конешно же между repeat until человек же написал " в тело цикла"
В итоге будет выглядеть так

const
E=0.001;

var
Sum:real;
s:real;
n:integer;

begin
n:=1;
Sum:=0.0;
repeat
s:=3/(sqr(n)+1);
writeln(n:2, '. element ', s);
n:=n+1;
Sum:=Sum+s;
until abs(s)<E;
writeln('Sequence sum=',Sum:4:4,' Last element=',s:4:4);
readln;
end.

И не забывайте обрамлять ваш в код в теги!!!!!

хорошо, поняла, спасибо :3