-
Lenguaje
Pascal
-
Descripción
Una asociación desea realizar una excursión a una playa del sur, por lo que debe determinar el costo de la excursión y cuanto le cuesta el viaje a cada asociado.
La forma de cobro es la siguiente:
- Si son más de 100 pasajeros el costo es de $650
- De 50 a 100 personas, el costo es de $400
- De 30 a 49, de $300
- Si son menos de 30, el costo de renta del autobús es de $250
Determinar el pago que se debe hacer a la compañía y cuál es el costo por persona.
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
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
program CostoDeUnaExcursion;
uses crt;
var costo_por_persona, pago, pasajeros : integer;
begin
write ('Ingresa el valor de pasajeros: ');
readln (pasajeros);
costo_por_persona := 0;
if pasajeros>100 then
begin
costo_por_persona := 650;
end;
if (pasajeros>=50) and (pasajeros<=100) then
begin
costo_por_persona := 400;
end;
if (pasajeros>=30) and (pasajeros<=49) then
begin
costo_por_persona := 300;
end;
if pasajeros<30 then
begin
costo_por_persona := 250;
end;
pago := costo_por_persona*pasajeros;
writeln ('Valor de costo por persona: ', costo_por_persona);
writeln ('Valor de pago: ', pago);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var costo_por_persona, pago, pasajeros : integer;
begin
write ('Ingresa el valor de pasajeros: ');
readln (pasajeros);
costo_por_persona := 0;
if pasajeros>100 then
begin
costo_por_persona := 650;
end;
if (pasajeros>=50) and (pasajeros<=100) then
begin
costo_por_persona := 400;
end;
if (pasajeros>=30) and (pasajeros<=49) then
begin
costo_por_persona := 300;
end;
if pasajeros<30 then
begin
costo_por_persona := 250;
end;
pago := costo_por_persona*pasajeros;
writeln ('Valor de costo por persona: ', costo_por_persona);
writeln ('Valor de pago: ', pago);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.