Составить алгоритм и написать код

[kasper182]

Составить алгоритм и написать код

​

[FONT=&quot]Составить алгоритм и написать код программы, вычисляющей значения функции [/FONT][FONT=&quot]y[/FONT][FONT=&quot], заданной графически, по значениям аргумента [/FONT][FONT=&quot]x[/FONT][FONT=&quot], введенным с консоли:[/FONT]

 

[kasper182]

График построен по принципу Фибоначчи 1 1 2 3 5 8...

 

[Léon1]

Язык программирования?:tehnari_ru_1019:

 

[kasper182]

Pascal Фибоначчи 1 1 2 3 5 8...

 

[Vladimir_S]

Составить алгоритм и написать код программы, вычисляющей значения функции y, заданной графически, по значениям аргумента x, введенным с консоли:

Извольте:

Var
 x:real;

Function Fib(z:real):Integer;
var
 i,fb,Sum,a1,a2:Word;
begin
 if z<1 then
  Fib:=1
 else
 if z<2 then
 Fib:=-1
 else
  begin
   Sum:=2;
   a1:=1;
   a2:=1;
   i:=2;
   repeat
    a2:=a1+a2;
    a1:=a2-a1;
    Sum:=Sum+a2;
    i:=i+1;
   until 1.0*Sum>z;
   if (i mod 2)=0 then Fib:=-1 else Fib:=1;
  end;
end;

Begin
 Repeat
  Write('x= ');
  Readln(x);
  If x<0 then Writeln('x out of range!');
 Until x>=0;
 Writeln('y= ',Fib(x));
 Readln;
End.