Нахождение n-го числа Фибоначчи - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Найдите n-е число Фибоначчи. Числа Фибоначчи определяются следующим образом: F0 = F1 = 1, Fn = Fn-1 + Fn-2, где n = 2, 3, 4, 5, …, n. Основную программу, осуществляющую вывод на экран n-го числа Фибоначчи.

Решение задачи: «Нахождение n-го числа Фибоначчи»

textual
Листинг программы
var
   n,i,a,b,c:longint;
begin
    read(n);
    a:=1;
    b:=1;
    write(a,' ',b,' ');
   for i:=3 to n do 
     begin
       write(a+b,' ');
        c:=a;
        a:=b;
        b:=a+c;
      end;
end.

Объяснение кода листинга программы

В данном коде происходит следующее:

  1. Создаются переменные n, i, a, b, c:longint;
  2. Считывается значение переменной n с помощью функции read(n);
  3. Переменным a и b присваиваются значения 1;
  4. Выводится на экран строка, содержащая значения переменных a и b;
  5. Запускается цикл for, который выполняется от 3 до n (включительно);
  6. Внутри цикла выводится на экран значение переменной a+b;
  7. Переменной c присваивается значение a;
  8. Переменной a присваивается значение b;
  9. Переменной b присваивается значение a+c;
  10. После завершения цикла выводится на экран строка, содержащая значения переменных a, b и c.

Оцени полезность:

11   голосов , оценка 4 из 5
Похожие ответы