Текстовий файл з інформацією про робітників

Размещено на http://www.allbest.ru//

Размещено на http://www.allbest.ru//

ВСТУП

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

довготривалого зберігання даних;

доступу різних програм одним і тим же даними;

обробки великих масивів даних, які неможливо цілком розмістити в оперативній пам'яті комп'ютера.

Текстові файли файли на диску, що складаються з символів ASCII. Текстові файли є файлами з послідовним доступом.

Типізовані файли  це файли, що складаються з нумерованій послідовності об'єктів (записів) будь-якого типу.

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

Файл, що не містить жодного елемента, називається порожнім. Створюється файл шляхом додавання нових записів у кінець спочатку порожнього файлу. Довжина файлу, тобто кількість елементів, не задається при визначенні файлу. Під читанням файлу розуміють введення даних з зовнішнього файлу, що знаходиться на диску, в оперативну пам'ять машини. Запис у файл виводу результатів роботи програми з оперативної пам'яті на диск у файл.

Отже, метою курсової роботи є створення текстового файлу, виконання завдання курсової роботи в повному обсязі, створення програми, зручної для користувача.

РОЗДІЛ I. ПОСТАНОВКА ЗАВДАННЯ

Створити текстовий файл, що містить зведення про кількість виробів категорій А, В, С (тип даних:Word), зібраних робітником за місяць. Структура запису має поля - прізвище збирача (тип даних: String), кваліфікація(тип даних: String), кількість виробів по категоріях, зібраних робітником за місяць. Кількість записів - довільна. Вважаючи заданими значення розцінок Sа, Sb, Sc(const) за виконану роботу зі зборки одиниці виробу категорій A, B, C відповідно, підрахувати середній розмір заробітної плати працівників цього цеху.

Реалізувати пошук робітників за прізвищем та кваліфікацією (синтаксичний аналізатор).



РОЗДІЛ II. ТЕОРЕТИЧНА ЧАСТИНА

Програма умовно складається з таких алгоритмів: алгоритм створення текстового файлу, алгоритм зчитування інформації з файлу, алгоритм розрахунку середньої заробітної плати, алгоритм синтаксичного аналізатору.

На рисунку 2.1 зображений алгоритм, який відповідає за створення файлу, введення інформації до файлу про робітника(робітників). Структура запису має поля для прізвища робітника, кваліфікації, кількості виробів по категоріях, зібраних робітником за місяць.

Зчитування інформації з файлу (блок-схема алгоритму зчитування представлена на рис.2.2) починається з вводу назви файлу. Якщо файл введений користувачем не правильно, тоді виконується запит для повторного введення назви файлу. Далі, якщо файл існує, виводиться інформація про робітника та установу (прізвище збирача, номер цеху, кваліфікацію збирача та кількість виготовлених виробів категорій A, B та C). По завершенню виведення інформації файл закривається.

Підрахунок середньої заробітної плати рахується за алгоритмом, наведеним на рис.2.3. Спочатку також необхідно ввести ім'я файлу, і, якщо цей файл існує, відкривається для зчитування, в іншому випадку робить запит для повторного введення імені файлу. Далі, якщо файл існує, виконується підрахунок сумарної заробітної платні, після чого робиться підрахунок середньої заробітної платні по введеному цеху.

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

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

Алгоритм синтаксичного аналізатору, наведений на рис.2.6, починається з вводу найменування файлу. Далі, якщо файл існує, треба ввести запит, якщо ж файлу не існує - ввести запит повторно. Після чого, в залежності від вибору користувача, реалізувати пошук за прізвищем чи за кваліфікацією (правильно ввести запит). Якщо збігів при вводі немає, тоді користувач повертається в меню навігації.



ТакНі

Рис. 2.1 - Алгоритм створення текстового файлу(процедура Сreate)



Ні

Так

Ні

Так

Рис. 2.2 - Алгоритм зчитування інформації з файлу(процедура Review)



Ні

Так

Так

Ні

Рис. 2.3 - Алгоритм підрахунку середньої заробітної платні цеху

(процедура SalarySR)



Так

Ні

Ні

Так

Рис. 2.4 - Алгоритм пошуку за прізвищем

(процедура poiskFN)



Так

Ні

Ні

Так

Рис. 2.5 - Алгоритм пошуку за кваліфікацією

(процедура poiskQualification )



Ні

Так

Рис. 2.6 - Алгоритм синтаксичного аналізатору

РОЗДІЛ III. РЕАЛІЗАЦІЯ ПРОГРАМИ

3.1Технічне завдання

Підставою для розробки даної програми є завдання курсової роботи. Рекомендації та вимоги до написання програми зазначені у методичних вказівках до виконання курсової роботи.

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

