Материал: Отчет 2012 курсовая
Висновки
Виконавши курсовий проект, я придбала навички роботи в середовищі програмування Turbo Pascal, ознайомилась з елементами мови: типи даних і графіка у Паскалі, а також створила програму, яка виконує пошук за спеціальністю середньої заробітної плати та кількості робочих місць, програма виводить на екран базу даних про працевлаштування, яку можна редагувати та створювати. Ця програма зручна у використання, має простий інтерфейс. Також програму можна запроваджувати на підприємствах, що організовують пошук роботи для студентів. Підвела підсумки, що Turbo Pascal є гнучкою та алгоритмічною мовою програмування, і добре підходить як для початківця так і для досвідченого програміста. Широкий набір підпрограм та модульність дозволяє швидко та якісно створювати програмний продукт
Література
1. Йенсен К., Вирт Н. Руководство для пользователя и описание языка.
2. Глинський Я.М., Анохін В.Є., Ряжська В.А. Паскаль. Turbo Pascal і Delphi. Навч. посібн. 5-те доп. вид. – Львів: Деол, СПД Глинський, 2004. – 176 с.
3. Ковалюк Т.В. Основи програмування. – К.: Видавнича група BHV, 2005. – 384c.: іл.
4. А. И. Заковряшин - Алгоритмизация и программирование вычислительных задач
5. Коффман Эллиот Б. Turbo Pascal. Практикум 5-е издание.: пер. с англ. М.: Издательский дом "Вильямс", 2005. – 896 с.: ил.
6. Марченко А.И., Марченко Л.А. Програмирование в среде Turbo Pascal 7.0 / Марченко А.И., Марченко Л.А.: Под ред. Таресенко В.П. – 9-е изд. – К.:Век+, СПб.: КОРОНА-Век, 2007. – 464 с.: ил.
7. Семотюк В. Програмування в середовищі Турбо Паскаль. Львів: БаК, 2000. – 248 с.
Додаток А
(обов’язковий)
Лістинг основної програми
program kyr;
uses crt, kp_mod,kyrs;
label 0,1;
var p:integer;
begin
mygraphinit;
assign(f,'Robota.dat');
1:clrscr;
gotoxy(22,8); writeln('Zdelaite vubor');
gotoxy(20,9); writeln('1-vvod');
gotoxy(20,10); Writeln('2-vuvod');
gotoxy(20,11); writeln('3-redaktirovaie');
gotoxy(20,12); writeln('4-udalenie');
gotoxy(20,13); writeln('5-poisk');
gotoxy(20,14); writeln('6-vuxod');
readln(p);
case p of
1:begin vvod; goto 1 end;
2:begin vuvod; goto 1 end;
3:begin redaktirovanie; goto 1 end;
4:begin udalenie; goto 1 end;
5:begin poisk; goto 1 end;
6:goto 0
else goto 1;
end;
0:end.
Додаток Б
(обов’язковий)
Лістинг модуля kp_mod
unit kp_mod;
interface
uses crt;
type robota=record
rabdav:string[20];
spec:string[20];
kil:integer;
serpl:real;
end;
var r:robota;
f,f1:file of robota;
i,p,n,t,l,m,k:integer;
g,d:string;
j,sr,s:real;
procedure
Vvod;
procedure Vuvod;
procedure redaktirovanie;
procedure udalenie;
procedure poisk;
implementation
procedure Vvod;
begin
clrscr;
rewrite(f);
for i:=1 to 10 do
begin
writeln('Vvedite rabotodavcia '); readln(r.rabdav);
writeln('Vvedite specialnost '); readln(r.spec);
writeln('Vvedite kilkist robochux misc '); readln(r.kil);
writeln('Vvedite seredniy zarobitny platy '); readln(r.serpl);
write(f,r);
i:=i+1;
end;
close (f);
end;
procedure vuvod;
begin
clrscr;
reset(f);
writeln(' Pracevlawtyvannia ');
if filesize(f)=0 then writeln('Net zapisei')
else
for i:=1 to filesize(f) do
begin
read(f,r);
write(r.rabdav);
gotoxy(15,wherey); write(r.spec);
gotoxy(27,wherey); write(r.kil);
gotoxy(44,wherey); write(r.serpl:5:2);
writeln;
end;
close(f);
readkey;
end;
procedure redaktirovanie;
begin
clrscr;
reset(f);
while not (eof(f)) do
begin
read(f,r);
write(r.rabdav);
gotoxy(15,wherey); write(r.spec);
gotoxy(27,wherey); write(r.kil);
gotoxy(44,wherey); write(r.serpl:5:2);
writeln;
end;
close(f);
writeln('1-Redaktirovat zapis');
writeln('2-Dobvit ewe');
readln(p);
reset(f);
case
p of
1:begin
writeln('Vvedite nomer zapisi ');
readln(n);
if n>filesize(f) then write('Takoi zapisi net')
else
begin
seek(f,n-1);
write('vvedite rabotodavcia ');
readln(r.rabdav);
writeln('Vvedite specialnist ');
readln(r.spec);
write('Vvedite kilkist robochix misc ');
readln(r.kil);
write('Vvedite seredniy zarobitny platy ');
readln(r.serpl);
write(f,r);
write('Zapis izmenena');
end;
readkey;
close(f);
end;
2:begin
seek(f, filesize(f));
t:=filesize(f);
g:='d';
while g='d' do
begin
clrscr;
write('vvedite rabotodavcia ');
readln(r.rabdav);
writeln('Vvedite specialnist ');
readln(r.spec);
write('Vvedite kilkist robochix misc ');
readln(r.kil);
write('Vvedite seredniy zarobitny platy ');
readln(r.serpl);
write(f,r);
t:=t+1;
write('Hotite prodolgut(d/n)');
readln(g);
end;
close(f);
end;
end;
end;
procedure udalenie;
begin
clrscr;
reset(f);
while not(eof(f)) do
begin
read(f,r);
write(r.rabdav);
gotoxy(15,wherey); write(r.spec);
gotoxy(27,wherey); write(r.kil);
gotoxy(44,wherey); write(r.serpl:5:2);
writeln;
end;
close(f);
writeln;
reset(f);
writeln('Vvedite nomer ydalennoi zapisi '); readln(n);
if n>filesize(f) then write('Takoi zapisi net')
else
begin
assign(f1,'robota2.dat');
reset(f); rewrite(f1);
for i:=1 to filesize(f) do
begin
read(f,r);
if filepos(f)<>n then write(f1,r);
end;
close(f1); close(f);
erase(f);
rename(f1,'robota.dat');
write('zapis udalena');
end;
readkey;
end;
procedure poisk;
begin;
clrscr;
assign(f,'robota.dat');
writeln('1-rabotodavci ta serednia zarobitna pla za specialnisty');
writeln('2-rabotodavci ta kilkist robochux misc za specialnisty');
writeln('3-propozucii za zarobitnoiy platoiy');
readln(m);
reset(f);
case m of
1: begin
clrscr;
writeln('Vvedite specialnist ');
readln(d);
s:=0;k:=0;
reset(f);
writeln;
while not (eof(f)) do
begin
read(f,r);
if d=r.spec then
begin k:=k+1;
s:=s+r.serpl;
sr:=s/k;writeln('rabotodavec:
', r.rabdav);
end;
end;
if k=0 then writeln('Takoi specialnosti net v spiske') else
writeln('serednia zarobitna plata: ', sr:5:2);
close(f);
readkey;
end;
2:begin
assign(f,'robota.dat');
reset(f);
writeln('vvedite specialnist ');
readln(d);
while not (eof(f)) do
begin
read(f,r);
s:=0;
if d=r.spec then begin s:=s+1;
writeln('rabotodavec: ', r.rabdav);
writeln('Kilkist robochux misc', r.kil);
end;
end;
if s=0 then
writeln('Takoi specialnosti net v spiske');
close(f);
readkey;
end;
3:begin
assign(f,'robota.dat');
reset(f);
writeln('Vvedite
zarobitny platy ');
readln(j);
while not (eof(f)) do
begin
read(f,r);
l:=0;
if j=r.serpl then
begin
l:=l+1;
write(r.rabdav);
gotoxy(15,wherey); write(r.spec);
gotoxy(27,wherey); write(r.kil);
gotoxy(44,wherey); writeln(r.serpl:5:2); end;
end;
if l=0 then writeln('Takix predlogenii net');
writeln;
close(f);
readkey;
end;
end;
end;
end.
Додаток В
(Обов’язковий)
Лістинг модуля графіки
unit kyrs;
interface
uses graph;
var gd, gm:integer;
errorcode:integer;
procedure MyGraphinit;
implementation
procedure mygraphinit;
begin
gd:=detect;
initgraph(gd,gm,' ');
errorcode:=graphresult;
if errorcode<>grok then
begin
write('Pomulka inicialzacii grafiku:', grapherrormsg(errorcode));
writeln('Rabota zaverwena');
halt(1);
end;
begin
setbkcolor(10);
setcolor(13);
rectangle(130,75,500,420);
floodfill(145,280,13);
setcolor(0);
outtextxy(170,100,'Stvorennia i obrobka faila zapusiv');
outtextxy(170,120,'pidgotovula stydentka 210-ik grypu');
outtextxy(250,140,'Nesterova Irina');
outtextxy(240,160,'Pracevlawtyvannia');
readln;
closeGraph;
end;
end;
end.