Question

Помогите написать программу на языке Pascal, используя цикл While: Последовательность Фибоначчи определяется так: φ0=0, φ1=1, ..., φn=φn-1+φn-2. По данному числу n определите n-е число Фибоначчи φn.

Answer 1

//PascalABC.Net 3.2
begin
var n:=readinteger('n =');
var f1:=0; var f2:=1; var i:=1;
while (i<>n) do
begin
f2+=f1;
f1:=f2-f1;
inc (i);
end;
write (f2);
end.

Answer 2

Конечно! Вот пример программы на языке Pascal, используя цикл While, для нахождения n-го числа Фибоначчи:

lessCopy code
program Fibonacci;

var
  n, i: integer;
  a, b, fib: int64;

begin
  write('Введите номер числа Фибоначчи: ');
  readln(n);
  
  a := 0;
  b := 1;
  i := 2;
  
  while i <= n do
  begin
    fib := a + b;
    a := b;
    b := fib;
    i := i + 1;
  end;
  
  writeln('Число Фибоначчи №', n, ' = ', fib);
  
  readln;
end.

Объяснение программы:

• В начале программы мы объявляем переменные n, i, a, b и fib. Переменная n будет использоваться для хранения номера искомого числа Фибоначчи, переменная i будет использоваться в цикле while для счетчика, переменные a и b будут использоваться для хранения предыдущих чисел Фибоначчи, а переменная fib будет использоваться для хранения текущего числа Фибоначчи.
• Затем мы запрашиваем у пользователя номер искомого числа Фибоначчи и считываем его в переменную n.
• Мы инициализируем переменные a и b соответственно 0 и 1, так как первые два числа Фибоначчи равны 0 и 1.
• Мы также инициализируем переменную i равной 2, так как мы уже знаем первые два числа Фибоначчи и начинаем с третьего числа.
• Мы используем цикл while, чтобы вычислить n-е число Фибоначчи. Пока счетчик i меньше или равен n, мы находим сумму предыдущих двух чисел Фибоначчи, сохраняем ее в переменную fib, обновляем значения переменных a и b и увеличиваем значение счетчика i на 1.
• По завершении цикла мы выводим результат - n-е число Фибоначчи - на экран.
• Наконец, мы используем команду readln, чтобы остановить программу и дождаться, пока пользователь нажмет клавишу Enter.