Pseudocódigo VII

Ejercicios de acciones condicionales.
Según.

Leer dos números y una operación (+-*/) usar 1,2,3 y 4 , mostrar el resultado.

1 Proceso CalculadoraConSegun

2      //Leer dos numeros y una operacion (+-*/)

3      // usar 1234 y mostar resultado.

4      Definir NumA, NumB, Resultado Como Real;

5      Definir Operacion Como Entero;

6      Escribir "Introduce NumA";

7      Leer NumA;

8      Escribir "Introduce NumB";

9      Leer NumB;

10     Escribir "Introduce Operacion (+-*/)";

11     Escribir " (1234)";

12     Leer Operacion;

13     Segun Operacion Hacer

14           1:

15                  Resultado <- NumA + NumB;

16           2:

17                  Resultado <- NumA - NumB;

18           3:

19                  Resultado <- NumA * NumB;

20           4:

21                  Resultado <- NumA / NumB;

22     FinSegun

23     si(Operacion < 5 & Operacion > 0) entonces

24            Escribir "El resultado es: " , Resultado;

25     Sino

26           Escribir "Entradas validas solo del 1 al 4";

27     FinSi

28 FinProceso

Elaborar un programa que muestre el precio de un billete de autobús.

Se calcula en base a los kilómetros de trayecto ( 0.30 Euros por Km )
Si el recorrido supera los 80 Km se aplica un 15 % de descuento y si el trayecto se realiza en día laborable (LMJV usar 1245) hay un 5 % de descuento  respecto si es día festivo (SD usar 67), los miércoles el descuento es del 10%. 
Datos ha introducir: kilómetros de recorrido y tipo de día. 

1 Proceso Autobus

2      //precio km*0.30

3      // 15% descuento si KM > 80

4      // 5% LMJV y 10%

5      Definir Km, Descuento, Precio, Total, DesEuros Como Real;

6      Definir Dia Como Entero;

7      Escribir "Dime los KM, y el dia(1,2,3,4,5,6,7)";

8      Leer Km, Dia;

9      Descuento <- 0;

10     Si Km > 80 entonces

11           Descuento <- 0.15;

12     FinSi

13     Segun Dia Hacer

14           1,2,4,5:

15                  Descuento <- Descuento + 0.05;

16           3:

17                  Descuento <- Descuento + 0.10;

18     FinSegun

19     Precio <- Km* 0.30;

20     DesEuros <- Precio * Descuento;

21     Total <- Precio - DesEuros;

22     Escribir "Precio: " , Precio, " Descuento: " , DesEuros;

23     Escribir "(", Descuento, ")" , " Total: ", Total;

24 FinProceso

Siguiente>