PROGRAM ejercicio_24 (input,output);
(*Ejercicio número 24 dl boletín de Estructuras simples de Datos*)
CONST
pi = 3.1415;
TYPE
TCadena = string (20);
TRAreas = RECORD
Figura:TCadena;
Lado:real;
Altura:real;
Radio:real;
Area:real;
END;
TAAreas = ARRAY [1..3] OF TRAreas;
(************************************************************************)
PROCEDURE menu;
VAR
Opcion:char;
Areas:TAAreas;
(**************************************************************)
PROCEDURE cuadrado;
BEGIN
WITH Areas[1] DO
BEGIN
Write('Escribe el lado: ');
Readln(Lado);
Figura:='CUADRADO';
Area:=Lado*Lado;
END;
END;
(**************************************************************)
PROCEDURE triangulo;
BEGIN
WITH Areas[2] DO
BEGIN
Write('Escribe la base: ');
Readln(lado);
Write('Escribe la altura: ');
Readln(Altura);
Figura:='TRIANGULO';
Area:=(Lado*Altura)/2;
END;
END;
(****************************************************************)
PROCEDURE circulo;
BEGIN
WITH Areas[3] DO
BEGIN
Write('Escribe el radio: ');
Readln(Radio);
Figura:='CIRCULO';
Area:=Radio*Radio*pi;
END;
END;
(******************************************************************)
PROCEDURE menu2;
VAR
Opcion2:char;
BEGIN
REPEAT
Writeln('[C] Cuadrado ');
Writeln('[T] Triangulo');
Writeln('[O] Circulo ');
Writeln('[V] Volver ');
Readln(Opcion2);
Writeln;
CASE Opcion2 OF
'C','c': cuadrado;
'T','t': triangulo;
'O','o': circulo;
'V','v': Writeln('Volviendo al menu anterior...');
OTHERWISE
Writeln('Opcion no valida, por favor elija otra...');
END;
UNTIL (Opcion2='v') OR (Opcion2='V');
END;
(*****************************************************************)
PROCEDURE mostrar_c;
BEGIN
WITH Areas[1] DO
BEGIN
Writeln('Figura: ',Figura);
Writeln('Lado: ',Lado:8:4);
Writeln('Area: ',Area:8:4);
END;
END;
(*******************************************************************)
PROCEDURE mostrar_o;
BEGIN
WITH Areas[3] DO
BEGIN
Writeln('Figura: ',Figura);
Writeln('Radio: ',Radio:8:4);
Writeln('Area: ',Area:8:4);
END;
END;
(*******************************************************************)
PROCEDURE mostrar_t;
BEGIN
WITH Areas[2] DO
BEGIN
Writeln('Figura: ',Figura);
Writeln('Lado: ',Lado:8:4);
Writeln('Altura: ',Altura:8:4);
Writeln('Area: ',Area:8:4);
END;
END;
(******************************************************************)
PROCEDURE menu3;
VAR
Opcion3:char;
BEGIN
REPEAT
Writeln('[C] Mostrar datos del cuadrado ');
Writeln('[O] Mostrar datos del circulo ');
Writeln('[T] Mostrar datos del triangulo');
Writeln('[M] Mostrar todos los datos ');
Writeln('[V] Volver al menu anterior ');
Readln(Opcion3);
CASE Opcion3 OF
'C','c': mostrar_c;
'O','o': mostrar_o;
'T','t': mostrar_t;
'M','m': BEGIN
mostrar_c;
mostrar_t;
mostrar_o;
END;
'V','v': Writeln('Volviendo al menu anterior...');
OTHERWISE
Writeln('Opcion no valida, por favor elija otra...');
END;
UNTIL (Opcion3 = 'V') OR (Opcion3 = 'v');
END;
(****************************************************************)
BEGIN
REPEAT
Writeln('[I] insertar datos desde teclado');
Writeln('[M] Mostrar datos por pantalla' );
Writeln('[S] Salir del programa');
Readln(Opcion);
CASE Opcion OF
'I','i':menu2;
'M','m':menu3;
'S','s':Writeln('Saliendo del programa...');
OTHERWISE
Writeln('Opcion no valida, por favor elija otra...');
END;
UNTIL (Opcion = 'S') OR (Opcion = 's');
END;
(****************************************************************************)
BEGIN
menu;
END.
Ejemplo de ejecucion:
