Trabalho De Fibonacci E Fatorial Em Pascal

Program Fibonacci ;

Var antes1, antes2, proximo: integer ;

i: integer ;

N: integer;

Begin

write('Informe o valor de N: ');

readln(N);

antes1:=1;

antes2:=1;

write('1 1');

i:=3;

while ( i <= N ) do begin

proximo:= antes1 + antes2;

write(' ', proximo);

antes2:= antes1;

antes1:= proximo;

i:= i+1;

end;

End.

Program fatorial ;

var

x:integer;

function fat(x:integer):integer;

begin

if x=0 then fat:=1

else fat:=fat(x-1)*x;

end ;

begin

writeln ('Escreva o número que deseja achar o fatorial');

read (x);

write('O fatorial é : ');

write (fat(x));

end .

Program Fibonacci;

var

n:integer;

function Fibonacci(n:integer):integer;

begin

if n<=1

then Fibonacci:=n

else Fibonacci:=Fibonacci(n-1)+Fibonacci(n-2);

end;

begin

writeln ('Escreva o número que deseja calcular da série de Fibonacci:');

read (n);

write('O resultado é : ');

write (Fibonacci(n));

end.

Program Fibonacci;

var

n:integer;

function Fibonacci(n:integer):integer;

begin

if n<=1

then Fibonacci:=n

else Fibonacci:=Fibonacci(n-1)+Fibonacci(n-2);

end;

begin