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

readln(k);

if (k='y') or (k='Y') then

while not eof(f) do

begin

read(f,st); clrscr;

writeln('Фамилия хозяина:',st.Sname_Hozaina);

writeln('Имя хозяина:',st.Name_Hozaina);

writeln('марка машины:',st.markauto);

writeln('модель машины:',st.model_auto);

writeln('тип кузова:',st.tip_kyzova);

writeln('номер машины:',st.nomer_auto);

writeln('регион;',st.region);

writeln('год выпуска:',st.god_vipyska);

writeln('цвет:',st.color);

writeln('Для продолжения нажмите (enter)');

readln;

end;

close(f);

end;

{========================================================}

procedure Clearfile;

var st:prokat;

studtoout:string[20];

fo:file of prokat;

begin

writeln('Задайте имя файла,из которого удаляются элементы');

readln(filename);

assign(f,filename);reset(f);

assign(fo,'newfile.dat');rewrite(fo);