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

Imágen de perfil

calcular areas y perimetros con case-ofgráfica de visualizaciones


Pascal/Turbo Pascal

Publicado el 15 de Abril del 2016 por Carlos
6.572 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

Publicado el 15 de Abril del 2016gráfica de visualizaciones de la versión: 1.0
6.573 visualizaciones desde el 15 de Abril del 2016
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
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 (0)


No hay comentarios
 

Comentar la versión: 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s3508