-
Lenguaje
Pascal
-
Descripción
Leer el número de unidades consumidas de cada alimento o bebida ordenado y calcular la cuenta total del pedido.
Trago ron Barcelo (4 dólares)
Bocadillo de jamón y queso (3 dólares)
Papas fritas con chorizo (5 dólares)
Refresco (1 dólar)
Cerveza Stella A. (2 dólares)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program CuentaDeCadaAlimentoOBebida;
uses crt;
var bocadillos_de_jamon_y_queso, cervezas_stella_a, cuenta_total, papas_fritas_con_chorizo, refrescos : integer;
var tragos_de_ron_barcelo : integer;
begin
write ('Ingresa el valor de bocadillos de jamon y queso: ');
readln (bocadillos_de_jamon_y_queso);
write ('Ingresa el valor de cervezas stella a: ');
readln (cervezas_stella_a);
write ('Ingresa el valor de papas fritas con chorizo: ');
readln (papas_fritas_con_chorizo);
write ('Ingresa el valor de refrescos: ');
readln (refrescos);
write ('Ingresa el valor de tragos de ron barcelo: ');
readln (tragos_de_ron_barcelo);
cuenta_total := tragos_de_ron_barcelo*4+bocadillos_de_jamon_y_queso*3+papas_fritas_con_chorizo*5+refrescos+cervezas_stella_a*2;
writeln ('Valor de cuenta total: ', cuenta_total);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var bocadillos_de_jamon_y_queso, cervezas_stella_a, cuenta_total, papas_fritas_con_chorizo, refrescos : integer;
var tragos_de_ron_barcelo : integer;
begin
write ('Ingresa el valor de bocadillos de jamon y queso: ');
readln (bocadillos_de_jamon_y_queso);
write ('Ingresa el valor de cervezas stella a: ');
readln (cervezas_stella_a);
write ('Ingresa el valor de papas fritas con chorizo: ');
readln (papas_fritas_con_chorizo);
write ('Ingresa el valor de refrescos: ');
readln (refrescos);
write ('Ingresa el valor de tragos de ron barcelo: ');
readln (tragos_de_ron_barcelo);
cuenta_total := tragos_de_ron_barcelo*4+bocadillos_de_jamon_y_queso*3+papas_fritas_con_chorizo*5+refrescos+cervezas_stella_a*2;
writeln ('Valor de cuenta total: ', cuenta_total);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.