Código de Pascal/Turbo Pascal - calcular areas y perimetros con case-of

Filtrado por el tag: arraycopy

<<>>

calcular areas y perimetros con case-of

Pascal/Turbo Pascal

(1)

Publicado el 15 de Abril del 2016 por Anonymous

11.728 visualizaciones desde el 15 de Abril del 2016

Este código fue utilizado de manera didáctica a nivel bachillerato para comprender el funcionamiento de CASE-OF, durante los procedimientos pueden alterar el código con la forma correspondiente para sacar el area y perimetro de cualquiera de las figuras.

Requerimientos

se utilizó el compilador FPC en su versión 3.0.0

1.0
(1)

Publicado el 15 de Abril del 2016

gráfica de visualizaciones de la versión: 1.0

11.729 visualizaciones desde el 15 de Abril del 2016

PROGRAM AREAS;

USES CRT;

VAR

 opcion:CHAR;

PROCEDURE menu;

BEGIN

 WRITELN ('opciones:');

 WRITELN ('1)cuadrado');

 WRITELN ('2)rectangulo');

 WRITELN ('3)triangulo');

 WRITELN ('4)circulo');

END;

PROCEDURE cuadrado;

VAR

 a,b:INTEGER;

BEGIN

 WRITELN ('calculando area y perimetro del cuadrado');

END;

PROCEDURE rectangulo;

VAR

 a,b:INTEGER;

BEGIN

 WRITELN ('calculando el area y perimetro del rectangulo');

END;

PROCEDURE triangulo;

VAR

 a,b:INTEGER;

BEGIN

 WRITELN ('calculando el area y el perimetro del triangulo');

END;

PROCEDURE circulo;

VAR

 a:INTEGER;

BEGIN

 WRITELN('calculando el area y el perimetro del circulo');

END;

BEGIN

 CLRSCR;

 WRITELN ('programa para calcular el area y el perimetro de figuras geometricas');

 menu;

 WRITELN ('seleccione una opci¢n');

 READLN (opcion);

 CASE opcion OF

  '1':cuadrado;

  '2':rectangulo;

  '3':triangulo;

  '4':circulo;

 ELSE

  WRITELN ('opci¢n incorrecta');

 END;

 READLN;

END.

Comentarios sobre la versión: 1.0 (1)

Bernabe Gonzalez

16 de Septiembre del 2020

Cuanto es el limite de opciones para selecionar que se pueden agregar, yo solo puedo ingresar 9 opciones iniciando desde 0 y cuando pongo la opcion 10 no me deja contuniar dice constante no coinciden

Responder