Файл: Курсовая.docx

CloseGraph; - процедура закриття графічного режиму.

---

3.4 Опис файлів та їх призначення

program.pas – файл з основною програмою.

program.exe – відкомпільований файл з основною програмою.

baza.pas – файл модуля.

baza.tpu – відкомпільований файл модуля.

f.dat – файл, що містить відомості про робітників заводу.

f2.dat – допоміжний файл, що містить відомості про робітників заводу.

gr.pas –файл модуля з графікою.

gr.tpu – відкомпільований файл модуля з графікою.

4. Інструкція для роботи з програмою

Для запуску програми необхідно запустити файл program.exe . Після запуску

файлу з’являється заставка програми, при натисненні будь-якої клавіші

з’являється меню. В меню вибираємо необхідний пункт за допомогою введення

відповідного номера і натискаємо enter. Якщо ви обрали пункт меню 1)Створення

нового файлу, будьте уважними, адже після натискання Enter існуючий файл стане

порожнім і його потрібно буде заповнювати знову. При заповненні файлу, перед

введенням даних кожної наступної квартири у Вас буде запитуватися про

продовження дій. Якщо ви бажаєте продовжити, то маєте натиснути саме клавішу

“d”, в кожному іншому випадку ви повернетеся в меню, а вже введені результати

збережуться.

При виборі 2)Перегляд списку, вам відкриється список квартир зі вказаними

вулицями та цінами за них , для повернення в меню натисніть будь-яку клавішу.

Для того, щоб додати квартиру до вже існуючого списку вам необхідно

скористатися пунктом 3)Додати, вам буде необхідно заповнити форму, аналогічну

до тієї, що заповнюється при створенні списку. Для додавання декількох квартир

Вам буде задаватися питання про продовження, яке діє за тим же принципом, що і

при створенні файлу.

Пункт 4)Редагування запису, дозволяє вносити зміни у вже існуючий список. Вам

буде необхідно з виведеного списку обрати квартиру за номером, ввівши номер,

натиснути Enter, та заповнити форму, аналогічну до тієї, що надається при створенні

файлу, але із новими даними обраної квартири.

Пункт 5)Видалення запису, дозволяє видали дані про квартиру. З виведеного списку

вам необхідно обрати і ввести з клавіатури номер квартири, дані якої потрібно

видалити та натиснути Enter , після чого запис буде знищено.

Для того щоб здійснити пошук квартири по заданій вулиці чи по ціні яка Вас

---

задовольняє, оберіть пункт 6). Після вводу необхідної вулиці та ціни, яка Вас

задовольняє,Ви отримаєте список квартир.

Якщо Ви оберете пункт 7), Ви негайно вийдете за програми.

5 Приклад тестування та результати роботи програми

Графічне привітання.

Основна програма, вигляд меню:

Створення файлу записів:

Виведення даних на екран:

Редагування запису:

Видалення запису:

Пошук запису за певними параметрами:

Графічне завершення роботи програми:

Висновки

Виконавши курсовий проект, я придбав навички роботи в середовищі програмування Turbo Pascal, ознайомилась з елементами мови: типи даних і графіка у Паскалі, а також створив програму використовуючи свої навички. Також підвів підсумки, що Turbo Pascal є гнучкою та алгоритмічною мовою програмування, і добре підходить для початківця.Широкий набір підпрограм та модульність дозволяє швидко та якісно створювати програмний продукт.

---

Література

1. Ковалюк Т.В. Основи програмування. – К.: Видавнича група BHV, 2005. – 384c.: іл.

2. Глинський Я.М., Анохін В.Є., Ряжська В.А. Паскаль. Turbo Pascal і Delphi. Навч.

посібн. 5-те доп. вид. – Львів: Деол, СПД Глинський, 2004. – 176 с.

3. Семотюк В. Програмування в середовищі Турбо Паскаль. Львів: БаК, 2000. – 248 с.

4. Марченко А.И., Марченко Л.А. Програмирование в среде Turbo Pascal 7.0 / Марченко

5. Коффман Эллиот Б. Turbo Pascal. Практикум 5-е издание.: пер. с англ. М.:

Издательский дом "Вильямс", 2005. – 896 с.: ил.

Додаток а (Обов’язковий) Лістинг основної програми

program kursovaja;

uses crt,baza,gr;

label 0,1;

var p1,p2:integer;

begin

open1;

assign(f,'bolnica.dat');

1:clrscr;

gotoxy(32,8); writeln('Zdelaite vybor:');

gotoxy(30,9); writeln('1 - Vvod.');

gotoxy(30,10); writeln('2 - Vyvod.');

gotoxy(30,11); writeln('3 - Dobavlenie bolnogo.');

