TrabalhosGratuitos.com - Trabalhos, Monografias, Artigos, Exames, Resumos de livros, Dissertações
Pesquisar

Seguencia De Finonnaci

Exames: Seguencia De Finonnaci. Pesquise 862.000+ trabalhos acadêmicos

Por:   •  1/10/2014  •  2.081 Palavras (9 Páginas)  •  289 Visualizações

Página 1 de 9

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;

...

Baixar como (para membros premium)  txt (10.4 Kb)  
Continuar por mais 8 páginas »
Disponível apenas no TrabalhosGratuitos.com