Найти наименьший номер последовательности, заданной рекуррентной формулой, для которого выполняется условие |аn (программа Паскаль)
155
339
Ответы на вопрос:
var a1,a,e:real;
n:integer;
begin
repeat
write('Введите малую величину 0<e<1 e=');
readln(e);
until(e>0)and(e<1);
a1:=2;
a:=(2+a1*a1)/(2*a1);
writeln('n=1 a=',a1:0:5);
writeln('n=2 a=',a:0:5);
n:=2;
while abs(a1-a)>=e do
begin
a1:=a;
n:=n+1;
a:=(2+a1*a1)/(2*a1);
writeln('n=',n,' a=',a:0:5);
end;
write('n=',n);
end.
n:integer;
begin
repeat
write('Введите малую величину 0<e<1 e=');
readln(e);
until(e>0)and(e<1);
a1:=2;
a:=(2+a1*a1)/(2*a1);
writeln('n=1 a=',a1:0:5);
writeln('n=2 a=',a:0:5);
n:=2;
while abs(a1-a)>=e do
begin
a1:=a;
n:=n+1;
a:=(2+a1*a1)/(2*a1);
writeln('n=',n,' a=',a:0:5);
end;
write('n=',n);
end.
Популярно: Другие предметы
-
elenaklass124.09.2020 16:10
-
саид12623.05.2021 02:38
-
Pixelia07.04.2023 00:38
-
ььь5501.06.2020 06:04
-
ЕйнштейнАльберт12.06.2021 12:07
-
gotov234443333208.07.2020 13:49
-
Batman78127.10.2021 02:34
-
Otlichnisa14045520.01.2020 00:45
-
delacourr28.12.2020 07:45
-
Анна1460067517.11.2021 16:42