Question

Вывести на экран первые 20 чисел Фибоначчи. Напишите программу на языке Pascal и постройке блок схему (цикл с предусловием) ​

Answer 1

Ответ:

var

   a,b,c,i,n: integer;

begin

n:= 20;

   a := 0;

   write(a,' ');

   b := 1;

   write(b,' ');

   for i:=3 to n do begin

       write(a+b,' ');

       c := b;

       b := a + b;

       a := c

   end;  

readln ;

end.

Answer 2

Конечно, вот программа на языке Pascal для вывода первых 20 чисел Фибоначчи и соответствующая блок-схема:

Программа на Pascal:

pascalCopy code
program Fibonacci;

var
  i: Integer;
  fibPrev, fibCurr, fibNext: Integer;

begin
  fibPrev := 0;
  fibCurr := 1;
  
  writeln('Первые 20 чисел Фибоначчи:');
  writeln(fibPrev);
  writeln(fibCurr);
  
  for i := 3 to 20 do
  begin
    fibNext := fibPrev + fibCurr;
    writeln(fibNext);
    
    fibPrev := fibCurr;
    fibCurr := fibNext;
  end;
end.

А вот блок-схема программы с использованием цикла с предусловием:

goCopy code
┌──────────────┐
│ Начало       │
│              │
│ fibPrev := 0 │
│ fibCurr := 1 │
│              │
├──────────────┤
│ Вывести fibPrev
│ Вывести fibCurr
│              │
├──────────────┤
│ i := 3        │
│ fibNext := fibPrev + fibCurr
│ Вывести fibNext
│ fibPrev := fibCurr
│ fibCurr := fibNext
│              │
├──────────────┤
│ i := 4        │
│ fibNext := fibPrev + fibCurr
│ Вывести fibNext
│ fibPrev := fibCurr
│ fibCurr := fibNext
│              │
│ ...          │
│              │
├──────────────┤
│ i := 20       │
│ fibNext := fibPrev + fibCurr
│ Вывести fibNext
│ fibPrev := fibCurr
│ fibCurr := fibNext
│              │
└──────────────┘
│ Условие выполнения цикла: i <= 20
└──────────────┘
│ Конец

Этот код и блок-схема выводят первые 20 чисел Фибоначчи, начиная с 0 и 1, используя цикл с предусловием.