-
Lenguaje
Pascal
-
Descripción
Calcule el costo por realizar una fiesta de carne asada. Si la cantidad de invitados es menor a 30, el costo por persona es de $150, si los invitados están entre 31 y 60, el costo por persona es $140, si están entre 61 y 90, el costo por persona es de $135 y si hay más de 90, el costo por persona es de $130. El costo incluye comida, bebidas, postres y salón por 4 horas, si el evento dura más de 4 horas, se cobra $1,000 por cada hora extra.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
program FiestaDeCarneAsada;
uses crt;
var cantidad_de_invitados, costo, costo_por_persona, duracion_en_horas : real;
begin
write ('Ingresa el valor de cantidad de invitados: ');
readln (cantidad_de_invitados);
write ('Ingresa el valor de duracion en horas: ');
readln (duracion_en_horas);
costo_por_persona := 0;
if cantidad_de_invitados<31 then
begin
costo_por_persona := 150;
end;
if (cantidad_de_invitados>=31) and (cantidad_de_invitados<61) then
begin
costo_por_persona := 140;
end;
if (cantidad_de_invitados>=61) and (cantidad_de_invitados<=90) then
begin
costo_por_persona := 135;
end;
if cantidad_de_invitados>90 then
begin
costo_por_persona := 130;
end;
costo := costo_por_persona*cantidad_de_invitados;
if duracion_en_horas>4 then
begin
costo := costo+(duracion_en_horas-4)*1000;
end;
writeln ('Valor de costo: ', costo:0:6);
writeln ('Valor de costo por persona: ', costo_por_persona:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cantidad_de_invitados, costo, costo_por_persona, duracion_en_horas : real;
begin
write ('Ingresa el valor de cantidad de invitados: ');
readln (cantidad_de_invitados);
write ('Ingresa el valor de duracion en horas: ');
readln (duracion_en_horas);
costo_por_persona := 0;
if cantidad_de_invitados<31 then
begin
costo_por_persona := 150;
end;
if (cantidad_de_invitados>=31) and (cantidad_de_invitados<61) then
begin
costo_por_persona := 140;
end;
if (cantidad_de_invitados>=61) and (cantidad_de_invitados<=90) then
begin
costo_por_persona := 135;
end;
if cantidad_de_invitados>90 then
begin
costo_por_persona := 130;
end;
costo := costo_por_persona*cantidad_de_invitados;
if duracion_en_horas>4 then
begin
costo := costo+(duracion_en_horas-4)*1000;
end;
writeln ('Valor de costo: ', costo:0:6);
writeln ('Valor de costo por persona: ', costo_por_persona:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.