kasper182

uses crt;
var n:integer;
e,s,t:real;
begin
clrscr;
e:=0.0001;
n:=0;
t:=1;
s:=t;
while abs(t)>e do
begin
n:=n+1;
t:=-t/n;
s:=s+t;
end;
writeln('S =',s:0:5);
write('1/e=',1/exp(1):0:5);
readln
end.

Vladimir_S

Вот это правильно, вот это по-нашему! Ясно, четко, лаконично, по-деловому. Отдан приказ - исполнять! И никаких там "здрасьте", да "помогите", да "прошу", да "пожалуйста" и прочей ненужной мишуры. Класс!

kasper182

здраствуйте, помогите с блок-схемой

uses crt;
var n:integer;
e,s,t:real;
begin
clrscr;
e:=0.0001;
n:=0;
t:=1;
s:=t;
while abs(t)>e do
begin
n:=n+1;
t:=-t/n;
s:=s+t;
end;
writeln('S =',s:0:5);
write('1/e=',1/exp(1):0:5);
readln
end.

Léon

...............

Миниатюры