-
Lenguaje
Pascal
-
Descripción
Los alumnos de una escuela desean realizar un viaje de estudios, pero requieren determinar cuánto les costará el pasaje, considerando que las tarifas del autobús son las siguientes: si son más de 100 alumnos, el costo es de $20; si son entre 50 y 100, $35; entre 20 y 49, $40, y si son menos de 20 alumnos, $70 por cada uno. Determinar el costo del pasaje de cada alumno.
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
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program PasajeDeUnViajeDeEstudios;
uses crt;
var costo_del_pasaje, numero_de_alumnos : integer;
begin
write ('Ingresa el valor de numero de alumnos: ');
readln (numero_de_alumnos);
costo_del_pasaje := 70;
if numero_de_alumnos>=20 then
begin
costo_del_pasaje := 40;
end;
if numero_de_alumnos>=40 then
begin
costo_del_pasaje := 35;
end;
if numero_de_alumnos>100 then
begin
costo_del_pasaje := 20;
end;
writeln ('Valor de costo del pasaje: ', costo_del_pasaje);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var costo_del_pasaje, numero_de_alumnos : integer;
begin
write ('Ingresa el valor de numero de alumnos: ');
readln (numero_de_alumnos);
costo_del_pasaje := 70;
if numero_de_alumnos>=20 then
begin
costo_del_pasaje := 40;
end;
if numero_de_alumnos>=40 then
begin
costo_del_pasaje := 35;
end;
if numero_de_alumnos>100 then
begin
costo_del_pasaje := 20;
end;
writeln ('Valor de costo del pasaje: ', costo_del_pasaje);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.