Составив соответствующие рекуррентные соотношение, вычислите значения выражений: - Pascal

Узнай цену своей работы

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

Составив соответствующие рекуррентные соотношение, вычислите значения выражений: sin(x)+sin((sin(x))+...+sin(sin(...sin(x)))

Решение задачи: «Составив соответствующие рекуррентные соотношение, вычислите значения выражений:»

textual
Листинг программы
function Rec(x:real;n:integer):real;
begin
if n=1 then Rec:=sin(x) else Rec:=sin(Rec(x,n-1));
end;
var x:real;
    n:integer;
begin
write('x=');
readln(x);
repeat
write('Введите n=');
readln(n);
until n>0;
write('Результат=',Rec(x,n):0:5);
end.

Объяснение кода листинга программы

  1. Создается функция Rec с параметрами x (вещественное число) и n (целое число).
  2. Если n равно 1, то значение функции Rec равно sin(x).
  3. В противном случае значение функции Rec равно sin(Rec(x, n-1)), то есть рекурсивный вызов функции Rec.
  4. Объявляются переменные x (вещественное число) и n (целое число).
  5. Пользователю выводится запрос на ввод значения x.
  6. Пользователь вводит значение x.
  7. Пользователю выводится запрос на ввод значения n.
  8. Пользователь вводит значение n, и программа продолжает запрашивать его, пока n не будет больше 0.
  9. Выводится значение функции Rec(x, n) с округлением до 5 знаков после запятой.

Оцени полезность:

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