el diagrama parte desde 0 y terminar en 150
esto son los numeros:
0,1,1,2,3,5,8,13,21,34,55,89,144 + 6
cada término de la sucesión se obtiene sumando los dos anteriores.
evalua el diagrama de flujo descrito en el siguiente enlace:
http://luiscastellanos.wordpress.com/2007/02/25/se...
complementado por el mismo autor con esta programacion
Serie de Fibonacci (Programa en Pascal)
20 mar
program fibonacci;
uses crt;
var
a,b,c:int64;
n,contador:integer;
bandera:boolean;
bandera1:boolean;
seguir:char;
begin
clrscr;
bandera:=true;
while bandera do
contador:=3;
bandera1:=false;
writeln(‘Calculo de Serie de Fibonacci.’);
writeln;
write(‘Ingrese numero de terminos de la serie a calcular: ‘);
readln(n);
while n<1 do
write(‘Ingrese numero mayor que 0…’);
end;
a:=0;
b:=1;
c:=a+b;
writeln(‘Serie de Fibonacci con ‘,n,’ terminos:’);
if n=1 then
writeln(a);
if n=2 then
writeln(a,’ ‘,b);
if n=3 then
writeln(a,’ ‘,b,’ ‘,c);
if n>3 then
while contador<n do
if bandera1=false then
write(a,’ ‘,b,’ ‘,c,’ ‘);
bandera1:=true;
a:=b;
b:=c;
write(c,’ ‘);
contador:=contador+1;
writeln(‘Desea continuar? (s/n) ‘);
readln(seguir);
if seguir <> ‘s’ then
bandera:=false;
end.
Copyright © 2024 Q2A.ES - All rights reserved.
Answers & Comments
Verified answer
evalua el diagrama de flujo descrito en el siguiente enlace:
http://luiscastellanos.wordpress.com/2007/02/25/se...
complementado por el mismo autor con esta programacion
Serie de Fibonacci (Programa en Pascal)
20 mar
program fibonacci;
uses crt;
var
a,b,c:int64;
n,contador:integer;
bandera:boolean;
bandera1:boolean;
seguir:char;
begin
clrscr;
bandera:=true;
while bandera do
begin
contador:=3;
bandera1:=false;
clrscr;
writeln(‘Calculo de Serie de Fibonacci.’);
writeln;
write(‘Ingrese numero de terminos de la serie a calcular: ‘);
readln(n);
writeln;
while n<1 do
begin
write(‘Ingrese numero mayor que 0…’);
readln(n);
writeln;
end;
a:=0;
b:=1;
c:=a+b;
writeln(‘Serie de Fibonacci con ‘,n,’ terminos:’);
writeln;
if n=1 then
writeln(a);
if n=2 then
writeln(a,’ ‘,b);
if n=3 then
writeln(a,’ ‘,b,’ ‘,c);
if n>3 then
while contador<n do
begin
if bandera1=false then
begin
write(a,’ ‘,b,’ ‘,c,’ ‘);
bandera1:=true;
end;
a:=b;
b:=c;
c:=a+b;
write(c,’ ‘);
contador:=contador+1;
end;
writeln;
writeln;
writeln(‘Desea continuar? (s/n) ‘);
readln(seguir);
if seguir <> ‘s’ then
bandera:=false;
end;
end.