-
Lenguaje
Pascal
-
Descripción
Calcular el pago por ciclo en la Universidad, según la cantidad de créditos, el pago por crédito es según la categoría:
Categoría | Pago Crédito
A | 125
B | 150
C | 125
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
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
program PagoPorCicloEnLaUniversidad;
uses crt;
var cantidad_de_creditos, categoria, pago_por_ciclo, pago_por_credito : integer;
begin
write ('Ingresa el valor de cantidad de creditos: ');
readln (cantidad_de_creditos);
writeln ('Selecciona el valor de categoria.');
writeln (' 1.- A');
writeln (' 2.- B');
writeln (' 3.- C');
write (' : ');
repeat
readln (categoria);
if (categoria<1) or (categoria>3) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (categoria>=1) and (categoria<=3);
if (categoria=1) or (categoria=3) then
begin
pago_por_credito := 125;
end
else
begin
pago_por_credito := 150;
end;
pago_por_ciclo := cantidad_de_creditos*pago_por_credito;
writeln ('Valor de pago por ciclo: ', pago_por_ciclo);
writeln ('Valor de pago por credito: ', pago_por_credito);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var cantidad_de_creditos, categoria, pago_por_ciclo, pago_por_credito : integer;
begin
write ('Ingresa el valor de cantidad de creditos: ');
readln (cantidad_de_creditos);
writeln ('Selecciona el valor de categoria.');
writeln (' 1.- A');
writeln (' 2.- B');
writeln (' 3.- C');
write (' : ');
repeat
readln (categoria);
if (categoria<1) or (categoria>3) then
write ('Valor incorrecto. Ingr'#130'salo nuevamente.: ');
until (categoria>=1) and (categoria<=3);
if (categoria=1) or (categoria=3) then
begin
pago_por_credito := 125;
end
else
begin
pago_por_credito := 150;
end;
pago_por_ciclo := cantidad_de_creditos*pago_por_credito;
writeln ('Valor de pago por ciclo: ', pago_por_ciclo);
writeln ('Valor de pago por credito: ', pago_por_credito);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.