Вычислить значение выражения - Turbo Pascal (33753)

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

вариант 15 http://www.cyberforum.ru/attachment....1&d=1388032791 http://www.cyberforum.ru/attachment....1&d=1388032791

Код к задаче: «Вычислить значение выражения - Turbo Pascal (33753)»

textual
uses
  crt;
  
function f1(x : real; n : byte) : real;
begin
  If n=1 then f1 := cos(x)
  else f1 := f1(x,n-1) + cos(f1(x,n-1));
end;  
function f2(n : word) : real;
begin
  If n = 1 then f2 := n
  else f2 := f2(n-1) + 1/n;
end;
function Root(n : word) : real;
begin
  If n = 180 then Root := sqrt(n)
  else Root := Sqrt(n + Root(n + 6));
end;
function tg(x : real) : real;
begin
  if x = 1 then tg := sin(x)/cos(x)
  else tg := sin(x)/cos(x) + tg(x - 1);
end;
var
  n : integer;
  x : real;
begin
  clrscr;
  write('n = '); readln(n);
  write('x = '); readln(x);
  writeln('Задание1 : ',f1(x,n):0:5);
  writeln('Задание2 : ',f2(100):0:5);
  writeln('Задание3 : ',Root(6):0:5);
  writeln('Задание4 : ',tg(10):0:5);
  
  readln;
end.

15   голосов, оценка 3.933 из 5


СОХРАНИТЬ ССЫЛКУ