Програма повинна мати зрозумілий інтерфейс. Має бути меню навігації для користувача, кожен пункт якого повинен мати однозначне визначення. У місцях складних для користувача мають бути підказки.

Програма призначена для широкої аудиторії. Так як, для програми є детальні інструкції, то користувач низького рівня володіння ПК може використовувати програму.

Час відповіді програми не більше 3-4 секунд.

Програма буде працювати на Windows 2000, Windows ХP, Windows Vista, Windows 7, Windows 8,Windows 10.

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

3.2 Опис програми

текстовий файл пошук аналізатор

Програма була написана мовою програмування Pascal. Його стандартні можливості повністю дозволяють організувати роботу з текстовими файлами і виконати всі вимоги технічного завдання.

Розроблена програма має наступні процедури:

1)процедуру створення текстового файлу

2)процедуру зчитування з текстового файлу

3)процедуру підрахунку середньої зарплатні

4)процедури пошуку за прізвищем

5) процедури пошуку за кваліфікацією

6)синтаксичний аналізатор.

Для процедур була створена змінна info, тип даних якої record, яка має такі поля: FullName типу String, яке вміщує прізвище користувача, Qualification типу String - кваліфікація робітника, Craft типу String - найменування/номер цеху, а також A, B та C типу Word - кількість виробів по категоріям.

При запуску програми, перше, що бачить користувач - меню, яке складається з 5 пунктів: створення файлу, перегляд файлу, підрахунок зарплатні, пошук робітників(за прізвищем та кваліфікацією) та вихід із програми.

Для того, щоб створити файл і додати до нього інформацію була створена процедура Create(її алгоритм представлений на рис.2.1 у Розділі ІІ). З початку процедури користувач вводить з клавіатури ім'я нового файлу. Якщо такого файлу не існує, він створюється, якщо файл існував попередня інформація повністю стирається. Після цього користувач має ввести прізвища робітників(робітника), кваліфікацію, номер цеху та кількість виробів по категоріям. За бажанням користувача, цикл введення інформації повторюється кілька разів. Після закінчення файл закривається і процедура закінчує свою роботу.

Для того, щоб зчитати інформацію з файлу, була створена процедура Review(її алгоритм представлений на рис.2.2 у Розділі ІІ). Початковими даними цієї процедури є файлова змінна, яка зв'язується з файлом, ім'я якого задає користувач. З початку перевіряється наявність файлу. Далі процедура построково зчитує інформацію із файлу і виводить її до таблиці. Після досягнення кінця файлу процедура закриває його і завершує свою роботу.

Для реалізації алгоритму підрахунку середньої заробітної платні робітника була створена процедура SalarySR (рис.2.3 у Розділі ІІ). Початковими даними цієї процедури є файлова змінна, яка зв'язується з файлом, ім'я якого задає користувач та кількість виробів, які потрібно порахувати. Процедура зчитує дані з файлу, після чого підраховується середня заробітна платня робітників та ділиться на їх кількість. Після чого виводиться середня заробітна платня працівників чи працівника цеху.

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

Аналогічно до пошуку робітника за прізвищем, виконується пошук за кваліфікацією(рис.2.5 у Розділі ІІ). Цей алгоритм описує процедуру poiskQualification.

Для реалізації алгоритму синтаксичного аналізу(рис.2.6 у Розділі ІІ) була створена процедура Analizator. Початковими даними якої є файлова змінна, яка зв'язується з файлом, ім'я якої задає користувач, і запит на пошук. Зпочатку перевіряється наявність файлу, якщо його не існує, пропонується ввести інше ім'я. Відразу з вводом прізвища чи кваліфікації, пропонується приклад правильного вводу даних. Далі за допомогою функції пошуку підстроки pos, вихідний запит аналізується на наявність ключових слів "фамилия" або "квалификация". Якщо користувач неправильно ввів прізвище чи кваліфікацію, тоді буде запропоновано ще раз вибрати пункт меню. Після досягнення кінця файлу процедура закриває його і закінчує свою роботу.

3.3 Інструкції з експлуатації для користувача

Для роботи з розробленою програмою, користувач повинен викликати файл course.exe. Після відкриття цього файлу, з'являється меню навігації(рис.3.1.), де користувач починає роботу с програмою.

Рис.3.1.Меню навігації



Рис.3.2. Створення нового файлу

Для створення нового файлу користувач має натиснути «1» (рис.3.2). Потім користувач має ввести таку інформацію: прізвище, номер цеху, кваліфікацію робітника, кількість виробів категорій А,В,С. Після цього, якщо користувач завершив заповнення файлу, він повинен ввести «n» і знову з'явиться меню навігації для подальшої роботи з файлом. Якщо ввести «y», то користувач знову має ввести зазначену вище інформацію, тобто продовжити заповнення файлу.

