|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.05.2012, 18:52 | #1 |
Регистрация: 24.05.2012
Сообщений: 5
|
Рекурсия
Вычислить значение функции, используя рекурсию.
program rec; uses crt; var n,i,x:integer; znach:real; k:integer; function f(x:real; k:integer; n:integer):real; var i:integer; begin k:=1; for i:=1 to n do f:=k*exp((2*n-2)*ln(x))+f(x,-k,n-1); end; begin clrscr; write('n=');readln(n); write('x='); readln(x); znach:=f(x,-k,n); writeln('Значение =',znach:8:4); end. Последний раз редактировалось MaSS93; 24.05.2012 в 18:56. |