##### http://www.lawebdelprogramador.com #####
##### Respuesta a la pregunta 42090 - Pascal/Turbo Pascal #####
##### Odlanller Ball - reyball2001@yahoo.com #####


PROGRAM MENU;
USES CRT;
VAR
  NOPCION:CHAR;{VARIABLE DEL MENU PRINCIPAL}
 CSIGA:CHAR;
  X,Y,COL1,COL2,NNUMPOT,FIL,C,A,B:INTEGER;{VARIABLES OPCION TRIANGULO DE PASCAL}
PROCEDURE CAJA(T,L,B,R:INTEGER);{PROCEDIMIENTO PARA ELABORAR CAJA EN PANTALLA}
VAR
  X:INTEGER;{DEFINICION DE UNA VARIABLE TEMPORAL}
BEGIN
  GOTOXY(L,T);WRITE(#201);
  GOTOXY(R,B);WRITE(#188);
  GOTOXY(L,B);WRITE(#200);
  GOTOXY(R,T);WRITE(#187);
  FOR X:= L+1 TO R-1 DO
    BEGIN
      GOTOXY(X,T);WRITE(#205);
      GOTOXY(X,B);WRITE(#205);
    END;
  FOR X:= T+1 TO B-1 DO
    BEGIN
      GOTOXY(L,X);WRITE(#186);
      GOTOXY(R,X);WRITE(#186);
    END;
END;
BEGIN
 NOPCION:='0';
 REPEAT
   BEGIN
     TEXTBACKGROUND(BLACK);
     CLRSCR;
     TEXTCOLOR(GREEN);
     GOTOXY(35,5);WRITE('MENU PRINCIPAL');
     GOTOXY(2,23);WRITE('REYNALDO BALLESTAS - SISTEMAS INFORMACION ');
     CAJA(1,1,24,80);
     TEXTCOLOR(WHITE);
     CAJA(7,20,18,70);
     GOTOXY(30,12);WRITE('<1>TRIANGULO DE PASCAL');
     TEXTCOLOR(RED);
     GOTOXY(30,14);WRITE('<2>TERMINAR');
     TEXTCOLOR(YELLOW);
     GOTOXY(30,16);WRITE('QUE OPCION DESEA 1..2 ');
  NOPCION:=READKEY;
  END;
  IF NOPCION='1' THEN
   BEGIN
    CSIGA:='S';
    WHILE CSIGA='S' DO
      BEGIN
        CLRSCR;
        TEXTCOLOR(GREEN);
        GOTOXY(2,2);WRITE('<4>=TRIANGULO DE PASCAL ');
        GOTOXY(12,23);WRITE('REYNALDO BALLESTAS - SISTEMAS INFORMACION ');
        CAJA(1,1,24,80);
        TEXTCOLOR(YELLOW);
        GOTOXY(15,15);WRITE('ESCRIBA LA POTENCIA A GENERAR <MAXIMO = 13> :');READ(NNUMPOT);
        CLRSCR;
        IF NNUMPOT>13 THEN
          BEGIN
            TEXTCOLOR(RED+BLINK);
            GOTOXY(5,18);WRITELN('ERROR EN EL NUMERO DE POTENCIAS, NO SE PUEDE MOSTRAR EN PANTALLA ');
          END
        ELSE
          BEGIN
            TEXTCOLOR(WHITE);
            CAJA(6,10,20,70);
            IF NNUMPOT >=1 THEN
              BEGIN
                GOTOXY(40,7);WRITE(1);
              END;
            IF NNUMPOT >=2 THEN
              BEGIN
                GOTOXY(38,8);WRITE(1);
                GOTOXY(42,8);WRITE(1);
              END;
            IF NNUMPOT > 2 THEN
              BEGIN
                COL1:=36;
                COL2:=36;
                FIL:=9;
                FOR X:=2 TO NNUMPOT-1 DO
                  BEGIN
                    C:=1;
                    A:=X;
                    B:=1;
                    GOTOXY(COL1,FIL);WRITE(1);
                    FOR Y:=1 TO X DO
                      BEGIN
                        COL1:=COL1 + 4;
                        C:=(C*A)DIV B;
                        GOTOXY(COL1,FIL);WRITE(C);
                        A:=A-1;
                        B:=B+1;
                      END;
                      COL1:=COL2-2;
                      COL2:=COL1;
                      FIL:=FIL+1;
                  END;
              END;
          END;
          TEXTCOLOR(BLUE);
          GOTOXY(30,21);WRITE('DESEA CONTINUAR <S/N> ');
          CSIGA:=UPCASE(READKEY);
      END;
   END;
 UNTIL NOPCION='2'
END.