Нахождение 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.
Объяснение кода листинга программы
В данном коде происходит следующее:
- Создаются переменные n, i, a, b, c:longint;
- Считывается значение переменной n с помощью функции read(n);
- Переменным a и b присваиваются значения 1;
- Выводится на экран строка, содержащая значения переменных a и b;
- Запускается цикл for, который выполняется от 3 до n (включительно);
- Внутри цикла выводится на экран значение переменной a+b;
- Переменной c присваивается значение a;
- Переменной a присваивается значение b;
- Переменной b присваивается значение a+c;
- После завершения цикла выводится на экран строка, содержащая значения переменных a, b и c.