![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
![]() Найти 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; |