Створення програми із описом основних структур, процедур, модулів, файлів
Write ('Введіть назву фільму, диск якого бажаєте знайти: '); Процедура, яка дозволяє стерти фільм з обліку дисків: Процедура, яка дозволяє знайти диск за назвою фільму: Процедура, яка дозволяє додати нові диски з фільмами: WriteLn ('Файл з диску був переіменований або знищений!'); Write ('Введіть назву фільма, який бажаєте видалити: '); WriteLn ('Натисніть будь-яку клавішу для продовження… Читать ещё >
Створення програми із описом основних структур, процедур, модулів, файлів (реферат, курсовая, диплом, контрольная)
Дана частина програми, дозволяє створити меню програми:
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;