Перелік використаної літератури
Write ('Введіть назву фільму, диск якого бажаєте знайти: '); WriteLn ('Файл з диску був переіменований або знищений!'); Write ('Введіть назву фільма, який бажаєте видалити: '); WriteLn ('Натисніть будь-яку клавішу для продовження'); WriteLn ('Натисніть будь-яку клавішу для продовження'); WriteLn ('Натисніть будь-яку клавішу для продовження'); WriteLn ('Натисніть будь-яку клавішу для продовження. Читати ще >
Перелік використаної літератури (реферат, курсова, диплом, контрольна)
- 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:Tempoblikdvd.txt');
Assign (tym, 'G:Temp ymchas. 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.