-
Lenguaje
Pascal
-
Descripción
Una empresa de servicios turísticos durante el día registra cierta cantidad de servicios de paseos turísticos. Los descuentos se realizan por la cantidad de personas en grupo. En el caso de grupos menores de 4 personas el descuento es 20%, entre 4 y menores de 7 personas el descuento es de 35% y 7 a más personas el descuento será de 45% respectivamente. Se ingresan los datos: número de servicio, costo del servicio y cantidad de personas. Considerar 100 servicios ingresados. Se requiere:
- Ingreso de datos.
- Descuento total del servicio.
- Monto total a pagar del servicio.
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
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
program PaseosTuristicos;
uses crt;
var cantidad_de_personas, costo_del_servicio, descuento_total, i, monto_total : integer;
var numero_de_servicio : string;
begin
for i:=1 to 100 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el numero de servicio: ');
readln (numero_de_servicio);
write ('Ingresa el valor de cantidad de personas: ');
readln (cantidad_de_personas);
write ('Ingresa el valor de costo del servicio: ');
readln (costo_del_servicio);
descuento_total := 0;
if cantidad_de_personas<4 then
begin
descuento_total := costo_del_servicio*0.2;
end;
if (cantidad_de_personas>=4) and (cantidad_de_personas<=7) then
begin
descuento_total := costo_del_servicio*0.35;
end;
if cantidad_de_personas>7 then
begin
descuento_total := costo_del_servicio*0.45;
end;
monto_total := costo_del_servicio-descuento_total;
writeln ('Numero de servicio: ', numero_de_servicio);
writeln ('Valor de descuento total: ', descuento_total);
writeln ('Valor de monto total: ', monto_total);
writeln;
end;
end.
uses crt;
var cantidad_de_personas, costo_del_servicio, descuento_total, i, monto_total : integer;
var numero_de_servicio : string;
begin
for i:=1 to 100 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el numero de servicio: ');
readln (numero_de_servicio);
write ('Ingresa el valor de cantidad de personas: ');
readln (cantidad_de_personas);
write ('Ingresa el valor de costo del servicio: ');
readln (costo_del_servicio);
descuento_total := 0;
if cantidad_de_personas<4 then
begin
descuento_total := costo_del_servicio*0.2;
end;
if (cantidad_de_personas>=4) and (cantidad_de_personas<=7) then
begin
descuento_total := costo_del_servicio*0.35;
end;
if cantidad_de_personas>7 then
begin
descuento_total := costo_del_servicio*0.45;
end;
monto_total := costo_del_servicio-descuento_total;
writeln ('Numero de servicio: ', numero_de_servicio);
writeln ('Valor de descuento total: ', descuento_total);
writeln ('Valor de monto total: ', monto_total);
writeln;
end;
end.