Código de Progress - Calculadora en Progress 4gl

<<>>
Imágen de perfil
Val: 50
Ha mantenido su posición en Progress (en relación al último mes)
Gráfica de Progress

Calculadora en Progress 4glgráfica de visualizaciones


Progress

Publicado el 3 de Julio del 2019 por Ana Zelideth
623 visualizaciones desde el 3 de Julio del 2019
Mi programa sirve para explicar las funciones CASE y WHEN que son equivalentes a un SWITCH en JAVA o .NET o solo el CASE en Pascal el objetivo es realizar una calculadora con 2 números de entrada.

mate1

1.0

Publicado el 3 de Julio del 2019gráfica de visualizaciones de la versión: 1.0
628 visualizaciones desde el 3 de Julio del 2019
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

Si quieren entrar al detalle de las instrucciones pueden entrar a la liga en mi blog
https://www.programacionparatodos.com/2019/06/matematicas-en-programacion.html
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
DEF VAR A AS INT INITIAL 0.
 
DEF VAR B AS INT INITIAL 0.
 
DEF VAR OPE AS CHAR INITIAL "SUMA".
 
 
FORM
  SKIP(1)
  A    COLON 15 LABEL "Data 1"
  B    COLON 15 LABEL "Data 2"
  "***CALCULADORA***"   COLON 15
  "SUMA"           COLON 15
  "RESTA"          COLON 15
  "MULTI"          COLON 15
  "DIV"            COLON 15
  "MODULO"         COLON 15
  "RAIZ"           COLON 15
  "EXPO"           COLON 15
  SKIP(1)
  OPE                COLON 15 LABEL "OPERACION"
WITH FRAME a SIDE-LABELS NO-ATTR-SPACE WIDTH 80.
 
REPEAT:
UPDATE A B OPE WITH FRAME a.
 
CASE OPE:
WHEN "SUMA"           THEN  DISPLAY "SUMA          "  A + B SKIP.
WHEN "RESTA"          THEN  DISPLAY "RESTA         " A - B SKIP.
WHEN "MULTI"          THEN  DISPLAY "MULTIPLICACION" A * B SKIP .
WHEN "DIVISION"       THEN  DISPLAY "DIVISION      "  A / B SKIP.
WHEN "MODULO"         THEN  DISPLAY "MODULO        "    A MOD B SKIP.
WHEN "RAIZ"           THEN  DISPLAY "RAIZ CUADRADA " SQRT(A) SKIP.
WHEN "EXPONENCIAL"    THEN  DISPLAY "EXPONENCIAL   "   EXP(A,B) SKIP.
WHEN "LOGARITMO"      THEN  DISPLAY "LOGARITMOS    "    LOG(A) SKIP.
OTHERWISE DISPLAY "OPCION INCORRECTA" SKIP.
END.
 
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/s5397