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
821 visualizaciones desde el 15 de Abril del 2016. Una media de 28 por semana
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

Actualizado el 16 de Abril del 2016 (Creado el 15 de Abril del 2016)gráfica de visualizaciones de la versión: 1.0
822 visualizaciones desde el 15 de Abril del 2016. Una media de 28 por semana
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

http://lwp-l.com/s3508