Вычислить значение выражения - Turbo Pascal (33753)
Формулировка задачи:
вариант 15
http://www.cyberforum.ru/attachment....1&d=1388032791
http://www.cyberforum.ru/attachment....1&d=1388032791
Решение задачи: «Вычислить значение выражения»
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.
Объяснение кода листинга программы
- В функции
f1
используется рекурсия для вычисления значения выражения. Еслиn
равно 1, то функция возвращает значениеcos(x)
. В противном случае, функция вызывает саму себя с аргументамиx
иn-1
, и затем добавляет к результатуcos(f1(x,n-1))
. - В функции
f2
используется рекурсия для вычисления значения выражения. Еслиn
равно 1, то функция возвращает значениеn
. В противном случае, функция вызывает саму себя с аргументамиn-1
и1/n
, и затем добавляет к результату1/n
. - В функции
Root
используется рекурсия для вычисления значения выражения. Еслиn
равно 180, то функция возвращает значениеsqrt(n)
. В противном случае, функция вызывает саму себя с аргументамиn
иn+6
, и затем добавляет к результатуsqrt(n + Root(n + 6))
. - В функции
tg
используется рекурсия для вычисления значения выражения. Еслиx
равно 1, то функция возвращает значениеsin(x)/cos(x)
. В противном случае, функция вызывает саму себя с аргументамиx-1
иtg(x-1)
, и затем добавляет к результатуsin(x)/cos(x) + tg(x-1)
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д