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