Задачки на Pascal
Вложений: 1
написать программу нахождения суммы
б) членов ряда с точностью ε для заданного х и их количество, использовав цикл с после условием. в) членов ряда с точностью ε для заданной последовательности х. Во внешнем цикле для подачи аргумента x использовать оператор цикла с перед условием, во внутренним - вычислить сумму конкретного x с точностью до ε, использовав оператор цикла с после условием. Вывести значение S,x,n. Помогите исправить ошибки б)uses crt; var n:integer; a,s,x:real; begin clrscr; x:=0.1; n:=0; s:=0; repeat a:=exp(ln(x)*(2*n+1))/2*n+1; if n mod 2 <> 0 then a:=-a; s:=s+a; n:=n+1; until (abs(s)<0.0001); writeln ('Количество членов = ',n); writeln ('сумма = ',s:2:8); readln; end. в)uses crt; var n:integer; a,s,x:real; begin clrscr; x:=0.1; while x<0.7 do begin s:=0; n:=0; repeat a:=exp(ln(x)*2*n+1)/2*n+1; if n mod 2 <> 0 then a:=-a; s:=s+a; n:=n+1; until (abs(s)<0.01); writeln ('Количество членов = ',n); writeln ('сумма = ',s:2:8); x:=x+0.1; end; readln; end. |
там end лишний в (в)
|
Часовой пояс GMT +4, время: 04:47. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.