Для перегляду створенного файлу, користувач має натиснути «2» у меню навігації. Програма запросить ввести назву файлу і після правильного

Рис.3.3.Зчитування інформації з файлу

вводу, користувач зможе переглянути усю информацію файла, як на прикладі(рис. 3.3).

Для того, щоб підрахувати середню заробітну плату усіх робітників, треба вибрати 3 пункт меню навігації.

Рис.3.4. Розрахунок середньої зарплати робітника

Рис.3.5. Пошук робітника за прізвищем

Для пошуку робітників за прізвищем або за кваліфікацією потрібно ввести «4». Програма запропонує користувачу приклади правильного вводу даних. У разі неправильного вводу даних програма знову виведе користувача на меню навігації.

Рис.3.6. Пошук робітника за кваліфікацією

ВИСНОВКИ

В ході курсового проекту був створений текстовий файл, що містить зведення про кількість виробів категорій А, В, С, зібраних робітником за місяць. Завдання виконано в повному обсязі. Створена програма є цільною та може використовуватися користувачами усіх рівнів володіння ПК. До програми розроблена інструкція.

Дана програма була написана на мові програмування Pascal.

Програму умовно можна поділити на чотири частини, тобто чотири алгоритми: алгоритм створення текстового файлу, алгоритм зчитування з файлу, алгоритм підрахунку середньої заробітної плати, алгоритм синтаксичного аналізатору. Для роботи процедур, що реалізують алгоритми був створений тип даних information який має шість полів: FN типу String, в якому буде зберігається прізвище користувача, Qualification типу String - кваліфікація робітника, Craft типу String - найменування/номер цеху, а також A, B та C типу Word - кількість виробів по категоріям.

Програма починає свою роботу з меню, яке складається з 5 пунктів: створення файлу, перегляд файлу, підрахунок зарплатні, пошук збирачів та вихід із програми. Надалі користувач, за допомогою інструкцій, поданих у розділі , працює з програмою.

СПИСОК ЛІТЕРАТУРИ

Методичні вказівки до виконання лабораторних робіт з дисципліни

„Інформатика та комп'ютерна техніка”. Розділ «Основи алгоритмізації та програмування мовою Pascal» / Укладачі: Є.М.Литвиненко, О.В.Мерлак, О.В. Леуненко - Харків: ХДТУБА, 2005.

Д. Прайс. Программирование на языке Паскаль. Практическое руководство. 1987 год.

М.А. Черкасов. Практический курс программирования на ПАСКАЛЕ. Уч. пособие. 2005 год.

Т.А. Павловская. Паскаль. Программирование на языке высокого уровня. Учебник. 2007 год.

Методичні вказівки до виконання курсової роботи з дисципліни

«Алгоритмізація та програмування» для студентів напряму підготовки

6.050101 «Комп'ютерні науки» / Укладачі: Є.М.Литвиненко, О.В. Мерлак, -Харків: ХНУБА, 2015.

ДОДАТОК

Вихідний код програми

program Course;

Type Info = record

FullName : String;

Qualification : String;

Craft : String;

A,B,C : Word;

end;

Const Sa = 5;

Const Sb = 10;

Const Sc = 15;

Var ch :Byte;

f : text;

t : info;

n : String;

Procedure Create;

Var c : Char;

Begin

Write ('введите название файла: ');

ReadLn (n);

assign(f,n);

rewrite (f);

Repeat

WriteLn ('введите данные о собирателе');

WriteLn ('введите фамилию собирателя: ');

ReadLn (t.FullName);

WriteLn (f,t.FullName);

WriteLn ('Введите номер цеха: ');

ReadLn (t.Craft);

WriteLn (f,t.Craft);

WriteLn ('введите квалифицацию собирателя');

ReadLn (t.Qualification);

WriteLn (f,t.Qualification, ' ');

WriteLn ('введите количество изделий категории А');

ReadLn (t.A);

WriteLn (f, t.A);

WriteLn ('введите количество изделий категории B');

ReadLn (t.B);

WriteLn (f,t.B);

WriteLn ('введите количество изделий категории С');

ReadLn (t.C);

WriteLn (f,t.C);

Write ('вводить следующего собирателя (y/n)?: ');

ReadLn (c);

Until c='n';

reset(f);

Close (f);

End;

Procedure review;

Var t: Info;

n: String;

Begin

Write ('Введите название файла: ');

ReadLn (n);

Assign (F,n);

{$I-}

Reset (F);

while ioresult<>0 do begin

writeln;

