Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ арифметическая прогрессия

Автор: 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.



Заранее благодарен.

Arif- исправлено+ убрана не нужная переменная.

Автор: klem4 9.05.2007 21:47

Нужно еще ввести N, а в строке

Цитата
writeln( ' Арифметическая прогрессия' , Аrif (a1, d, n) : 4 : 2);


Выделенная буква - кириллическая а не латинская

Автор: volvo 9.05.2007 21:48

Цитата
writeln( ' Арифметическая прогрессия' , Аrif (a1, d, n) : 4 : 2);
Выделенная буква - русская... Поменяй на латинскую ...

P.S.
N вводить не нужно - оно уже описано...

Автор: klem4 9.05.2007 21:51

Цитата
P.S.
N вводить не нужно - оно уже описано...


А значение то не присвоено .. Я это имел в виду.

blink.gif compiler Ты отредактировал сообщение чтоли ? Или я readln(n) не заметил ?!

Автор: compiler 9.05.2007 21:58

Цитата(klem4 @ 9.05.2007 17:51) *
blink.gif compiler Ты отредактировал сообщение чтоли ? Или я readln(n) не заметил ?!
так.. readln(n) вроде я добавлял.. щас нету, прошу прощение , наверно убрал случайно, добавляю

добавлено позже
все разобрался, всем спасибо...