Завдання № 48. Вивести на екран всі числа Фібоначчі до n-ного включно » Pascal - основи програмування

Основи програмування на мові Pascal

 

Спонсори

Завдання № 48. Вивести на екран всі числа Фібоначчі до n-ного включно

Завдання № 48. Вивести на екран всі числа Фібоначчі до n-ного включно
Формулювання. Дано натуральне n (яке також може бути дорівнює 0). Вивести на екран всі числа Фібоначчі до n-ного включно.
Рішення. Завдання заснована на завданні 46. У даному випадку нам необхідно лише виводити кожне знайдене число Фібоначчі на екран. Ми можемо легко отримати рішення цієї задачі з завдання 46 або завдання 47.
Опишемо основні фрагменти програми. Так як нульовий член послідовності виводи-диться при будь-якому можливому n, то його можна вивести на екран відразу після введення n (або до, що не має значення). Потім, якщо n відмінно від нуля, виводимо на екран першого член (так як висновок в циклі інших членів відбувається при n> = 2):

readln (n);
fib0: = 0;
fib1: = 1;
write (fib0, '');
if n <> 0 then write (fib1, '');

Далі необхідно додати висновок поточного знайденого члена в цикл:
for i: = 2 to n do begin
  fib: = fib1 + fib0;
  write (fib, '');
  fib0: = fib1;
  fib1: = fib
end
;
Так як ми виводимо всі результати в самому циклі, на цьому програма закінчується.

 

Код:


  1. program FirstNFibonacciNums;
  2. var
  3. fib0, fib1, fib: integer;
  4. i, n: byte;
  5. begin
  6. readln(n);
  7. fib0 := 0;
  8. fib1 := 1;
  9. write(fib0, ' ');
  10. if n <> 0 then write(fib1, ' ');
  11. for i := 2 to n do begin
  12. fib := fib1 + fib0;
  13. write(fib, ' ');
  14. fib0 := fib1;
  15. fib1 := fib
  16. end
  17. end.

скачать dle 10.4фильмы бесплатно Наступна сторінка » Завдання № 49. Перевірити баланс кругл... Попередня сторінка » Завдання № 47. Вивести на екран суму чи...