Облік DVD фільмів на дисках

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

ЗМІСТ

Вступ

1. Аналіз завдання

2. Розробка алгоритму функціонування

3. Створення програми із описом основних структур, процедур, модулів, файлів

4. Опис технології роботи програми - ввід даних, основні режими роботи, вивід результатів

Висновки

Перелік використаної літератури

Додаток (текст програми)

ВСТУП

Тема даного курсового проекту - «Облік DVD фільмів на дисках».

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

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

1. Аналіз завдання

«Облік DVD фільмів на дисках»

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

Завданням даного курсового проекту є написання головної програми, що служать для створення головного меню програми.

Яке складається з таких пунктів:

1. Показати всі диски, що є у базі даних;

2. Пошук диску”;

3. Додавання диску;

4. Видалення диску;

5. Перезапису файлу з всіма дисками;

6. Вихід

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

2. Розробка алгоритму функціонування

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

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

Дана програма складається з таких процедур:

Procedure pokazatu - це є головна процедура, яка виводить на екран всі фільми які є у базі даних.

Procedure znajtu - процедура яка знаходить фільм у базі даних.

Procedure dodatu - процедура яка додає новий диск у базу дисків.

Procedure stertu - процедура яка стирає фільм з бази даних.

Procedure pomylka - процедура , яка виводить вікно помилки , де вказані її можливі причини.

Procedure MAIN_MENU - процедура яка виводить на екран меню програми.

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

3. Створення програми із описом основних структур, процедур, модулів, файлів

Дана частина програми, дозволяє створити меню програми:

Procedure MAIN_MENU;

begin

clrscr;

WriteLn('1. Показати всі диски, що є в базі даних');

WriteLn('2. Пошук диску');

WriteLn('3. Додати диск');

WriteLn('4. Видалити диск');

WriteLn('5. Перезаписати файл з всіма дисками');

WriteLn;

WriteLn('0. ВИХІД')

end;

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

Procedure pokazatu; {Створення процедури виведення списку фільмів }

begin

clrscr;

{$I-} {Відключення директиви}

Reset(fil); {Відкриття файлу для зчитування з нього данних}

{$I+} {Підключення директиви}

if IOResult <> 0 then pomylka {IOResalt - функція яка перевіряє

правильність виконання операції }

else

begin

with oblik do

while not EOF(fil) do {Кінець файлу - end of file}

begin

Read(fil, oblik);

WriteLn(nomer, ' ', Nazva_filmy, ' ', tup, ' ',vlasnuk );

end;

WriteLn;

WriteLn('КІНЕЦЬ ФАЙЛУ');

WriteLn;

WriteLn('Натисніть будь-яку клавішу для продовження');

ReadKey;

Close(fil);

clrscr

end

end;

Процедура, яка дозволяє знайти диск за назвою фільму:

Procedure znajtu;

begin

clrscr;

{$I-}

Reset(fil);

{$I+}

if IOResult <> 0 then pomylka

else

begin

Write('Введіть назву фільму, диск якого бажаєте знайти: ');

ReadLn(c);

with oblik do

while not EOF(fil) do

begin

Read(fil, oblik);

m:=pos(c,nazva_filmy);

if m > 0 then Write(nazva_filmy, ' ', tup, ' ', nomer, ' ',vlasnuk );

end;

WriteLn;

Write('КІНЕЦЬ ФАЙЛУ');

WriteLn;

WriteLn('Натисніть будь-яку клавішу для продовження');

ReadKey;

Close(fil);

clrscr

end

end;

Процедура, яка дозволяє додати нові диски з фільмами:

Procedure dodatu;

begin

clrscr;

{$I-}

Rewrite(tym);

Reset(fil);

{$I+}

if IOResult <> 0 then pomylka

else

begin

with oblik do

begin

while not EOF(fil) do

begin

Read(fil, oblik);

Write(tym, oblik)

end;

a := 1;

while a <> 0 do

begin

Write('Назва фільму: ');

ReadLn(nazva_filmy);

Write('Тип диску: ');

ReadLn(tup);

Write('Номер №: ');

ReadLn(nomer);

Write('Власник: ');

ReadLn(vlasnuk);

Write(tym, oblik);

WriteLn;

Write('Додати ще один запис? 1 - так / 0 - ні ');

ReadLn(a);

end;

Close(fil);

Close(tym);

Rewrite(fil);

Reset(tym);

while not EOF(tym) do

begin

Read(tym, oblik);

Write(fil, oblik)

end

end;

Close(fil);

Close(tym);

WriteLn('Збережено!');

WriteLn;

WriteLn('Натисніть будь-яку клавішу для продовження');

ReadKey;

clrscr

end

end;

Процедура, яка дозволяє стерти фільм з обліку дисків:

Procedure stertu;

begin

clrscr;

{$I-}

Rewrite(tym);

Reset(fil);

{$I+}

if IOResult <> 0 then pomylka

else

begin

with oblik do

begin

Write('Введіть назву фільма, який бажаєте видалити: ');

ReadLn(c);

while not EOF(fil) do

begin

Read(fil, oblik);

if nazva_filmy <> c then Write(tym, oblik)

