Автор работы: Пользователь скрыл имя, 19 Марта 2012 в 18:27, дипломная работа
Цель данного дипломного проекта – разработка мероприятий по совершенствованию оплаты труда ремонтных рабочих.
Для достижения поставленной цели в работе сформулированы и решены следующие задачи:
изучены основные принципы и особенности организации оплаты труда ремонтных рабочих;
Введение………………………………………………………...
1 Основные принципы и особенности организации оплаты труда ремонтных рабочих…………………………………………..
1.1 Социально-экономическая сущность заработной платы. Система оплаты труда ремонтных рабочих в Республике Беларусь…
1.2 Система премирования и оплаты труда ремонтных рабочих в зарубежной практике. Сравнительный анализ систем оплаты труда и премирования……………………………………………….
2 Анализ технико – экономического и финансового положения специализированного автохозяйства «Минскоблгаз»…….
2.1 Технико – экономический анализ хозяйства………………….
2.2 Анализ финансового состояния автохозяйства……………….
2.3 Анализ системы оплаты труда и фонда заработной платы предприятия……………………………………………..
2.4. Выводы по результатам анализа……………………………….
3. Совершенствование организации заработной платы на современном этапе…………………………………………………..
3.1. Совершенствование методики оплаты труда…………………
3.2. Оценка экономической эффективности принятых решений…
Заключение……………………………………………………..
Список использованных источников литературы……………
program zarplata;
uses crt;
var
Cn1, Cn2, tn1, tn2, Nn1, Nn2, Ktu : array [1..100] of real;
Zp, Ozp, ZP2, Dzp, Cn, tn, Nn, t, s, Tzp : real;
i, j, k, N, l : integer;
key : char;
procedure raschet;
begin
clrscr;
Zp:=0;
for k:=1 to i do
begin
Ozp:=Cn1[k]*tn1[k]*Nn1[k];
Dzp:=Ozp*0.5;
Zp:=Ozp+Dzp+Zp;
end;
end;
procedure raschet2;
var Ntf, Tz, Kbf, Sbf : real;
begin
clrscr;
Tzp:=0; Ntf:=0; s:=0;
writeln('Введите баланс времени, ч:');
readln(t);
for l:=1 to j do
begin
Ntf:=Cn2[l]*t+Ntf;
Tz:=Cn2[l]*tn2[l];
s:=s+Tz;
Tzp:=Tz*Ktu[l]+Tzp;
end;
Kbf:=(Ntf-s)/Tzp;
Sbf:=Kbf*Tzp;
ZP2:=Sbf+Tzp;
end;
procedure input1;
label lab;
begin
k:=1;
lab: clrscr;
i:=k;
writeln('Ввод данных для повременщиков');
writeln('Разряд :');
readln(N);
writeln('Количество рабочих ',N,'-го разряда: ');
readln(Nn1[k]);
writeln('Количество отработанных рабочими ',N,'-го разряда часов:');
readln(tn1[k]);
writeln('Тарифная ставка ',N,'-го разряда: ');
read(Cn1[k]);
writeln('Вводить другой разряд? (Y/N) : ');
key:=readkey;
case key of
#121 : begin write('Y'); k:=k+1; goto lab; end;
#110 : begin write('N'); raschet; end;
end;
end;
procedure input2;
label lab;
begin
l:=1;
lab: clrscr;
j:=l;
writeln('Ввод данных для бригадной системы оплаты труда');
writeln('Разряд :');
readln(N);
writeln('Количество рабочих ',N,'-го разряда: ');
readln(Nn2[l]);
writeln('Количество отработанных рабочими ',N,'-го разряда часов:');
readln(tn2[l]);
writeln('Тарифная ставка ',N,'-го разряда: ');
read(Cn2[l]);
writeln('КТУ:');
readln(Ktu[l]);
writeln('Вводить другой разряд? (Y/N) : ');
key:=readkey;
case key of
#121 : begin write('Y'); l:=l+1; goto lab; end;
#110 : begin write('N'); raschet2; end;
end;
end;
procedure select;
var SUM : real;
begin
writeln('Выберите:');
writeln('Расчет повременщиков (1)');
writeln('Расчет бригадной системы оплаты труда (2)');
writeln('Общий расчет (3)');
key:=readkey;
case key of
#49 : begin
write('1'); input1;
writeln('Результат:',Zp:10:3);
end;
#50 : begin
write('2'); input2;
writeln('Результат:',ZP2:10:3)
end;
#51 : begin
write('3'); input1;
input2;
SUM:=Zp+ZP2;
writeln('Результат:',SUM:20:3)
end;
end;
end;
begin
clrscr;
select;
End.