Добавил:

bagiwow Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Пермский национальный исследовательский политехнический университет

Предмет:

Информатика

Файл:

курсач 2 семестр / Пермский государственный технический университет.doc

Скачиваний:

Добавлен:

10.12.2013

Размер:

252.93 Кб

Скачать

☆

<<< < Предыдущая 1 23 / 33

5 Инструкция пользователю

Программа предназначена для использования на компьютерах с операционной системой Windows XP.

Чтобы запустить программу нужно два раза щёлкнуть мышкой по файлу с разрешением ехе. Для выхода из программы нажать клавишу еsc.

Она может храниться на любом носителе (флеш памяти, диске, жестком диске…) объёмом не менее 2мб + совсем немного дополнительного места для сохранённых текстовых файлов.

После включения программы сразу же появится у пользователя сразу же будет выбор работать со старой базой данных или создать новую в зависимости от того что он выберет с той базой он и будет работать. Для дальнейшей работы нужно просто следовать указаниям которые виде текста выводятся на экране.

Заключение

В этой курсовой работе была выполнена задача, которую я перед собой ставил. То есть создана база данных, в которой хранится информация о музыкальных группах, причём можно найти группу в базе, добавить группу, удалить её, записать эту базу в файл и при выходе из программы, данные в нем сохраняются.

Приложения

Текст программы:

program My_Curse;

uses dos,graph,crt;

type group=record

Group:string[30];

Style:string[30];

Country:string[30];

Albums:1..15;

RLabel:string[30];

Rating:1..5;

end;

const t:array[1..7] of string[15]=('Добывить группу','Просмотр базы','Поиск группы',

'Удалить группу','Редактирование данных','Сортировка',

'Выход из программы');

var Reg : Registers;

f:file of group;

a:array[1..1000] of ^group;

gd,gm:integer;

i,y,xm,ym:integer;

procedure MoveMouse(var X, Y: Integer);

begin

repeat

Reg.AX:=$05;

Reg.BX:=$00;

Intr($33,Reg);

until Reg.BX = 1;

X:=Reg.CX;

Y:=Reg.DX;

end;

procedure ShowCursor;

begin

Reg.AX:=$01;

Intr($33, Reg);

end;

procedure CloseCursor;

begin

Reg.AX:=$02;

Intr($33, Reg);

end;

procedure setmouserange(x1,y1,x2,y2:integer);

begin

x1:=x1*2;

x2:=x2*2;

Reg.ax:=$07;

Reg.cx:=x1;

Reg.dx:=x2;

intr($33,Reg);

Reg.ax:=$08;

Reg.cx:=y1;

Reg.dx:=y2;

intr($33,Reg);

end;

procedure swap(var a,b:group);

var c:group;

begin c:=a; a:=b; b:=c;

end;

function ravno(s,t:string):boolean;

var i:integer;

begin ravno:=true;

for i:=1 to length(s) do

if s[i]<>t[i] then ravno:=false

end;

procedure vvod;

var i,j,n:integer;ch:char;

Begin

closegraph;

writeln('********************************');

writeln('*Добывление новой группы в базу*');

writeln('********************************');

writeln;

reset(f);

i:=0;

while not eof(f) do

begin

inc(i);

new(a[i]);

read(f,a[i]^);

end;

repeat

inc(i);

new(a[i]);

write('Название: ');

readln(a[i]^.group);

write('Стиль: ');

readln(a[i]^.style);

write('Страна: ');

readln(a[i]^.country);

write('Количесво альбомов: ');

readln(a[i]^.albums);

write('Лейбл: ');

readln(a[i]^.Rlabel);

write('Рейтинг: ');

readln(a[i]^.Rating);

writeln;

write('Ввести еще? (y/n): ');

readln(ch);

until ch='n';

n:=i;

for j:=1 to n do

for i:=1 to n-j do

if a[i]^.group > a[i+1]^.group then swap(a[i]^,a[i+1]^);

rewrite(f);

for i:=1 to n do write(f,a[i]^);

close(f);

End;

procedure vew;

var i,n:integer;ch:char;

Begin

closegraph;

writeln('***************');

writeln('*Просмотр базы*');

writeln('***************');

writeln;

reset(f);

i:=0;

