Автоматизоване нарахування заробітної плати
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
Міністерство внутрішніх справ України
Харківський національний університет внутрішніх справ
Навчально-науковий інститут менеджменту, соціальних та інформаційних технологій
Кафедра інформаційних систем і технологій в діяльності ОВС
Курсова робота
з дисципліни Основи програмування та алгоритмічні мови
на тему: Автоматизоване нарахування заробітної плати
Виконав:
Перевірив:
Харків, 2009
Зміст
Вступ3
1. Основна частина4
1.1 Неформальна постановка задачі4
1.2 Формальна постановка задачі4
1.3 Структура зберігаючих даних5
2. Алгоритми6
2.1 Алгоритм основної програми6
3. Вихідний код програми7
Висновок14
Список використаної літератури15
Вступ
В кожній організації, кожен робітник получає за свій труд певну заробітну плату. Чим більше працюєш тим більше платня, але весь процес нарахування досить важкий. Дуже велика кількість факторів яких потрібно враховувати і якщо це робити вручну, то помилки не уникнути. Таким чином задачею курсової роботи і полягає у створенні програми автоматизованого нарахування зарплатні.
Я вибрав мову програмування Turbo Pascal, з метою закріплення своїх навиків з програмування.
1. Основна частина
1.1 Неформальна постановка задачі
Розробити програму - Автоматизоване нарахування платні для збереження та перегляду, а також аналізу введеної інформації.
Введення і збереження інформації в файл:
ПІБ працівника
Дата народження
Вислуга працівника;
Можливість редагування даної бази
Організація аналізу та автоматичного нарахування
Можливість видалення всієї бази.
Зручний інтерфейс для користувача
Швидкість та простота роботи в даній програмі
Практичне застосування
1.2 Формальна постановка задачі
Вихідні дані:
Маємо множину Р={P1, P2, …, Pi} робітників. Кожен робітник має свої відомості які впливають на формування платні.
V - вислуга
M - мінімум
S - стаж
R - премія
Результат:
Множина Dij, яка формуються з вхідних даних а саме множини Pi
Математична модель:
Dij =M+(S+V)*2+R+300
1.3 Структура збережених даних
K - структурована перемінна для роботи з даними
Im - поле для введення ПІБ робітника
V - поле для введення віку
Vl - поле для ведення вислуги років
Loki -процедура для малювання рамочки
Menu - створення головного меню програми
Upravl - створює утпавляючий елемент для меню
Fo - введення та збереження даних
Nas - на рахунок заробітної плати
Vit - видалення відомостей
2. Алгоритми
2.1 Алгоритм основної програми
3. Вихідний код програми
uses crt,dos;
type k=record
im:string[15];
v,vl,zp:integer;
end;
var f:file of k; rab:k;
procedure loki (x1,y1,x2,y2,a,b:byte);
var i:integer;
begin
textbackground(a);
textcolor(b);
window (x1,y1,x2,y2);
write(Й);
for i:=1 to (x2-x1)-1 do
begin
write(Н);
end;
write();
for i:=2 to (y2-y1)-1 do
begin
gotoxy(1,i);
write(є);
gotoxy(x2-x1+1,i);
write(є);
end;
write(И);
for i:=1 to (x2-x1)-1 do
begin
write(Н);
end;
write(ј);
end;
{------------------------}
procedure newreadkey (var a:char;var b:byte);
begin
b:=0;
a:=readkey;
if a=#0 then
b:=ord(readkey);
end;
{------------------}
procedure menu(s1,s2,s3,s4:string;x,y:byte);
begin
window(1,1,40,25);
textbackground(7);
clrscr;
window(10,5,30,16);
textbackground(7);
textcolor(2);
clrscr;
gotoxy(x,y);
write(s1);
gotoxy(x,y+3);
write(s2);
gotoxy(x,y+6);
write(s3);
gotoxy(x,y+9);
write(s4);
end;
{------------------}
procedure upravl(x1,y1,x2,y2,a,b,x,y:byte;s:string);
begin
window(x1,y1,x2,y2);
textbackground(a);
textcolor(b);
clrscr;
gotoxy(x,y);
write(s);
end;
procedure fo;
var i,n:integer;
begin
window(1,1,40,25);
textbackground(3);
clrscr;
gotoxy(15,1); writeln(ZAPOLNENIE);
window(5,1,35,25);
textcolor(1);
write(Vvedi kol-vo rabotnikov- );readln(n);
assign(f,rab);
rewrite(f);
for i:=1 to n do
begin
seek(f,filesize(f));
clrscr;
writeln(rabo4ii#,i);
write(Vvedi familiu rabo4ego- );readln(rab.im);
write(Vvedi vozrost rabo4ego- );readln(rab.v);
write(Vvei vislugu rabo4ego- );readln(rab.vl);
rab.zp:=rab.v+rab.vl+300;
write(f,rab);
end;
close(f);
end;
{.......................}
procedure nas;
var i:integer;
begin
window(1,1,40,25);
textbackground(3);
clrscr;
gotoxy(15,1); writeln(POISK);
window(5,2,35,25);
textcolor(1);
if fsearch(rab,rab)= then
begin
textcolor(4);
write(FAIL NE NAIDEN!!!);
end
else
begin
assign(f,rab);
reset(f);
for i:=0 to filesize(f)-1 do
begin
seek(f,i);
read(f,rab);
writeln(Rabo4iy ",rab.im,": poluchaet-,rab.zp,grn);
writeln;
end;
readln;
close(f);
end;
readln;
end;
{..........}
procedure vit;
begin
window(1,1,40,25);
textbackground(3);
clrscr;
gotoxy(15,1); writeln(POISK);
window(5,2,35,25);
textcolor(1);
if fsearch(rab,rab)= then
begin
textcolor(4);
write(FAIL NE NAIDEN!!!);
end
else
begin
assign(f,rab);erase(f);
writeln(FAIL UDALENO);
end;
readln;
end;
{::::::::::::::::::::}
var a:char;
b,j:byte;
begin
textmode(c40);
{ fo;
nas;
vit;
readln; }
repeat
window(1,1,40,25);
textbackground(7);
clrscr;
j:=1;
menu(Zapolnenie,Vivod,Steranie,vixod,7,2);
upravl(7,5,33,7,7,4,10,2,Zapolnenie);
repeat
newreadkey(a,b);
case b of
72:j:=j-1;
80:j:=j+1;
end;
case j of
0:j:=1;
5:j:=4;
end;
case j of
1: begin
menu(Zapolnen