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

  1. Друзья, коллеги, братья прошу помощи, не могу решить последнюю задачу для зачета. Вот собственно задача: Для вычисления можно использовать рекуррентное соотношение . Для заданного 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.

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

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



Похожие ответы
  1. Описать рекурсивную логическую функцию Simm (S,I,J), проверяющую, является ли симметричной часть строки S, начинающая i-м и заканчивающая j-м ее элементами.

  1. Здравствуйте, вот условие задачи: Рекурсивные подпрограммы Составить программу перевода данного натурального числа в p-ичную систему счисления (2 <= p<= 9) Вот текст программы. Никак не получается сделать функцию рекурсивной, гуглил в интернте, хотел сделать по анологии, но ничего не выходит.