я цеху задається користувачем і створювання нового файлу біля вихідної програми. sozdbd - створення текстового файлу (бази даних) в якому знаходитися весь заповнений спісок.menu - процедура для виведення на екран головного меню.Pmenu - процедура для вибору в меню.  
 Повний лістинг програми представлений в додатку Б. 
    3.2 Тестування програми  
   Після запуску буде запропоновано В«Якщо є у вас БД для цієї програми натисніть Y, якщо нету натисніть N. При натисканні N буде вироблено створення нової БД (рис. 2). br/>В  
 Рис. 2 - Вибір БД. br/> 
 Далі потрібно внести ім'я файлу БД який у вас існує біля вихідної програми (рис. 3). 
В  
 Рис. 3 - Внесення імені БД 
   появляеться меню в якому можна вибрати будь-яку дію при натисканні на крівіші В«?В» і В«?В» (рис. 4). 
 В  
 Рис. 4 - Меню 
   Для вибору потрібного пункту требується натиснути на клавішу В«" В». 
  У В«створення записівВ» вироблятися створення запису яка буде додана в файл і можна буде працювати в програмі з цим записом (рис. 5). 
 В  
 Рис. 5 - Створення БД 
   У В«висновок на екран БДВ» виводить на існуючі запили в даній БД, які були створені раніше (рис 6). 
				
				
				
				
			 В  
 Рис. 6 - Виведення на екран БД 
   Висновки  
   У цій роботі була поставлена ​​мета, використовувати отримані знання мови програмування Pascal ABC реалізувати працездатне ПЗ, яке повинно містити номер цеху, прізвища робітників та їх середньомісячний заробіток, редагувати, видаляти, додавати. 
  Поставлені завдання вдалося реалізувати в програмі. 
   Список використаних джерел  
   1. Діалог-МІФІ - Turbo Pascal 7.0. Самовчитель для початківців. 1999. p align="justify">. К. Йенсен, Н.Вірт Паскаль Керівництво для користувача. p align="justify">. С.М. Окулов, Програмування в алгоритмах. p align="justify">. Основи програмування (Окулов С.М.). p> 5. <# "Justify">  Додаток А  
    Блок-схема алгоритму  
                           Додаток Б  
    Лістинг програми  
  bdcex; 
  Uses Crt, GraphABC; 8,9,10,22; people = record: integer;// № цехи: string [40];// прізвища: integer;// ср заробіток; = array [1 .. 1000] of [1 .. 9] of string;: char; menu; ^ [1]: = '1: створення записів '; 
  massm ^ [2]: = '...