Serie de Fibonacci (Programa en Pascal)

 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.

About these ads

Acerca de Luis Castellanos

Un caraqueño en Maracaibo. Docente Universitario y Bloguero. Orgulloso padre de dos hijos.

Publicado el marzo 20, 2007 en Programación. Añade a favoritos el enlace permanente. 21 comentarios.

  1. muy bien man me sirvio d ayuda

  2. profe quiero saber si en su pagina estan los 100 elementos de la serie de fibonacci…. esta muy bueno el material de los flujos pero no se si tiene los 100 elementos..

  3. No. Este programa calcula “n” términos de la serie, ingresando “n”…

  4. wena loko necesito el fibonacci pero en
    VBScript a kien xuxa se le okurre en pascal

    si eso ya no corre xDDD

    slds

  5. CUAL ES LA FINALIDAD DE LA SERIE FIBONACCI

  6. Saludos xpitutox: el pascal aun está vivo. De hecho uno de los lenguajes de programación más usados hoy en día es el Delphi, que es una versión de Pascal Orientado a Objetos…

    Ulises: es una serie matemática, descubierta por el señor Fibonacci…

  7. hoola prof- LUIS CASTELLANOS.

    soy estudiante y quisiera me recomendara un tuturial que este chido . de pascal .. graciaS.

  8. Saludos Auhyt. En

    http://luiscastellanos.wordpress.com/programacion/

    hay varias guías de programación y manuales de Pascal… Espero te sirvan…

  9. quisiera la serie de fibonacci en ada95…….alguien la tiene ????’

  10. buenas tardes. necesito de su ayuda profesor. estoy trabajando con pascal y no encuantro solucion a este ejercicio.
    Realice un programa que calcule la suma de las primeros N numeros.
    a) Armstrong
    B) de la seri de Fibonacci.
    por favor. trate de responder. a mi correo. o por aqui profesor.

  11. quiero que me ayude a resolver un programa en pascal siguiendo la secuencia de fibonacci, y que lea un solo numero

  12. HOLA LUIS PUES QUIERO AVER SI ME AYUDASA ASER UN RPOGRAMA DE LA SERIE DE FIBONACIO CON EL CICLO FOR DE PASCAL PROFAVOR
    ESTAS MUY BIEN TU PAGINA

  13. excelente pagina! pero necesito hacer una guia como hago para q me ayuden?

  14. graxias profe me sirvio de mucho

  15. bien…perfecto..me resulto, lo unico que tuve que hacer, fue cambiar las comillas en los writeln
    muchas gracias, se valora tu aporte….

  16. Hola..necesito que me muestre la secuencia 1 1 2 3 5 8… n
    pensé que era fibonacci pero no me muestra lo que quiero! :(

  17. hola soy cristian tengo una tarea para calcular la serie de fibonacci en delphi no se si me puedan ayudar lo nececito para el lunes …
    .

  18. mira como hago para realizar un algoritmo en pascal con la serie fibonacci que tenga un comparativo de nombre , apellido y cédula

Deja un comentario

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

Seguir

Recibe cada nueva publicación en tu buzón de correo electrónico.

Únete a otros 154 seguidores

%d personas les gusta esto: