EJERCICIO DE PASCAL

PROGRAMA DE PSEUDOCODIGO

INICIO

 ESCRIBA("digita"0" para hallar el area de un tiangulo 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 calcula el área del rectángulo  o de un triangulo');

     WRITELN('digite"0"para hallar el área  de un triangulo "1" para hallar el área de un             rectángulo');

     READLN(P)

     IF P=0 THEN

  BEGIN  

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

     WRITENLN('digite la base del triangulo');

     READLN(b);

     WRITELN('digite la altura del triangulo');

     READLN(h);

     A=(b*h))/2;

     WRITE(A);

END

    ELSE

 BEGIN

      WRITELN('digite la base del rectángulo');

      READLN(b);

      WRITELN('digite la altura del rectángulo');

      READLN(h);

      A:=b*h;

       WRITELN('el área del triangulo es:');

       WRITE(A);

END

END