-
Lenguaje
Pascal
-
Descripción
Desarrolle un algoritmo para una empresa constructora, que le permita calcula e imprimir la planilla para su cancelacion a un total de 50 obreros calificados a quienes debe cancelar por hora trabajadas. La hora trabajada se acordo en $5000 dolares.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program PlanillaDe50Obreros;
uses crt;
var i : integer;
var cancelacion, horas_trabajadas, planilla : real;
begin
planilla := 0;
for i:=1 to 50 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
cancelacion := horas_trabajadas*5000;
planilla := planilla+cancelacion;
writeln ('Valor de cancelacion: ', cancelacion:0:6);
writeln;
end;
writeln ('Valor de planilla: ', planilla:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var i : integer;
var cancelacion, horas_trabajadas, planilla : real;
begin
planilla := 0;
for i:=1 to 50 do
begin
writeln ('PROCESO ', i);
write ('Ingresa el valor de horas trabajadas: ');
readln (horas_trabajadas);
cancelacion := horas_trabajadas*5000;
planilla := planilla+cancelacion;
writeln ('Valor de cancelacion: ', cancelacion:0:6);
writeln;
end;
writeln ('Valor de planilla: ', planilla:0:6);
write ('Presiona una tecla para terminar . . . ');
readkey;
end.