-
Lenguaje
Pascal
-
Descripción
La langosta ahumada es una empresa dedicada a ofrecer banquetes; sus tarifas son las siguientes: el costo de platillo por persona es de $95.00, pero si el número de personas es mayor a 200 pero menor o igual a 300, el costo es de $85.00. Para más de 300 personas el costo por platillo es de $75.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 LaLangostaAhumada;
uses crt;
var costo_del_platillo, numero_de_personas, presupuesto : integer;
begin
write ('Ingresa el valor de numero de personas: ');
readln (numero_de_personas);
costo_del_platillo := 95;
if (numero_de_personas>200) and (numero_de_personas<=300) then
begin
costo_del_platillo := 85;
end;
if numero_de_personas>300 then
begin
costo_del_platillo := 75;
end;
presupuesto := costo_del_platillo*numero_de_personas;
writeln ('Valor de costo del platillo: ', costo_del_platillo);
writeln ('Valor de presupuesto: ', presupuesto);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var costo_del_platillo, numero_de_personas, presupuesto : integer;
begin
write ('Ingresa el valor de numero de personas: ');
readln (numero_de_personas);
costo_del_platillo := 95;
if (numero_de_personas>200) and (numero_de_personas<=300) then
begin
costo_del_platillo := 85;
end;
if numero_de_personas>300 then
begin
costo_del_platillo := 75;
end;
presupuesto := costo_del_platillo*numero_de_personas;
writeln ('Valor de costo del platillo: ', costo_del_platillo);
writeln ('Valor de presupuesto: ', presupuesto);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.