-
Lenguaje
Pascal
-
Descripción
El Restaurante "Boca Marina" es una empresa dedicada a ofrecer banquetes; sus tarifas son las siguientes: el costo de platillo por persona es de $125.00, pero si el número de personas es mayor a 150 pero menor o igual a 250, el costo es de $100.00. Para más de 250 personas el costo por platillo es de $85.00. Se requiere un algoritmo que ayude a determinar el presupuesto que se debe presentar a los clientes que deseen realizar un evento.
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 RestauranteBocaMarina;
uses crt;
var costo_de_platillo, numero_de_personas, presupuesto : integer;
begin
write ('Ingresa el valor de numero de personas: ');
readln (numero_de_personas);
costo_de_platillo := 125;
if (numero_de_personas>150) and (numero_de_personas<=250) then
begin
costo_de_platillo := 100;
end;
if numero_de_personas>250 then
begin
costo_de_platillo := 85;
end;
presupuesto := numero_de_personas*costo_de_platillo;
writeln ('Valor de costo de platillo: ', costo_de_platillo);
writeln ('Valor de presupuesto: ', presupuesto);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var costo_de_platillo, numero_de_personas, presupuesto : integer;
begin
write ('Ingresa el valor de numero de personas: ');
readln (numero_de_personas);
costo_de_platillo := 125;
if (numero_de_personas>150) and (numero_de_personas<=250) then
begin
costo_de_platillo := 100;
end;
if numero_de_personas>250 then
begin
costo_de_platillo := 85;
end;
presupuesto := numero_de_personas*costo_de_platillo;
writeln ('Valor de costo de platillo: ', costo_de_platillo);
writeln ('Valor de presupuesto: ', presupuesto);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.