В n будем хранить количество чисел, которые ещё нужно вывести. a и b - предыдущее и текущее числа Фибоначчи. По определению, следующее число Фибоначчи равно сумме двух предыдущих, так что новое значение b будет a + b. Чтобы не заводить новую временную переменную, новое значение a можно будет найти, вычитая из нового b старое a, получится (a + b) - a = b.
Код процедуры:
procedure print_fib(n: integer);
var a, b, t: integer;
begin
a := 0;
b := 1;
while n > 0 do
begin
write(b, ' ');
b := a + b;
a := b - a;
n := n - 1;
end;
end;
Пример основной программы:
begin
print_fib(10)
end.
Вывод:
1 1 2 3 5 8 13 21 34 55
Программа
{
покажись;
в_точку ( -125 ,-100 );
опусти_перо;
вперед ( 100 );
вправо ( 90 );
вперед ( 50 );
вправо ( 90 );
вперед ( 100 );
подними_перо;
в_точку ( -55 ,-50 );
опусти_перо;
вперед ( 50 );
влево ( 90 );
вперед ( 27 );
влево ( 90 );
вперед ( 50 );
влево ( 90 );
вперед ( 27 );
подними_перо;
в_точку ( -10 ,-100 );
опусти_перо;
вправо ( 105 );
вперед ( 52 );
вправо ( 150 );
вперед ( 52 );
вправо ( 15 );
подними_перо;
в_точку ( 35 ,-50 );
опусти_перо;
вперед ( 50 );
влево ( 150 );
вперед ( 54 );
вправо ( 150 );
вперед ( 50 );
подними_перо;
в_точку ( 80 ,-50 );
опусти_перо;
вперед ( 50 );
влево ( 180 );
вперед ( 25 );
вправо ( 90 );
вперед ( 27 );
влево ( 90 );
вперед ( 25 );
влево ( 180 );
вперед ( 50 );
подними_перо;
в_точку ( 125 ,-100 );
опусти_перо;
вправо ( 195 );
вперед ( 52 );
вправо ( 150 );
вперед ( 52 );
вправо ( 15 );
влево ( 90 );
подними_перо;
в_точку ( 125 ,-75 );
опусти_перо;
вперед ( 27 );
подними_перо;
в_точку ( 175 ,-100 );
}
По идее 4) Цикл с предусловием
Объяснение: