Реферат: Курсовая работа по базе данных СУБД

readln(studtoout);

while not eof(f) do

begin

read(f,st);

if st.sname_Hozaina<>studtoout then write(fo,st);

end;

close(f);close(fo);

erase(f);

rename(fo,filename);

end;

{ОСНОВНАЯ ЧАСТЬ ПРОГРАММЫ}

Begin 11:clrscr;

writeln(' МЕНЮ:');

writeln('1:Создание файла');

writeln('2:Добавление записи в файл');

writeln('3:Корректировка записи');

writeln('4:Просмотр файла');

writeln('5:Удаление записи из файла');

writeln('6:Выход из программы');

readln(k);

case k of 1: begin Creatfile; Inputfile end;

2: begin Addrecord; Inputfile end;

3: redzap;

4: begin Openfile; Outputfile end;

5: Clearfile;

6: Halt;

else writeln('Ошибка.Повторите номер режима.')

end;

goto 11;

End.