Программа вычисления чисел ряда Фибоначчи по рекуррентной формуле с запоминанием членов.

Program pr40 (Input, Output);         

Объявление имени программы

Var         

Блок объявления глобальных переменных

X             : Array [1..50] Of Integer;  

Переменная X - массив из 50-и элементов, служит для запоминания членов ряда

N             : Integer;              

Переменная N - число вычисляемых членов

i               : Integer;              

Переменная i - параметр цикла

Begin    

Начало тела программы

Write ('PASCAL: Вычисление чисел Фибоначчи ');

Формулировка цели алгоритма

WriteLn ('по рекуррентной формуле c запоминанием членов.');             

Формулировка цели алгоритма

Write ('Введите количество членов (3<=N<=50):  N = ');               

Запрос ввода числа N - количества членов

ReadLn (N);         

Ввод N

X [1] := 1;             

Запоминаем первый член ряда Фибоначи в X[1]

X [2] := 1;             

Запоминаем второй член ряда Фибоначи в X[2]

WriteLn ('Вычисленные члены:'); 

Сообщение пользователю о выводе вычисляемых членов

Write ('1 1 ');        

Вывод первых двух членов

For i := 3 To N Do              

Цикл для i от 3 до N вычисления и вывода чисел Фибоначи

Begin    

Начало тела цикла

X [i] := X [i - 2] + X [i - 1]; 

Очередной член ряда Фибоначи получается суммированием двух предыдущих

Write (X [i]);        

Вывод очередного члена

Write (' ');             

Вывод разделителя членов ряда - символа "пробел"

End;      

Конец тела цикла

ReadLn;

Ожидание нажатия клавиши Enter для завершения

End.       

Конец программы