EJEMPLOS DE PROGRAMACION DE PASCAL

PROGRAMA QUE CALCULE EL ÁREA DE UN TRIANGULO O DE UN RECTÁNGULO

PROGRAMA EN  PSEUDOCODIGO

INICIO

ESCRIBA("digita "0" para hallar el area de u  triangulo o cualquier numero para hallar el area de un rectangulo)

LEA  (P)

SI   P=0 HAGA 

      LEA (b, h)

      A:=(b*h)/2

     ESCRIBA(A)

  FIN DEL SI

SINO

      LEA(b,h)

      A:=B*H

     ESCRIBA (A)

  FIN DEL SINO

FIN 

PROGRAMA EN TURBO PASCAL

PROGRAM AREA; 

USES CRT;

VAR P, b, h, a: REAL;

  BEGIN

            CLRSCR;

            WRITELN(' Programa que calcule el area de un rectangulo o de un trianglo');

            WRITELN('Digite "0" para hallar el area de un triangulo o de cualquier cantidad para el area de un rectangulo');

            READLN(P);

           IF P=0 THEN 

                BEGIN

                           WRITELN('Digite la base y la altura del triangulo');

                           WRITELN('Digite la base del triangulo');

                          READLN(b);

                          WRITELN('Digite la altura del triangulo');
                           READLN(h);
                           A:=(b*h)/2;
                          WRITELN('El area del triangulo es:  ')
                           WRITELN(A);
    END
   ELSE
                         WRITELN('Digite la base del triangulo');

                           WRITELN('Digite la base del triangulo');

                          READLN(b);

                          WRITELN('Digite la altura del triangulo');
                           READLN(h);
                           A:=b*h;
                          WRITELN('El area del triangulo es:  ')

                           WRITELN(A);           
   END;
   ELSE