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');
END;
ELSE
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); READLN(h);
A:=b*h;
WRITELN('El area del triangulo es: ')
END;
ELSE