Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Código Fuente » Pascal/Turbo Pascal » Código de Pascal/Turbo Pascal - calcular areas y perimetros con case-of

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

Volver
Agregar Código Fuente
<<>>
sin imagen de perfil

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


Pascal/Turbo Pascal

estrellaestrellaestrellaestrellaestrella(1)
Publicado el 15 de Abril del 2016 por Anonymous
11.406 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
estrellaestrellaestrellaestrellaestrella(1)

Publicado el 15 de Abril del 2016gráfica de visualizaciones de la versión: 1.0
11.407 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 (1)

Bernabe Gonzalez
16 de Septiembre del 2020
estrellaestrellaestrellaestrellaestrella
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

Comentar la versión: 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad
Acepto las políticas de privacidad

http://lwp-l.com/s3508