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