end;

Close(fil);

Close(tym);

Rewrite(fil);

Reset(tym);

while not EOF(tym) do

begin

Read(tym, oblik);

Write(fil, oblik)

end

end;

Close(fil);

Close(tym);

WriteLn('Збережено!');

WriteLn;

WriteLn('Натисніть будь-яку клавішу для продовження');

ReadKey;

clrscr

end

end;

Процедура, яка дозволяє перезаписати весь облік з дисками:

Procedure stvorutu;

begin

clrscr;

Rewrite(fil);

a := 1;

with oblik do

while a <> 0 do

begin

Write('Назва фільму: ');

ReadLn(nazva_filmy);

Write('Тип диска: ');

ReadLn(tup);

Write('Номер №: ');

ReadLn(nomer);

Write('Власник: ');

ReadLn(vlasnuk);

Write(fil, oblik);

WriteLn;

Write('Додати ще один запис? 1 - так / 0 - ні ');

ReadLn(a);

end;

WriteLn('Збережено!');

WriteLn;

WriteLn('Натисніть будь-яку клавішу для продовження');

ReadKey;

clrscr;

Close(fil)

end;

Процедура, яка виводить вікно помилки, де вказані її можливі причини:

Procedure pomylka;

begin

clrscr;

WriteLn('Неможливо відкрити файл з диску!');

WriteLn;

WriteLn('Файл з диску не відповідає!');

WriteLn;

WriteLn('Файл з диску був переіменований або знищений!');

WriteLn;

WriteLn('Ви можете створити файл вручну або за допомогою головного меню ');

WriteLn;

WriteLn;

WriteLn('Натисніть будь-яку клавішу для продовження');

ReadKey;

clrscr

end;

4. Опис технології роботи програми - ввід даних, основні режими роботи, вивід результатів

Після запуску програми на екрані комп'ютера з'являється вікно яке показує інформацію про курсову роботу (мал. 1).

Мал. 1

Далі натискаємо на будь-яку клавішу, і на екран виводиться головне вікно програми (мал. 2)

Мал. 2

Вибиравши пункт №1 з меню головної програми, нам на екран виводяться усі фільми які є у базі даних (мал. 3)

Мал. 3

Наступний пункт (№2) головного меню, дозволяє знайти диск за назвою фільму (мал. 4, мал. 5)

Мал. 4

програма процедура облік фільм



Мал. 5

Наступний пункт (№3) головного меню, дозволяє додати новий диск у базу даних (мал. 6)

Мал. 6

Наступний пункт (№4) головного меню, дозволяє видалити диск з бази даних (мал. 7, мал. 8)



Мал. 7

Мал. 8

Наступний пункт (№5) головного меню, перезаписує файл з всіма дисками (мал. 9)



Мал. 9

Останній пункт (№6) здійснює вихід з програми

ВИСНОВОК

Можна зробити висновок, що дана програма розроблена для швидкого створення бази даних фільмів на DVD дисках.

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

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

ПЕРЕЛІК ВИКОРИСТАНОЇ ЛІТЕРАТУРИ:

1. Я.М. Глинський, В.Є. Анохін, В.А. Ряжська: Turbo Pascal&Delphi - Львів, 2007.

2. Меженний О.А.: Turbo Pascal. - Київ, 2005.

3. Ставровській А.Б., Карнаух Т.О.: Turbo Pascal ”програмування” - Київ, 2005.

4. Моргун О.М.: Turbo Pascal. - Львів, 2006.

ДОДАТОК

Program Kyrsova;

uses wincrt; {Підключення модуля}

type spusok = record {Створення списку}

Nazva_filmy : string;

Tup : string;

Nomer : string;

Vlasnuk : string

end;

doc = file of spusok;

var fil : doc; {Оголошення змінних}

tym : doc;

oblik : spusok;

a, b,m : integer;

c : string;

Procedure pomylka; {Створення процедури - помилка}

begin

clrscr;

WriteLn('Неможливо відкрити файл з диску!');

WriteLn;

WriteLn('Файл з диску не відповідає!');

WriteLn;

WriteLn('Файл з диску був переіменований або знищений!');

WriteLn;

