Seguencia De Finonnaci
Exames: Seguencia De Finonnaci. Pesquise 862.000+ trabalhos acadêmicosPor: vitorl • 1/10/2014 • 2.081 Palavras (9 Páginas) • 289 Visualizações
Program ExemploPzim ;
Var anterior1, anterior2, proximo: integer ;
i: integer ;
N: integer;
Begin
// Solicita o número de elementos da série
write('Informe o valor de N: ');
readln(N);
// Imprime primeiros dois elementos da série
anterior1:=1;
anterior2:=1;
write('1 1');
// Cálculo da série
i:=3;
while ( i <= N ) do begin
proximo:= anterior1 + anterior2;
write(' ', proximo);
anterior2:= anterior1;
anterior1:= proximo;
i:= i+1;
end;
End.
Program ExemploPzim ;
Var anterior1, anterior2, proximo: integer ;
i: integer ;
N: integer;
Begin
// Solicita o número de elementos da série
write('Informe o valor de N: ');
readln(N);
// Imprime primeiros dois elementos da série
anterior1:=1;
anterior2:=1;
write('1 1');
// Cálculo da série
i:=3;
while ( i <= N ) do begin
proximo:= anterior1 + anterior2;
write(' ', proximo);
anterior2:= anterior1;
anterior1:= proximo;
i:= i+1;
end;
End.
Program ExemploPzim ;
Var anterior1, anterior2, proximo: integer ;
i: integer ;
N: integer;
Begin
// Solicita o número de elementos da série
write('Informe o valor de N: ');
readln(N);
// Imprime primeiros dois elementos da série
anterior1:=1;
anterior2:=1;
write('1 1');
// Cálculo da série
i:=3;
while ( i <= N ) do begin
proximo:= anterior1 + anterior2;
write(' ', proximo);
anterior2:= anterior1;
anterior1:= proximo;
i:= i+1;
end;
End.
Program ExemploPzim ;
Var anterior1, anterior2, proximo: integer ;
i: integer ;
N: integer;
Begin
// Solicita o número de elementos da série
write('Informe o valor de N: ');
readln(N);
// Imprime primeiros dois elementos da série
anterior1:=1;
anterior2:=1;
write('1 1');
// Cálculo da série
i:=3;
while ( i <= N ) do begin
proximo:= anterior1 + anterior2;
write(' ', proximo);
anterior2:= anterior1;
anterior1:= proximo;
i:= i+1;
end;
End.
Program ExemploPzim ;
Var anterior1, anterior2, proximo: integer ;
i: integer ;
N: integer;
Begin
// Solicita o número de elementos da série
write('Informe o valor de N: ');
readln(N);
// Imprime primeiros dois elementos da série
anterior1:=1;
anterior2:=1;
write('1 1');
// Cálculo da série
i:=3;
while ( i <= N ) do begin
proximo:= anterior1 + anterior2;
...