gotoxy(30,12); writeln('4 - Udalenie bolnogo.');

gotoxy(30,13); writeln('5 - Redaktirovanie.');

gotoxy(30,14); writeln('6 - Poisk.');

gotoxy(27,16); writeln('7 - Vyhod iz programmi.');

readln(p1);

case p1 of

1:begin Vvod; goto 1 end;

2:begin Vyvod; goto 1 end;

3:begin Dobavit; goto 1 end;

4:begin Udalenie; goto 1 end;

5:begin Redakt; goto 1 end;

6:begin

clrscr;

gotoxy(32,8); writeln('Vvedite vybor:');

gotoxy(30,9); writeln('1 - Dlya poiska po bolnomu!');

gotoxy(30,10); writeln('2 - Dlya kol-va bolnih u vracha!');

readln(p2);

case p2 of

1:begin Poisk1; goto 1 end;

2:begin Poisk2; goto 1 end;

else

goto 1;

end;

end;

7:begin

close1;

goto 0

end;

else

goto 1;

end;

0:end.

Додаток б (Обов’язковий) Лістинг модуля baza.

unit baza;

interface

uses crt;

type lik=record

n,s,diag,doctor:string;

day:1..30;

month:1..12;

year:2000..2012;

end;

var f,f1:file of lik;

i,q,k,x:integer;

st,fam,docfam:string;

z:lik;

procedure Vvod;

procedure Vyvod;

procedure Dobavit;

procedure Udalenie;

procedure Redakt;

procedure Poisk1;

procedure Poisk2;

implementation

procedure Vvod;

begin

clrscr;

rewrite(f);

---

i:=1; st:='d';

while st='d' do

begin

clrscr;

writeln('Vvedite dannie ',i,' bolnogo');

write('Vvedite familiju: '); readln(z.s);

write('Vvedite imia: '); readln(z.n);

write('Vvedite diagnoz: '); readln(z.diag);

write('Vvedite familiju lechashego vracha: '); readln(z.doctor);

writeln('Vvedite datu naveshenia vracha: ');

write('Den(1-30): '); readln(z.day);

write('Mesyac(1-12): '); readln(z.month);

write('God(2000-2012): '); readln(z.year);

write(f,z);

i:=i+1;

writeln('Hotite vvesti informaciu o drugom bolnom?(d/n)'); readln(st);

end;

end;

procedure Vyvod;

begin

clrscr;

reset(f);

k:=1;

writeln(' Spisok bolnih bolnici ');

if filesize(f)=0 then

begin

textcolor(4+16);

writeln('V baze otsutstvuut dannie!');

textcolor(7);

end

else

begin

for i:=1 to filesize(f) do

begin

read(f,z);

write(k,'.');

gotoxy(5,wherey); write(z.s);

gotoxy(15,wherey); write(z.n);

gotoxy(25,wherey); write(z.diag);

gotoxy(35, wherey); write(z.doctor);

gotoxy(46,wherey); write(z.day);

gotoxy(48,wherey); write('.',z.month);

gotoxy(51,wherey); write('.',z.year);

writeln;

k:=k+1;

end;

close(f);

readkey;

end;

end;

procedure Dobavit;

begin

clrscr;

reset(f);

seek(f,filesize(f));

i:=filesize(f);

st:='d';

i:=i+1;

while st='d' do

begin

clrscr;

writeln('Dobavit ',i,' bolnogo!');

write('Vvedite familiju: '); readln(z.s);

write('Vvedite imia: '); readln(z.n);

write('Vvedite diagnoz: '); readln(z.diag);

write('Vvedite familiju lechashego vracha: '); readln(z.doctor);

writeln('Vvedite datu naveshenia vracha: ');

write('Den(1-30): '); readln(z.day);

write('Mesyac(1-12): '); readln(z.month);

write('God(2000-2012): '); readln(z.year);

write(f,z);

i:=i+1;

writeln('Hotite vvesti informaciu o drugom bolnom?(d/n)'); readln(st);

end;

close(f);

end;

procedure Udalenie;

begin

clrscr;

reset(f);

k:=1;

while not (eof(f)) do

begin

read(f,z);

write(k,'.');

gotoxy(5,wherey); write(z.s);

gotoxy(15,wherey); write(z.n);

gotoxy(25,wherey); write(z.diag);

gotoxy(35, wherey); write(z.doctor);

gotoxy(46,wherey); write(z.day);

gotoxy(48,wherey); write('.',z.month);

gotoxy(51,wherey); write('.',z.year);

writeln;

k:=k+1;

end;

close(f);

writeln;

reset(f);

writeln('Zadaite nomer udalaemoy zapisi'); readln(k);

if k>filesize(f) then write('takoy zapisi net')

else

---