Operaciones+aritméticas

=__**Menú: Operaciones aritméticas**__=

> **programa que lee dos números y, tras mostrar un menú de operaciones (suma, resta, multiplicación y división)** > **Realiza la operación seleccionada por el usuario**

code format="pascal" PROGRAM Menu ; VAR rNum_1, rNum_2 : Real ; iOpcion : Integer ; BEGIN { Leer los datos ---} Write ('Escribe un número entero o real: ') ; Readln (rNum_1) ; Write ('           Escribe otro número: ') ; Readln (rNum_2) ;

{ Mostrar el menú de opciones --} Writeln ; Writeln ('-- Menú de opciones --') ; Writeln (' 1  Sumar') ; Writeln (' 2  Restar') ; Writeln (' 3  Multiplicar') ; Writeln (' 4  Dividir') ;

{ Leer la opción del usuario ---} Write  ('     Escribe el número de la opción: ') ; Readln (iOpcion) ;

{ Realizar la acción elegida por el usuario } CASE iOpcion OF      1 : Writeln ('La suma es: ',       rNum_1 + rNum_2 :0:2) ; 2 : Writeln ('La diferencia es: ', rNum_1 - rNum_2 :0:2) ; 3 : Writeln ('El producto es: ',  rNum_1 * rNum_2 :0:2) ; 4 : Writeln ('El división es: ',  rNum_1 / rNum_2 :0:2) ; ELSE Writeln ('Debe ser un número entero entre 1 y 4') ; END ; END. code