Висновок

Поиск информации

Добавление записей

Чтение данных

Begin

Begin

clrscr;

Writeln('Выбор действия');

Writeln('1-Ввод новых данных');

Writeln('2-Чтение данных');

Writeln('3-Добавление записей');

Writeln('4-Удаление записи');

Writeln('5-Поиск информации');

Writeln('6-Выход');

readln(vibor);

while vibor < 6 do

case vibor of

1: vvod;

2: schitivanie;

3: dobavlenie;

4: delete;

5: poisk;

end;

writeln;

Writeln('Выбор действия 1-7');

Writeln('Выбор действия');

Writeln('1-Ввод новых данных');

Writeln('2-Чтение данных');

Writeln('3-Добавление записей');

Writeln('4-Удаление записи');

Writeln('5-Поиск информации');

Writeln('6-Выход');

readln(vibor);

end;

end.

3.6. Інструкція для користувача

При запуску програми з'явиться невелике меню, яке складається з:

1-Ввод новых данных

2-Чтение данных

3-Добавление записей

4-Удаление записи

5-Поиск информации

6-Выход

1) Натиснувши на 1 зможете додавати нові записи в типізований файл
2) Натиснувши на 2 з'являться всі записи з типізованого файлу на екран

Выбор действия

1-Ввод новых данных

3-Добавление записей

4-Удаление записи

5-Поиск информации

6-Выход

12 12 12, 12, 12, доктор, 12, 12

23 23 23, 23, 23, доктор, 23, 23

34 34 34, 34, 34, кандидат, 34, 34

45 45 45, 45, 45, кандидат, 45, 45

56 56 56, 56, 56, доктор, 56, 56

3) Натиснувши на 3 ви зможете додати ще один запис

Выбор действия

1-Ввод новых данных

2-Чтение данных

4-Удаление записи

5-Поиск информации

6-Выход

Добавление записи

Введите 6-го сотрудника

але після цього

потрібно натиснути на 2 щоб новий запис зберігся в типізованому файлі

4) натиснувши на 4 ви зможете видалити будь-яку зазначений вами запис

(водимо тільки цифру)
Приклад: натискаєте 4 і будь-яку цифру припустимо 6 та Enter - віддалиться 6 запис файлу

Выберите номер удаляемой записи которую вы хотите: 6

Удаление прошло успешно

Количество записей (сотрудников) 5

5) Натиснувши на 5 ви зможете знайти з усіх записів тільки тих співробітників,

які мають вчений ступінь доктора або кандидата.

Приклад: натискаємо на 5 і вводимо доктор/кандидат та Enter виводиться новий список співробітників, які мають науковий ступінь доктора або кандидата

Выбор действия

1-Ввод новых данных

2-Чтение данных

3-Добавление записей

4-Удаление записи

5-Поиск информации

6-Выход

12 12 12, 12, 12, доктор, 12, 12

23 23 23, 23, 23, доктор, 23, 23

34 34 34, 34, 34, кандидат, 34, 34

45 45 45, 45, 45, кандидат, 45, 45

56 56 56, 56, 56, доктор, 56, 56

Выбор действия 1-7

Выбор действия

1-Ввод новых данных

2-Чтение данных

3-Добавление записей

4-Удаление записи

6-Выход

Введите степень доктор

Найдены сотрудники!

12 12 12 12, доктор, 12, 12Найдены сотрудники!

23 23 23 23, доктор, 23, 23Найдены сотрудники!

56 56 56 56, доктор, 56, 56

6) Висновок (результати пошуку) виводиться відразу в процедурі пошуку

12 12 12 12, доктор, 12, 12Найдены сотрудники!

23 23 23 23, доктор, 23, 23Найдены сотрудники!

56 56 56 56, доктор, 56, 56

7) Натиснувши на 6 програма завершиться і (може вимагати натиснути будь-яку кнопку)

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

Висновок програми (новий список) виводиться відразу в процедурі пошуку, пошук заснований на науковому ступені доктора або кандидата, у новому списку виводяться всі записи (співробітники), які мають вчений ступінь доктора або кандидата

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

5. Список використаної літератури

1. Аляев Ю.А. Алгоритмизация и языки программирования: Учебно-справочное издание Москва: 2004

2. Ставровский А.Б. Турбо Паскаль 7.0. Учебник К.: BHV, 2000

3. Грызлов В.И. Turbo Pascal 7.0: Учебное пособие Москва: ДМК,1999

Інтернет ресурси:

http://itteach.ru/pascal/pascal-zapis-record

http://progopedia.ru/language/pascal

http://www.cyberforum.ru/poisk

Додаток A. Лістинг програми

program kursovaya;

uses crt;

Дата добавления: 2015-06-27