Заданы числовой ряд и некоторое чичло e(точность вычислений).Вычеслить сумму тех челенов ряда,модуль которых больше или равен e.Обищй челен ряда имеете вид:
a=10 в степени n деленная на n!, где n! это фактариал.
Проверти на сколько правильно задание.
Если код не совсем правелен просьба подправить с использованием ограничений в этом разделе:
http://forum.pascal.net.ru/index.php?showtopic=3493
Код
program z_2;
uses crt;
var
e : real;{tochnost vichisleny}
a : real;{tekuchiy chlen ryada}
s : real;{summa teh chlenov ryada, modul kotorih bolshe ili raven
tochnosti vichisleniy e}
n : integer;{nomer chlena ryada}
begin
clrscr;
write('vvedite tochnost vichisleniy e=');
readln(e);
a:=1;
n:=1;
s:=0;
while (abs (a)>=e) do
begin
a:=a*10/n;
writeln(a:8:6);
s:=s+a;
n:=n+1;
end;
writeln;
write('summa teh chlenov rjada, modul kotorih ');
writeln('bolshe ili raven tochnosti vichisleniy:');
writeln;
writeln(s:8:6);
readln;
end.
uses crt;
var
e : real;{tochnost vichisleny}
a : real;{tekuchiy chlen ryada}
s : real;{summa teh chlenov ryada, modul kotorih bolshe ili raven
tochnosti vichisleniy e}
n : integer;{nomer chlena ryada}
begin
clrscr;
write('vvedite tochnost vichisleniy e=');
readln(e);
a:=1;
n:=1;
s:=0;
while (abs (a)>=e) do
begin
a:=a*10/n;
writeln(a:8:6);
s:=s+a;
n:=n+1;
end;
writeln;
write('summa teh chlenov rjada, modul kotorih ');
writeln('bolshe ili raven tochnosti vichisleniy:');
writeln;
writeln(s:8:6);
readln;
end.