1 семестр / Лабораторная 1 / Lab1_1_var12

program Lab1_1_var12;
var F,F0,F1,n:integer; {Определяем переменные}
    eps:real; {погрешность}

function Fn(n:integer):real; {Функция Fn с формальным параметром n(integer-целое)}
                              {тип функции (real-вещественное)}
  begin
    Fn:=exp(ln((1+sqrt(5))/2)*n)/sqrt(5) {Формула расчета функции}
  end;
   
begin
  write('eps=');  {Вводим погрешность}
  readln(eps); {присваиваем переменной eps}
  F0:=0;  {Первое число Фибоначи}
  F1:=1;  {Второе число Фибоначи}
  F:=F0+F1; {Число Фибоначи равно сумме двух предшествующих чисел}
  n:=2; {первые два элемента  это 0 и 1}
  while abs(F-Fn(n))>eps do {Запускаем цикл с предусловием который выполняется пока}
                            {разницы двух выражений больше eps}
    begin
      F0:=F1; {Первому расчетному числу присваивается значения второго числа Фибоначи}
      F1:=F;  {Второму расчетному числу присваивается значение суммы первых двух чисел Фибоначи}
      F:=F0+F1; {Число Фибоначи присваивается сумма первого числа фибоначи и второго числа Фибоначи}
      n:=n+1; {Для расчета следующего элемента последовательности}
    end;
  writeln();
  writeln('Наименьший номер n = ',n); {вывод результата на экран}
  writeln('F=',F:0,'  Fn =',Fn(n):0:2);
  readln
end.