Linguagem C
Exames: Linguagem C. Pesquise 862.000+ trabalhos acadêmicosPor: mauroigor • 15/6/2013 • 1.475 Palavras (6 Páginas) • 401 Visualizações
21/08/12
Linguagem de Programação II (C)
Tranformar o Algoritmo Fibonacci em Pascal
Program Pzim;
Var
N1, n2, i, Fibonacci, n: integer;
Begin
(entrada de dados)
Write (“Éntre com n: “);
Readln (n);
{inicialização de variáveis}
n1:=1;
n2:=1;
Fibonacci:=1;
{é o primeiro termo?}
if (n=1 or n=2) then
write (‘0”, n, “termo da serie de fibonaci vale 1”)
else {nao é o primeiro termo}
begin
for i:=3 to n do
begin
Fibonacci:=n1+n2;
N2:=n1;
N1:=Fibonacci;
End;
Write (‘O”, n, “termo da serie de Fibonacci vale” ,)
End;
End.
_____________________________________________________________________________________________
Transformar o algoritmo Fatorial em Pascal
Program fatorial;
Var
I, fatorial
21/08/12
Linguagem de Programação II (C)
Tranformar o Algoritmo Fibonacci em Pascal
Program Pzim;
Var
N1, n2, i, Fibonacci, n: integer;
Begin
(entrada de dados)
Write (“Éntre com n: “);
Readln (n);
{inicialização de variáveis}
n1:=1;
n2:=1;
Fibonacci:=1;
{é o primeiro termo?}
if (n=1 or n=2) then
write (‘0”, n, “termo da serie de fibonaci vale 1”)
else {nao é o primeiro termo}
begin
for i:=3 to n do
begin
Fibonacci:=n1+n2;
N2:=n1;
N1:=Fibonacci;
End;
Write (‘O”, n, “termo da serie de Fibonacci vale” ,)
End;
End.
_____________________________________________________________________________________________
Transformar o algoritmo Fatorial em Pascal
Program fatorial;
Var
I, fatorial
21/08/12
Linguagem de Programação II (C)
Tranformar o Algoritmo Fibonacci em Pascal
Program Pzim;
Var
N1, n2, i, Fibonacci, n: integer;
Begin
(entrada de dados)
Write (“Éntre com n: “);
Readln (n);
{inicialização de variáveis}
n1:=1;
n2:=1;
Fibonacci:=1;
{é o primeiro termo?}
if (n=1 or n=2) then
write (‘0”, n, “termo da serie de fibonaci vale 1”)
else {nao é o primeiro termo}
begin
for i:=3 to n do
begin
Fibonacci:=n1+n2;
N2:=n1;
N1:=Fibonacci;
End;
Write (‘O”, n, “termo da serie de Fibonacci vale” ,)
End;
End.
_____________________________________________________________________________________________
Transformar o algoritmo Fatorial em Pascal
Program fatorial;
Var
I, fatorial
21/08/12
Linguagem de Programação II (C)
Tranformar o Algoritmo Fibonacci em Pascal
Program Pzim;
Var
N1, n2, i, Fibonacci, n: integer;
Begin
(entrada de dados)
Write
...