LENGUAJES IMPERATIVOS

AQUI LES PRESENTO LA SERIE DE FIBONACCI, QUE COMO VEN LA AMO PUES LA CONOSCO Y COMPRENDO MUY BIEN QUE ME ES MUY SENCILLO PASARLA EN AUN LENGUAJE DE PROGRAMACION

Cobol

IDENTIFICATION DIVISION.
  PROGRAM-ID. FIBONACCI.

ENVIRONMENT DIVISION.
DATA DIVISION.

  WORKING-STORAGE SECTION.
  77 N  PIC 9(18).
  77 N1 PIC Z(18).
  77 M  PIC 9(18) VALUE 1.
  77 O  PIC 9(18).
  77 I  PIC 9(4) VALUE 1.
  77 Q  PIC X.

PROCEDURE DIVISION.
  PARA-A.
    DISPLAY ( 1 , 1 ) ERASE.
    DISPLAY ( 2 , 1 ) "LA SERIE FIBONACCI DEL 1 AL 100:".
    MOVE 0 TO N.
    DISPLAY " ".
    DISPLAY 0.
    DISPLAY 1.
    MOVE 0 TO O.

  PARA-B.
    COMPUTE N = O + M.
    MOVE N TO N1.
    MOVE M TO O.
    MOVE N TO M.
    DISPLAY N1.
    ADD 1 TO I.
    IF I = 21
      DISPLAY "PRESIONA TAB KEY PARA VER LA SIGINETE PAGINA."
      ACCEPT Q.
    IF I = 41
      DISPLAY "PRESIONA TAB KEY PARA VER LA SIGINETE PAGINA."
      ACCEPT Q.
    IF I = 61
      DISPLAY "PRESIONA TAB KEY PARA VER LA SIGINETE PAGINA."
      ACCEPT Q.
    IF I = 81
      DISPLAY "PRESIONA TAB KEY PARA VER LA SIGINETE PAGINA."
      ACCEPT Q
    IF I = 99
      GO TO STOP-PARA
    ELSE
      GO TO PARA-B.
  STOP-PARA.
  DISPLAY " ".
  STOP RUN

Fortran

        I=35; K=I
      CALL F(I)
      PRINT *,K,'LA SERIE FIBONACCI ES',I
      STOP
      END PROGRAM
      SUBROUTINE F(I)
      DIMENSION A(I+1)
      A(1)=1; A(2)=1
      DO1J=3,I+1
      A(J)=A(J-1)+A(J-2)
1     CONTINUE
      I=A(I+1)
      RETURN
      END SUBROUTINE

FACTORIAL PARA N NUMEROS

Pascal

uses crt;
var
  numero,cota:longint;
  contador:integer;
begin
  clrscr;
  write(‘Escriba un numero: ‘);
  read(cota);
  contador:=1;
  numero:=1;
 repeat
    numero:=numero*contador;
    contador:=contador+1;
 until
    contador>cota;
    writeln(‘El factorial del numero es: ‘,numero);
    readkey;
end.

EL FACTORIAL DE 7 NUMEROS.

ALGOL 

PROC factorial = (INT n)LONG LONG INT:
  CASE n+1 IN
    1,1,2,6,24,120,720
  OUT
    n*factorial(n-1)
  ESAC
;
ESPERANDO COMENTARIOS GRACIAS