-
Lenguaje
Pascal
-
Descripción
Un restaurante dedicado a ofrecer banquetes, tiene las siguientes tarifas: el costo por plato por persona es de $65.000, pero si el número de personas es mayor a 200 pero menor o igual a 300, el costo es de $55.000. Para más de 300 personas el costo por plato es de $45.000. Se requiere un algoritmo que ayude a determinar el presupuesto que se debe presentar a los clientes que deseen realizar un evento. Para la solución del problema se requiere saber el número de personas que se presupuestarán para el banquete, y con base en éstas determinar el costo del plato, con éste se determinará cuánto debe pagar el cliente en total.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program RestauranteDeBanquetes;
uses crt;
var costo_de_plato, numero_de_personas, presupuesto : real;
begin
write ('Ingresa el valor de numero de personas: ');
readln (numero_de_personas);
costo_de_plato := 65000;
if (numero_de_personas>200) and (numero_de_personas<=300) then
begin
costo_de_plato := 55000;
end;
if numero_de_personas>300 then
begin
costo_de_plato := 45000;
end;
presupuesto := numero_de_personas*costo_de_plato;
writeln ('Valor de costo de plato: ', costo_de_plato:0:6);
writeln ('Valor de presupuesto: ', presupuesto:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var costo_de_plato, numero_de_personas, presupuesto : real;
begin
write ('Ingresa el valor de numero de personas: ');
readln (numero_de_personas);
costo_de_plato := 65000;
if (numero_de_personas>200) and (numero_de_personas<=300) then
begin
costo_de_plato := 55000;
end;
if numero_de_personas>300 then
begin
costo_de_plato := 45000;
end;
presupuesto := numero_de_personas*costo_de_plato;
writeln ('Valor de costo de plato: ', costo_de_plato:0:6);
writeln ('Valor de presupuesto: ', presupuesto:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.