Рекурсивные Алгоритмы, вычисление квадратного корня - Pascal ABC

Формулировка задачи:

Друзья, коллеги, братья прошу помощи, не могу решить последнюю задачу для зачета. Вот собственно задача: Для вычисления можно использовать рекуррентное соотношение . Для заданного a получить N членов этой последовательности.


textual

Код к задаче: «Рекурсивные Алгоритмы, вычисление квадратного корня - Pascal ABC»

Program Program8;
 
var a : real;
var n : integer;
 
procedure seq(n : integer; a : real; x : real);
Begin
      if (n=0) then exit;
      writeln(x);
      seq(n-1,a,0.5*x+a/(2*x));
End;
 
Begin
 
     write('a=');
     readln(a);
     write('n=');
     readln(n);
     
     seq(n,a,0.5*a);
     
End.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

9   голосов, оценка 4.333 из 5

Источник