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

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

Форум «Всё о Паскале» _ Задачи _ цикл While

Автор: kvadrat 15.05.2008 0:36

Условие:
Прикрепленное изображение
Вариант решения:

program qweasdf;
const e=0.0001;
var i,n:integer;p,k:real;
begin
writeln('n=?');
readln(n);
i:=1;
k:=(1/1+sqr(n));
p:=1;
while e<k do
begin
p:=p+k;
i:=i+1;
k:=(1/1+sqr(n));
end;
writeln('P=',p);
end.

Укажите пожалуйсто на ошибки и помогите их исправить.


Автор: мисс_граффити 15.05.2008 2:33

а зачем ты дублируешь темы?

Автор: kvadrat 15.05.2008 8:29

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

Автор: kvadrat 16.05.2008 1:44

[quote name='kvadrat' date='14.05.2008 23:36' post='122957']
Условие:
Прикрепленное изображение
там условие неполностью... "точность считается достигнутой, когда 1/1+(n*n)<=e
Зачем ваще n я вводил, ведь его надо вывести, всё решение придётся основательно редактировать.