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 я вводил, ведь его надо вывести, всё решение придётся основательно редактировать.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.