WriteLn('Ви можете створити файл вручну або за допомогою головного

меню ');

WriteLn;

WriteLn;

WriteLn('Натисніть будь-яку клавішу для продовження');

ReadKey;

clrscr

end;

Procedure pokazatu; {Створення процедури виведення списку фільмів }

begin

clrscr;

{$I-} {Відключення директиви}

Reset(fil); {Відкриття файлу для зчитування з нього данних}

{$I+} {Підключення директиви}

if IOResult <> 0 then pomylka {IOResalt - функція яка перевіряє

правильність виконання операції }

else

begin

with oblik do

while not EOF(fil) do {Кінець файлу - end of file}

begin

Read(fil, oblik);

WriteLn(nomer, ' ', Nazva_filmy, ' ', tup, ' ',vlasnuk );

end;

WriteLn;

WriteLn('КІНЕЦЬ ФАЙЛУ');

WriteLn;

WriteLn('Натисніть будь-яку клавішу для продовження');

ReadKey;

Close(fil);

clrscr

end

end;

Procedure stvorutu;

begin

clrscr;

Rewrite(fil);

a := 1;

with oblik do

while a <> 0 do

begin

Write('Назва фільму: ');

ReadLn(nazva_filmy);

Write('Тип диска: ');

ReadLn(tup);

Write('Номер №: ');

ReadLn(nomer);

Write('Власник: ');

ReadLn(vlasnuk);

Write(fil, oblik);

WriteLn;

Write('Додати ще один запис? 1 - так / 0 - ні ');

ReadLn(a);

end;

WriteLn('Збережено!');

WriteLn;

WriteLn('Натисніть будь-яку клавішу для продовження');

ReadKey;

clrscr;

Close(fil)

end;

Procedure dodatu;

begin

clrscr;

{$I-}

Rewrite(tym);

Reset(fil);

{$I+}

if IOResult <> 0 then pomylka

else

begin

with oblik do

begin

while not EOF(fil) do

begin

Read(fil, oblik);

Write(tym, oblik)

end;

a := 1;

while a <> 0 do

begin

Write('Назва фільму: ');

ReadLn(nazva_filmy);

Write('Тип диску: ');

ReadLn(tup);

Write('Номер №: ');

ReadLn(nomer);

Write('Власник: ');

ReadLn(vlasnuk);

Write(tym, oblik);

WriteLn;

Write('Додати ще один запис? 1 - так / 0 - ні ');

ReadLn(a);

end;

Close(fil);

Close(tym);

Rewrite(fil);

Reset(tym);

while not EOF(tym) do

begin

Read(tym, oblik);

Write(fil, oblik)

end

end;

Close(fil);

Close(tym);

WriteLn('Збережено!');

WriteLn;

WriteLn('Натисніть будь-яку клавішу для продовження');

ReadKey;

clrscr

end

end;

Procedure znajtu;

begin

clrscr;

{$I-}

Reset(fil);

{$I+}

if IOResult <> 0 then pomylka

else

begin

Write('Введіть назву фільму, диск якого бажаєте знайти: ');

ReadLn(c);

with oblik do

while not EOF(fil) do

begin

Read(fil, oblik);

m:=pos(c,nazva_filmy);

if m > 0 then Write(nomer, ' ', nazva_filmy, ' ', tup, ' ',vlasnuk );

end;

WriteLn;

Write('КІНЕЦЬ ФАЙЛУ');

WriteLn;

WriteLn('Натисніть будь-яку клавішу для продовження');

ReadKey;

Close(fil);

clrscr

end

end;

Procedure stertu;

begin

clrscr;

{$I-}

Rewrite(tym);

Reset(fil);

{$I+}

if IOResult <> 0 then pomylka

else

begin

with oblik do

begin

Write('Введіть назву фільма, який бажаєте видалити: ');

ReadLn(c);

while not EOF(fil) do

begin

Read(fil, oblik);

if nazva_filmy <> c then Write(tym, oblik)

end;

Close(fil);

Close(tym);

Rewrite(fil);

Reset(tym);

while not EOF(tym) do

begin

Read(tym, oblik);

Write(fil, oblik)

end

end;

Close(fil);

Close(tym);

WriteLn('Збережено!');

WriteLn;

WriteLn('Натисніть будь-яку клавішу для продовження');

ReadKey;

clrscr

end

end;

Procedure MAIN_MENU;

begin

clrscr;

WriteLn('1. Показати всі диски, що є в базі даних');

WriteLn('2. Пошук диску');

WriteLn('3. Додати диск');

WriteLn('4. Видалити диск');

WriteLn('5. Перезаписати файл з всіма дисками');

WriteLn;

WriteLn('0. ВИХІД')

end;

begin

Writeln(' Міністерство освіти і науки України ');

WriteLn(' Тернопільський державний технічний університет');

Writeln(' імені Івана Пулюя');

WriteLn;

WriteLn(' КУРСОВА РОБОТА');

Writeln(' з дисципліни "Програмування"');

Writeln;

WriteLn(' на тему:');

WriteLn(' "ОБЛІК DVD ФІЛЬМІВ НА ДИСКАХ"');

WriteLn;

Writeln;

Writeln;

Writeln(' Виконав');

WriteLn(' студент групи РІ-11');

WriteLn(' Мороз Р.І.');

WriteLn;

WriteLn(' Керівник');

WriteLn(' Гладьо Ю.Б.');

WriteLn;

WriteLn;

WriteLn;

WriteLn;

WriteLn;

WriteLn(' Тернопіль 2009');

ReadKey;

clrscr;

Assign(fil, 'G:\Temp\oblikdvd.txt');

Assign(tym, 'G:\Temp\tymchas.txt');

b := 1;

while b <> 0 do

begin

MAIN_MENU;

ReadLn(b);

if b = 1 then pokazatu;

if b = 2 then znajtu;

if b = 3 then dodatu;

if b = 4 then stertu;

if b = 5 then stvorutu;

end;

clrscr;

Write('РОБОТА З ПРОГРАМОЮ ЗАВЕРШЕНА')

end.

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

...