• Lenguaje

    Pascal

  • Descripción

    Calcule el monto del pago de una persona que al inscribirse en la alberca olímpica, dependiendo de si es alumno de la universidad o no. Si es alumno se le hará un 50% de descuento tanto en la inscripción como en la mensualidad. Las cuotas sin descuento son: Inscripción: $100.00, mensualidad $150.00.

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

var es_alumno : integer;
var descuento, inscripcion, mensualidad, monto_del_pago : real;
begin
    inscripcion := 100;
    mensualidad := 150;
    writeln ('Selecciona el valor de es alumno.');
    writeln ('    1.- Si');
    writeln ('    2.- No');
    write ('    : ');
    repeat
        readln (es_alumno);
        if (es_alumno<1) or (es_alumno>2) then
            write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
    until (es_alumno>=1) and (es_alumno<=2);
    if es_alumno=1 then
        begin
            descuento := (inscripcion+mensualidad)*0.5;
        end
    else
        begin
            descuento := 0;
        end;
    monto_del_pago := inscripcion+mensualidad-descuento;
    writeln ('Valor de descuento: ', descuento:0:6);
    writeln ('Valor de inscripcion: ', inscripcion:0:6);
    writeln ('Valor de mensualidad: ', mensualidad:0:6);
    writeln ('Valor de monto del pago: ', monto_del_pago:0:6);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.