while not eof(f) do

begin

inc(i);

new(a[i]);

read(f,a[i]^);

end;

n:=i;

i:=0;

repeat

inc(i);

writeln('Название: ',a[i]^.group);

writeln('Стиль: ',a[i]^.style);

writeln('Страна: ',a[i]^.country);

writeln('Количество альбомов: ',a[i]^.albums);

writeln('Лейбл: ',a[i]^.Rlabel);

writeln('Рейтинг: ',a[i]^.Rating);

writeln;

if i<>n then begin

write('показать следующую? (y/n): ');

readln(ch);end

else ch:='n';

writeln;

until (ch='n');

Write('Нажмите любую клавишу для выхода в главное меню');

readln;

End;

procedure poisk;

var s:string; i,n:integer; ch:char;

Begin

closegraph;

writeln('**************************');

writeln('*Поиск группы по названию*');

writeln('**************************');

writeln('Примечание: по вводе названия искомой группы, вводте каждое отдельное слово с заглавной группы');

writeln;

reset(f);

i:=0;

while not eof(f) do

begin

inc(i);

new(a[i]);

read(f,a[i]^);

end;

n:=i;

repeat

writeln;

write('Введите название группы: ');

readln(s);

writeln;

i:=0;

repeat

inc(i);

until ravno(s,a[i]^.group) or (i=n);

if not ravno(s,a[i]^.group) then writeln('Такой группы в базе нет');

if ravno(s,a[i]^.group) then

begin

writeln('Название: ',a[i]^.group);

writeln('Стиль: ',a[i]^.style);

writeln('Страна: ',a[i]^.country);

writeln('Количество альбомов: ',a[i]^.albums);

writeln('Лейбл: ',a[i]^.Rlabel);

writeln('Рейтинг: ',a[i]^.rating);

end;

writeln;

write('Искать еще? (y/n): ');

readln(ch)

until (ch='n')

End;

procedure del;

var s:string; i,j,n:integer; ch:char;

Begin

closegraph;

writeln('************************');

writeln('*Удалить группу из базы*');

writeln('************************');

writeln('Примечание: по вводе названия удаляемой группы, вводте каждое отдельное слово с заглавной группы');

writeln;

reset(f);

i:=0;

while not eof(f) do

begin

inc(i);

new(a[i]);

read(f,a[i]^);

end;

n:=i;

repeat

write('Введите название удаляемой группы: ');

readln(s);

writeln;

i:=0;

repeat

inc(i);

until ravno(s,a[i]^.group) or (i=n);

if not ravno(s,a[i]^.group) then writeln('Такой группы нет');

if ravno(s,a[i]^.group) then

begin

writeln('Название: ',a[i]^.group);

writeln('Стиль: ',a[i]^.style);

writeln('Страна: ',a[i]^.country);

writeln('Количество альбомов: ',a[i]^.albums);

writeln('Лейбл: ',a[i]^.Rlabel);

writeln('Рейтинг: ',a[i]^.rating);

writeln;

write('Удалить? (y/n): ');

readln(ch);

if ch='y' then

begin

for j:=i to n-1 do

a[j]^:=a[j+1]^;

if j=n then

Dispose(a[j]);

end;

writeln;

write('Удалить еще? (y/n): ');

readln(ch)

until ch='n';

rewrite(f);

for i:=1 to n-1 do write(f,a[i]^);

close(f)

End;

procedure edit;

var s:string; i,j,n,kod:integer; ch:char;

p:array[1..8] of string[30];

Begin

closegraph;

writeln('***********************');

writeln('*Редактирование данных*');

writeln('***********************');

writeln('Примечание: по вводе названия редактируемой группы, вводте каждое отдельное слово с заглавной группы');

writeln;

reset(f);

i:=0;

while not eof(f) do

begin

inc(i);

new(a[i]);

read(f,a[i]^);

end;

n:=i;

repeat

writeln;

write('Введите название группы: ');

readln(s);

writeln;

i:=0;

repeat

inc(i);

until ravno(s,a[i]^.group) or (i=n);

if not ravno(s,a[i]^.group) then writeln('Такой группы в базе нет');

if ravno(s,a[i]^.group) then

begin

writeln('Название: ',a[i]^.group);