Создайте рекурсивную функцию для вычисления неизвестного следующей последовательности. Напишите программу ее проверки. Проверять корректность исходных данных в работе не требуется. Замечание: рекурсивное решение в данном случае не оптимально; задание предназначено только для того, чтобы попробовать сделать простейшую рекурсивную функцию. Ниже на скрине красным веделено...
PASCAL(Lazarus)
помогите пожалуйста!! Не понимаю, как сделать....
Желательно с кодом.. Спасибо
Приложения:
![](https://st.uroker.com/files/47d/47d98457a46d89841fc2a77a4a14ab5a.jpg)
Ответы
Ответ дал:
0
//PascalABC.Net 3.0, сборка 1053
function F(n:integer):longint;
begin
case n of
1: F:=4;
2: F:=-4;
else F:=6*F(n-1)-4*F(n-2)
end
end;
begin
Writeln('F(5)=',F(5)) { тестовое}
end.
Тестовое решение:
F(5)=-1184
function F(n:integer):longint;
begin
case n of
1: F:=4;
2: F:=-4;
else F:=6*F(n-1)-4*F(n-2)
end
end;
begin
Writeln('F(5)=',F(5)) { тестовое}
end.
Тестовое решение:
F(5)=-1184
Ответ дал:
0
Извиняюсь еще раз, но вы не могли бы расписать подробно, как она работает?
Ответ дал:
0
Я не знаю, как можно ПОДРОБНО расписать три оператора присваивания, два из которых вообще просто присваивание констант, а третий по сути копия приведенной в задании формулы.
Ответ дал:
0
Я не понимаю, как работает выражение. Можете подставить значения и посчитать, пожалуйста. Я подставляю вместо n число - и выходит другое.
Ответ дал:
0
Значит, Вы неправильно считаете. Учить арифметике - это не задача предмета "Информатика"
Ответ дал:
0
Работа функции для аргумента 5 мной была проверена.
Вас заинтересует
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад