Материал: Отчет
procedure GoToXY(X, Y:Byte); – переводить курсор в задану позицію екрана з
координатами x (стовпчик), y (рядок).
Процедури та функції для роботи з файлами:
procedure assign (<логічне ім’я файлу>, <фізичне ім’я файлу>); –
встановлює відповідність між логічним і фізичним іменами файлу. Логічне ім’я – це ім’я змінної з розділу опису var. За цим іменем до файлу звертаються у програмі. Фізичне ім’я – це ім’я, під яким файл записаний на диску.
7) ’Список не трудоустроенных’: Для того щоб визначити список не працевлаштованих випускників із зазначенням місця роботи, що пропонувалося, і середньому балу диплома.
8) ’Выход из программы’: Використовується для виходу з програми.
7 Приклад тестування та результату роботи програми
Графічна заставка з привітанням:
Основна програма, вигляд меню:
Створення файла записів:
Виведення даних на екран:
Додавання даних у файл:
Редагування запису:
Видалення запису:
Список випускників, працевлаштованих на підприємстві Х, та їх кількість:
Список не працевлаштованих випускників із зазначенням місця роботи, що пропонувалося, і середньому балу диплома.
Графічна заставка з завершенням:
Висновки
Виконавши
курсовий проект, я придбав та закріпив
навички роботи в середовищі програмування
Turbo Pascal, ознайомився з елементами
мови: типи даних і графіка у Паскалі,
а також створив програму використовуючи
свої навички. Також підвів підсумки,
що Turbo Pascal є гнучкою та алгоритмічною
мовою програмування, і добре підходить
як для початківця так і для досвідченого
програміста. Широкий набір підпрограм
та модульність дозволяє швидко та
якісно створювати програмний продукт.
Завядяки завяляки цьому, я створив
свою программу про працевлаштування
випускників по підприємствам, шо є
елементарною
базою даних. Ця програма може бути
пристосована для реального використання,
якщо замінити вхідний файл з реальними
даними і відредагувати текст програми.
Ця програма дуже легка у своєму
використанні і нею може користуватися
людина з малими навичками роботи з
комп'ютером.На основі цієї програму я
вдосконалив навички роботи у мові Turbo
Pascal, вивчив нові алгоритмічні конструкції
і підвищив рівень роботи.
Література
1) Алексіїв Є.Р. Турбо Паскаль 7.0” - Москва. :НТ Пресс,2005. – 314,[6]с.
2) Шост Д.М. Основи інформатики та обчислювальної техніки. Turbo Pascal. 10-11 кл. – Тернопіль: „Навчальна книга – Богдан”, 1999. – 192 с.
3)Е. А. Зуєв. Програмування на мові Turbo Pascal 6.0, 7.0, М.: Веста, Радіо і зв'язок, 1993, - С.376
4)Turbo Pascal: вчиться програмувати, О. А. Меженний, Москва:
Изд.дом «Вільямс», 2001
5)Основи мови Turbo Pascal (навчальний курс), П. И. Рудаков, М. А.Федотов, Москва: Радіо та зв'язок, 2000р.
6)Моргун Олександр Миколайович. Довідник по Turbo Pascal для студентів. - М.: Діалектика, 2006. - С. 608.
7) Конспект з лекції.
Додаток а (Обов’язковий) Лістинг основної програми
program vupysk;
uses crt,modul,poshyk,graphiks;
label 1;
Var p:integer;
begin
zastavka; textbackground(9); assign(f, 'f.dat');
1:clrscr;
gotoxy(30,7); write (chr(218),'------------------------------',chr(191));
gotoXY(30,8); writeln('| Зделайте пожалуй ста выбор: |');
gotoxy(30,9); write(chr(198),'==============================',chr(181));
gotoXY(30,10); writeln('| 1 – Ввод записей. |');
gotoXY(30,11); writeln('| 2 - Вывод записей . |');
gotoXY(30,12); writeln('| 3 – Добавить запись. |');
gotoXY(30,13); writeln('| 4 - Редактировать запись. |');
gotoXY(30,14); writeln('| 5 - Удалить запись. |');
gotoXY(30,15); writeln('| |');
gotoXY(30,16); writeln('| Поиск записей: |');
gotoXY(30,17); writeln('| 6 – Список трудоустроенных |');
gotoXY(30,18); writeln('| 7 – Список не трудоустроенных |');
gotoXY(30,19); writeln('| |');
gotoXY(30,20); writeln('| 8 – Выход из программы. |');
gotoxy(30,21); write (chr(192),'------------------------------',chr(217));
gotoxy(30,22); write (chr(218),'------------------------------',chr(191));
gotoXY(30,23); write('|--> |');
gotoxy(30,24); write (chr(192),'------------------------------',chr(217));
gotoxy(35,23);readln(p);
case p of
1:begin Vvod; goto 1 end;
2:begin Vyvod; goto 1 end;
3:begin Dobavit; goto 1 end;
4:begin Redakt; goto 1 end;
5:begin Delete; goto 1 end;
6:begin poisk1;goto 1 end;
7:begin poisk2;goto 1 end;
8:begin konec;halt(1);end;
else goto 1;end;end.
Додаток б (Обов’язковий) Лістинг модуля modul
Unit modul;
interface
uses Crt,Graph;
type vupysknik=record
fam:string;
nomer_d:1..999999;
ser_bal:real;
pidpr:string;
ozn:string;
end;
var f,f1:file of vupysknik;
i,nomer_d,n:integer;
st,n_pidpr:string;
z:vupysknik;
k:real;
p:integer;
v:byte;
c:char;
gd, gm, error:Integer;
s:String;
procedure Vvod;
procedure Vyvod;
procedure ramka;
procedure Dobavit;
procedure Delete;
procedure Redakt;
procedure oznaka;
implementation
procedure
Vvod;
begin
Clrscr;
rewrite(f);
i:=1; st:='да';
while st='да ' do
begin
clrscr;
gotoxy(7,6);writeln('Введите данные о ',i,' ‚ВыпускникеҐ');
gotoxy(7,wherey);writeln ('Введите номер диплом :');gotoxy(7,wherey); readln (z.nomer_d);
gotoxy(7,wherey);writeln ('Введите фамилию:'); gotoxy(7,wherey); readln (z.fam);
gotoxy(7,wherey);writeln (' Введите средний бал:');gotoxy(7,wherey); readln(z.ser_bal);
gotoxy(7,wherey);writeln (' Введите место роботы которое предлогается:');gotoxy(7,wherey); readln (z.pidpr);
gotoxy(7,wherey);writeln (Признак принятия на работу на данном предприятии: ');
oznaka;
write(f,z);
i:=i+1;
textcolor(white);
gotoxy(7,20);writeln ('Хотите продолжить да/нет?');
gotoxy(7,wherey);
readln(st);
end;
close(f);
end;
procedure oznaka;
begin
repeat
gotoxy(7,wherey);
writeln('Выберите Д - да или Н - нет');
gotoxy(7,wherey);readln(c);
if c in [д','Д','d','D'] then z.ozn:='да '
else if c in ['Н','н','N','n'] then z.ozn:='нет';
until c in ['d','D','¤','„','','Ќ','N','n'];
gotoxy(7,wherey);
if z.ozn='да ' then writeln('Трудоустроен!')