-
Lenguaje
Pascal
-
Descripción
Acepte nombre, apellido, cédula, sueldo_b y total de descuento (TD). Calcule el sueldo_N (sueldo_N=sueldo_b-TD), si el sueldo_N es mayor o igual a $15,000, entonces descuente un 2% del mismo para la cooperativa de empleados, de lo contrario sólo descuente un 1%, e imprima todas estas variables para 10 empleados.
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
36
37
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
36
37
program DescuentoParaLaCooperativa;
uses crt;
var i : integer;
var TD, cooperativa, sueldo_N, sueldo_b : real;
var nombre, apellido, cedula : string;
begin
for i:=1 to 10 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el nombre: ');
readln (nombre);
write ('Ingresa el apellido: ');
readln (apellido);
write ('Ingresa el cedula: ');
readln (cedula);
write ('Ingresa el valor de TD: ');
readln (TD);
write ('Ingresa el valor de sueldo b: ');
readln (sueldo_b);
sueldo_N := sueldo_b-TD;
if sueldo_N>=15000 then
begin
cooperativa := sueldo_N*0.02;
end
else
begin
cooperativa := sueldo_N*0.01;
end;
writeln ('Nombre: ', nombre);
writeln ('Apellido: ', apellido);
writeln ('Cedula: ', cedula);
writeln ('Valor de cooperativa: ', cooperativa:0:6);
writeln ('Valor de sueldo N: ', sueldo_N:0:6);
writeln;
end;
end.
uses crt;
var i : integer;
var TD, cooperativa, sueldo_N, sueldo_b : real;
var nombre, apellido, cedula : string;
begin
for i:=1 to 10 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el nombre: ');
readln (nombre);
write ('Ingresa el apellido: ');
readln (apellido);
write ('Ingresa el cedula: ');
readln (cedula);
write ('Ingresa el valor de TD: ');
readln (TD);
write ('Ingresa el valor de sueldo b: ');
readln (sueldo_b);
sueldo_N := sueldo_b-TD;
if sueldo_N>=15000 then
begin
cooperativa := sueldo_N*0.02;
end
else
begin
cooperativa := sueldo_N*0.01;
end;
writeln ('Nombre: ', nombre);
writeln ('Apellido: ', apellido);
writeln ('Cedula: ', cedula);
writeln ('Valor de cooperativa: ', cooperativa:0:6);
writeln ('Valor de sueldo N: ', sueldo_N:0:6);
writeln;
end;
end.