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.
