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