-
Lenguaje
Pascal
-
Descripción
La langosta ahumada es una empresa dedicada a ofrecer banquetes sus tarifas son las siguientes: El costo del platillo por persona es de 95 pesos, pero si el número de personas es entre 100 y 200 el costo es de 85 pesos. Entre 201 y 300 personas el costo es de 75 pesos y más de 300 personas el costo es de 65 pesos. Calcule el costo total agregándole el IVA del 16% para la compra de N platillos. Se deberá de imprimir el costo desglosando el IVA y también el descuento en caso de que aplique
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
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
program LaLangostaAhumada3;
uses crt;
var IVA, costo_del_platillo, descuento, numero_de_personas, subtotal : real;
var total : real;
begin
write ('Ingresa el valor de numero de personas: ');
readln (numero_de_personas);
costo_del_platillo := 95;
if (numero_de_personas>100) and (numero_de_personas<=200) then
begin
costo_del_platillo := 85;
end;
if (numero_de_personas>200) and (numero_de_personas<=300) then
begin
costo_del_platillo := 75;
end;
if numero_de_personas>300 then
begin
costo_del_platillo := 65;
end;
subtotal := costo_del_platillo*numero_de_personas;
descuento := 95.0*numero_de_personas-subtotal;
IVA := subtotal*0.16;
total := subtotal+IVA;
writeln ('Valor de IVA: ', IVA:0:6);
writeln ('Valor de costo del platillo: ', costo_del_platillo:0:6);
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de subtotal: ', subtotal:0:6);
writeln ('Valor de total: ', total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var IVA, costo_del_platillo, descuento, numero_de_personas, subtotal : real;
var total : real;
begin
write ('Ingresa el valor de numero de personas: ');
readln (numero_de_personas);
costo_del_platillo := 95;
if (numero_de_personas>100) and (numero_de_personas<=200) then
begin
costo_del_platillo := 85;
end;
if (numero_de_personas>200) and (numero_de_personas<=300) then
begin
costo_del_platillo := 75;
end;
if numero_de_personas>300 then
begin
costo_del_platillo := 65;
end;
subtotal := costo_del_platillo*numero_de_personas;
descuento := 95.0*numero_de_personas-subtotal;
IVA := subtotal*0.16;
total := subtotal+IVA;
writeln ('Valor de IVA: ', IVA:0:6);
writeln ('Valor de costo del platillo: ', costo_del_platillo:0:6);
writeln ('Valor de descuento: ', descuento:0:6);
writeln ('Valor de subtotal: ', subtotal:0:6);
writeln ('Valor de total: ', total:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.