writeln('Указаный файл не найден');

writeln;

write('Введите имя файла: ');

readln(n);

assign(f,n);

reset(f);

end;

{$I+}

writeLn;

WriteLn ('Фамилия',' ':8,'Квалификация',' ':11,'Номер цеха',' ':8,'A',' ':3,'B',' ':3,'C',' ':3);

While Not (Eof(F)) do

begin

ReadLn (f, t.FullName);

ReadLn (f,t.Craft);

ReadLn (f, t.Qualification);

ReadLn (f, t.A);

ReadLn (f, t.B);

ReadLn (f, t.C);

WriteLn;

WriteLn (t.FullName,' ':(15-Length(t.FullName)),t.Qualification,' ':(23-Length(t.Qualification)),t.Craft,' ':(18-Length(t.Craft)),t.A:1,' ',t.B:3,' ',t.C:3);

WriteLn;

end;

Close (f);

end;

Procedure SalarySR;

Var

Sal : Word;

Worker : Word;

Begin

write ('введите название файла: ');

ReadLn (n);

Assign (F,n);

{$I-}

Reset (F);

while ioresult<>0 do begin

writeln;

writeln('Указаный файл не найден');

writeln;

write('Введите имя файла: ');

readln(n);

assign(f, n);

reset(f);

end;

{$I+}

Sal:= 0;

Worker := 0;

While Not (Eof(F)) do

begin

ReadLn (f,t.FullName);

ReadLn (f,t.Craft);

ReadLn (f,t.Qualification,t.A, t.B, t.C);

Sal := Sal + (t.A*Sa) + (t.b *Sb)+ (t.c * Sc);

WriteLn;

Worker := Worker+1;

WriteLn;

end;

Close(F);

Write ('Средняя зарплата работника цеха: ');

WriteLn (Sal/Worker:5:2);

ReadLn;

End;

procedure poiskFN(n, FullName:string);

begin

assign(f,n);

reset(f);

while not (eof(f)) do

begin

ReadLn (f,t.FullName);

ReadLn (f,t.Craft);

ReadLn (f,t.Qualification);

ReadLn (f,t.A);

ReadLn (f,t.B);

ReadLn (f,t.C);

if t.FullName=FullName then

begin

WriteLn ('Фамилия',' ':8,'Квалификация',' ':11,'Номер цеха',' ':8,'A',' ':3,'B',' ':3,'C',' ':3);

WriteLn (t.FullName,' ':(15-Length(t.FullName)),t.Qualification,' ':(23-Length(t.Qualification)),t.Craft,' ':(18-Length(t.Craft)),t.A:1,' ',t.B:3,' ',t.C:3);

end;

end;

close(f);

end;

procedure poiskQualification(n, Qualification:string);

begin

assign(f,n);

reset(f);

while not (eof(f)) do

begin

ReadLn (f,t.FullName);

If t.Qualification=Qualification then

begin

ReadLn (f,t.Craft);

ReadLn (f,t.Qualification);

ReadLn (f,t.A);

ReadLn (f,t.B);

ReadLn (f,t.C);

WriteLn ('Фамилия',' ':8,'Квалификация',' ':11,'Номер цеха',' ':8,'A',' ':3,'B',' ':3,'C',' ':3);

WriteLn (t.FullName,' ':(15-Length(t.FullName)),t.Qualification,' ':(23-Length(t.Qualification)),t.Craft,' ':(18-Length(t.Craft)),t.A:1,' ',t.B:3,' ',t.C:3);

end;

end;

close(f);

end;

procedure analizator;

var s, Qualification, n, FullName:string;

p:integer;

begin

write('Введите название файла:');

readLn(n);

writeLn('Введите запрос:(например:"Фамилия=Иванов","Квалификация=Квалификация")');

readLn(s);

if pos('Фамилия=',s)<>0 then

begin

p:=pos('=',s);

FullName:=copy(s,p+1,length(s));

poiskFN(n,FullName);

end

else if pos('Квалификация=',s)<>0 then

begin

p:=pos('=',s);

Qualification:=copy(s,p+1,length(s));

poiskQualification(n,Qualification);

end;

end;

Begin

Repeat

WriteLn ('1 : Создание файла');

WriteLn ('2 : Просмотр файла');

WriteLn ('3 : Подсчет зарплаты');

WriteLn ('4 : Поиск сотрудников');

Writeln ('5 : Выход из программы');

Write ('Выберите пункт меню : ');

readLn(ch);

Case ch of

1: Create;

2: Review;

3: SalarySr;

4: Analizator;

5:;

else WriteLn ('Ошибка ввода');

end;

Until ch=5;

end.

Размещено на Allbest.ru

...