Используя операторы цикла с предусловием и постусловиями, найти сумму ряда с точностью е

@DIANA_K · Регистрация: 01.11.2017

Author24 — интернет-сервис помощи студентам

Pascal

uses crt;
var s,e,an:real;
n:integer;
function fact(n:integer):integer;
begin
if n>1 then 
fact:=n*fact(n-1)
else
fact:=1;
end;
begin
write(' введите e ');
readln(e);
begin
s:=0;
n:=0;
repeat
an:=(power (-1,n)*power(3,2*n))/fact(2*n);
s:=s+an;
n:=n+1;
until abs(an)<e;
end;
begin
writeln('сумма рядов',s:2:3, 'членов просуммировано',n);
end;
end.

@Puporev · 02.11.2017, 09:40

DIANA_K, Условие задачи нужно писать не в названии темы, куда оно как правило не входит, а в окне сообщений. Если что-то еще нужно, напишите в следующем сообщении точное и полное задание.

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	02.11.2017, 09:40	2
	DIANA_K, Условие задачи нужно писать не в названии темы, куда оно как правило не входит, а в окне сообщений. Если что-то еще нужно, напишите в следующем сообщении точное и полное задание. 0