• Lenguaje

    Pascal

  • Descripción

    Un grupo de alumnos de un centro educativo desea saber cuánto se va a gastar en pasajes para realizar el viaje de promoción, el precio de cada pasaje varía de acuerdo con el di en que viajan así como también con el número de alumnos que van a viajar.
    Cantidad de alumnos | Precio de pasaje por persona S/. hasta el día 15 del mes | Después del día 15 del mes
    1 - 20 | 60 | 50
    21 a más | 55 | 45
    Elabore un algoritmo que muestre cuanto es lo que debe pagar por un grupo de estudiantes.

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
program ViajeDePromocionDeUnCentroEducativo;
uses crt;

var dia_del_mes, numero_de_alumnos, pasaje_por_persona : real;
begin
    write ('Ingresa el valor de dia del mes: ');
    readln (dia_del_mes);
    write ('Ingresa el valor de numero de alumnos: ');
    readln (numero_de_alumnos);
    pasaje_por_persona := 0;
    if (dia_del_mes<=15) and (numero_de_alumnos<21) then
        begin
            pasaje_por_persona := 60;
        end;
    if (dia_del_mes<=15) and (numero_de_alumnos>=21) then
        begin
            pasaje_por_persona := 50;
        end;
    if (dia_del_mes>15) and (numero_de_alumnos<21) then
        begin
            pasaje_por_persona := 55;
        end;
    if (dia_del_mes>15) and (numero_de_alumnos>=21) then
        begin
            pasaje_por_persona := 45;
        end;
    writeln ('Valor de pasaje por persona: ', pasaje_por_persona:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.