[Devil]

Помогите решить задачу, плиз!!!! Найти значение выражения: sin(sin(…sin(x))), где функция sin используется n раз.Для решения следующих задач составить:

1) функцию пользователя;


2) рекурсивную функцию;


3) рекурсивную процедуру

Объединить их в одной программе и сравнить результаты работы.

[Konrad]

В раздел работа.

Или показывай код, который успел написать.

[dr. F.I.N.]

Код:

function UserFunc(angle: real; count: integer): real;
var
  i: Integer;
begin
  Result := sin(angle);
  for i := 2 to count do
  Result := sin(Result);
end;

function RecursionFunc(angle: real; count: integer): real;
begin
  if count = 1 then Result := sin(angle)
  else
  Result := sin(RecursionFunc(angle, count - 1));
end;

procedure RecursionProc(angle: real; count: integer; var R: real);
begin
  if count = 1 then R := sin(angle)
  else
  RecursionProc(angle, count - 1, R);
end;

Не тестил. Вроде не ошибся

[Devil]

Спасибо, выручил!!!