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.