Вычислить значение выражения - Turbo Pascal (33753)
Формулировка задачи:
вариант 15
http://www.cyberforum.ru/attachment....1&d=1388032791
http://www.cyberforum.ru/attachment....1&d=1388032791
Код к задаче: «Вычислить значение выражения - Turbo Pascal (33753)»
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
СОХРАНИТЬ ССЫЛКУ