• Lenguaje

    Pascal

  • Descripción

    El consultorio del Dr. Lorenzo T. Mata Lozano tiene como política cobrar la consulta con base en el número de cita, de la siguiente forma:
    - Las tres primeras citas a $200.00 c/u.
    - Las siguientes dos citas a $150.00 c/u.
    - Las tres siguientes citas a $100.00 c/u.
    - Las restantes a $50.00 c/u, mientras dure el tratamiento.
    Se requiere un algoritmo para determinar:
    a) Cuánto pagará el paciente por la cita.
    b) El monto de lo que ha pagado el paciente por el tratamiento.

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

var monto_que_ha_pagado, numero_de_cita, pago_por_la_cita : integer;
begin
    write ('Ingresa el valor de numero de cita: ');
    readln (numero_de_cita);
    pago_por_la_cita := 0;
    monto_que_ha_pagado := 0;
    if (numero_de_cita>=1) and (numero_de_cita<=3) then
        begin
            pago_por_la_cita := 200;
            monto_que_ha_pagado := numero_de_cita*200;
        end;
    if (numero_de_cita>=4) and (numero_de_cita<=5) then
        begin
            pago_por_la_cita := 150;
            monto_que_ha_pagado := 3*200+(numero_de_cita-3)*150;
        end;
    if (numero_de_cita>=6) and (numero_de_cita<=9) then
        begin
            pago_por_la_cita := 100;
            monto_que_ha_pagado := 3*200+2*150+(numero_de_cita-5)*100;
        end;
    if numero_de_cita>=10 then
        begin
            pago_por_la_cita := 50;
            monto_que_ha_pagado := 3*200+2*150+3*100+(numero_de_cita-9)*50;
        end;
    writeln ('Valor de monto que ha pagado: ', monto_que_ha_pagado);
    writeln ('Valor de pago por la cita: ', pago_por_la_cita);
    writeln;
    write ('Presiona una tecla para terminar . . . ');
    readkey;
end.