4: begin z.lekc:=zamgde; rewrite(flekc); write(flekc,z.lekc); end;

5: begin z.lab:=zamgde; rewrite(flab); write(flab,z.lab); end;

end;

end;

end;

end;

end.

Процедура использует 3 переменных типа String: zamgde, zamcto, zamcem; и 3 переменные типа integer: j,l,gde.

Процедура задает вопросы пользователю, что, где и чем заменить, ответы присваиваются, соответственно, переменным: zamgde, zamcto, zamcem. Если пользователь введет неверную информацию, то программа либо выключится, либо выдаст сообщение «===ТАКОГО НЕТ===», если информация будет верна, то произойдет замена: из строки будет вырезано необходимое слово и вставлено новое. После всех изменений исправленная строка будет, обратно, записана в файл.

5. ПРОГРАММА, ИСПОЛЬЗУЮЩАЯ ЭТОТ МОДУЛЬ.

Рассмотрим код программы EXAMPLE, использующей процедуры из данного модуля.

program exaple;

uses vvod,crt;

label 1 ,2;

var

decan,kafed,fioar,lekc,lab:string;

z:jurn;

vop:string;

vop1,vop2:integer;

begin

clrscr;

assign(fdecan,'decan.txt');

assign(fkafed,'kafed.txt');

assign(ffio,'fioar.txt');

assign(flekc,'lekc.txt');

assign(flab,'lab.txt');

writeln('если продолжить то 1, заново 2');

readln(vop1);

{начало case}

case vop1 of

1:begin append(fkafed);append(fdecan);append(ffio);append(flekc);append(flab);

pechat(z);

append(fkafed);append(fdecan);append(ffio);append(flekc);append(flab);

writeln('что вы хотите сделать? Если исправить то 1 если добавить то 2');

readln(vop2);

if vop2=1 then goto 1 else goto 2; end;

2:{3}begin rewrite(fkafed);rewrite(fdecan);rewrite(ffio);rewrite(flekc);rewrite(flab);

clrscr;

end;{3}

end;

2:repeat

begin

vdecan(decan, z);

vkafed(kafed, z);

vfio(fioar, z);

vlekc(lekc, z);

vlab(lab, z);

writeln('если вы закончили нажмите ESC, если нет то ENTER');

end;

until readkey=#27;

pechat(z);

writeln('выйти (y/n)');

readln(vop);

if vop='y' then halt {если получаемответ да то выход, если нет то продолжаем}

else

begin

1:repeat

begin

zamenit(z);

pechat(z);

writeln('если вы закочили нажмити ESC');

end;

until readkey=#27;

end;

end.

Программа создает файлы под названием decan.txt, kafed.txt, lab.txt, lekc.txt, fioar.txt в которых, соответственно хранится информация о декане, кафедре, лабораторных, лекциях, фамилии преподавателя.

Программа задает вопрос пользователю, что, но хочет сделать: либо продолжить, либо начать заново. Если пользователю необходимо продолжить то запускается процедура PECHAT после, которой пользователю снова задается вопрос либо исправить и тогда запускается процедура ZAMENIT, либо добавить, тогда процедуры vdecan, vlab, vfio, vlekc, vkafed.

Если же пользователю нужно добавить информацию, то после нажатия кнопки «2» сразу запустятся эти процедуры и произойдет перезапись информации в файл.

6. ЗАКЛЮЧЕНИЕ

В ходе этой работы нами была создана элементарная реляционная база данных, представляющая собой журнал загруженности лекциями и лабораторными работами различных преподавателей. Эта программа была написана на языке TURBO PASKAL, в основе ее работы лежит модуль VVOD, написанный нами на том же языке. Это модуль содержит в себе набор процедур для ввода, вывода и обработки данных. Эту программу можно использовать как диспетчер загруженность преподавателей в университете или в других учебных заведениях.