4 Інструкція для роботи з програмою
Для початку роботи запустіть файл kp_1.exe, н екрані з’явиться стартова заставка, при натисненні будь якою клавіші ви зможети перейти до головного меню.
В головному меню ви бачити 6 пунктів, для обирання одного з них вам потрібно ввести відповідне число на клавіатурі та натиснути Enter.
Якщо ви обрали пункт 1-Створення нового файлу, ви маєте заповнити відповідну анкету, данні якою будуть записані в основний файл та збережуться в базу даних. Для виходу в основне меню натисніть будь-яку клавішу.
Якщо ви натиснули 2-Виведення даних на екран, з’явиться таблиця з вже існуючою інформацією. Для повернення в меню натисніть будь-яку клавішу.
Для зміни існуючої інформації або для додавання нових записів натисніть 3-Редагування, на екрані з’явиться меню із запропонованими функціями редагування або додавання, вибравши відповідний пункт ви можете відредагувати інформацію за номером запису або додати нову. Для виходу в основне меню натисніть будь-яку клавішу.
Для видалення запису натисніть 4-Видалення. Для видалення запису, вам лише необхідно ввести її номер. Для виходу в основне меню натисніть будь-яку клавішу.
Для пошуку натисніть 5-Пошук. На екрані з’явиться зручне меню, відповідно за пунктами та вашими побажаннями ви можете обрати пошук за критеріями. Для виходу в основне меню натисніть будь-яку клавішу.
Для виходу з програми натисніть 6.
5 Приклад тестування та результати програми.
Основна програма, вигляд меню:
Створення файлу записів:
Вивід інформації:
Редагування:
Видалення:
Пошук за спеціальністю, середньої заробітної плати:
Пошук,
за спеціальністю, кількості робочих
місць:
Пошук
за середньою заробітною платою:
Висновки
Виконавши курсовий проект, я придбала навички роботи в середовищі програмування 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.