Найти n-й член геометрической прогрессии, если известны первый член и знаменатель прогрессии.
Для решения задачи составить:
1) функцию пользователя;
2) рекурсивную функцию;
3) рекурсивную процедуру
Объединить их в одной программе и сравнить результаты работы.
Простую функцию я составила:
Код:
Function f1(n:integer;b1,q:real):real;
var i:integer;bn:real;
begin
bn:=b1;
for i:=1 to n-1 do
bn:=bn*q;
f1:=bn;
end;
Помогите пожалуйста с рекурсивными процедурой и функцией