-
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
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.
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.