Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ найти сумму ряда с точностью до Е

Автор: Rikki_Irena 8.04.2012 16:37

Прикрепленное изображение

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.


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

Автор: -Федосеев Павел- 8.04.2012 17:44

Цитата(Rikki_Irena @ 8.04.2012 12:37) *

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

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

Автор: Rikki_Irena 8.04.2012 18:16

Цитата(-Федосеев Павел- @ 8.04.2012 14:44) *

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


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

Автор: Гость 8.04.2012 18:19

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

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

Автор: Rikki_Irena 8.04.2012 18:45

Цитата(Гость @ 8.04.2012 15:19) *

Тогда скопируй с небльшим изменением строку writeln в тело цикла
  repeat
    writeln(n:2, '. element ', s);
  until ....



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

Автор: Krjuger 8.04.2012 18:48

Госпади,конешно же между 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.


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

Автор: Федосеев Павел 8.04.2012 19:02

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

Автор: Rikki_Irena 8.04.2012 19:03

Цитата(Krjuger @ 8.04.2012 15:48) *

Госпади,конешно же между 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

Автор: -андрей- 20.10.2015 4:10

склади на сішці