Практическая работа: «технология обработки числовой данных»
Создать и заполнить таблицу «Учет заработной платы рабочих цеха за месяц».
Исходные данные: фамилия рабочего (не менее 8), количество отработанных рабочих дней за месяц (при 6-дневной рабочей неделе); количество часов, отработанных в выходные и праздничные дни;
Вычислить
1) для каждого рабочего:
- количество часов, отработанных в рабочее время (при 8-часовом рабочем дне);
- начисленную заработную плату (стоимость 1 часа – 120 руб.; коэффициент работы в выходные и праздничные дни – 1,5);
- подоходный налог (удержанную сумму – 13 %);
- сумму к выдаче;
- отклонение от средней заработной платы рабочих цеха в %;
2) по цеху:
- минимальное, максимальное и среднее значение заработной платы;
- количество рабочих, зарплата которых больше средней;
- количество и суммарную зарплату рабочих, работавших в выходные и праздничные дни.
Построить гистограмму заработной платы рабочих цеха.
Var
ar:array of integer;
n,i,min,mini:integer;
begin
randomize;
min:=2147483647;
writeln('Введите размерность:');
readln(n);
setlength(ar,n);
writeln('Array:');
for i:=0 to n-1 do
begin
ar[i]:=random(-30,30);
write(ar[i]:4);
if min>=ar[i] then
begin
min:=ar[i];
mini:=i;
end;
end;
for i:=0 to mini-1 do
if ar[i]<0 then ar[i]:=0;
writeln;
writeln('Final array:');
for i:=0 to n-1 do
write(ar[i]:4);
end.
Пример ввода:
5
Пример вывода:
Array:
-3 -26 -2 18 -21
Final array:
0 -26 -2 18 -21