Форум «Всё о Паскале» _ Задачи _ арифметическая прогрессия
Автор: compiler 9.05.2007 21:44
Добрый день! есть пример(с рекурсией) который мне не ясен(да еще и не компилится) помогите пожалуйста...
Код
Нахождение n-го члена арифметической прогрессии (an=a1+d*(n-1)-формула n-го члена арифметической прогрессии).
Program Progressiy; Var a1, d: real; n: integer; Function Arif (a1, d: real; n: integer): real; Begin if n = 1 then Arif := a1 else Arif := Arif(a1, d, n - 1) + d; End; Begin writeln('Задайте первый член прогрессии'); readln(a1); writeln('Задайте разность арифметической прогрессии'); readln(d); writeln('needed' ); readln(n); writeln( ' Арифметическая прогрессия' , Arif (a1, d, n) : 4 : 2); readln; read; End.