Алгоритмы и программы. Афанасьева Т. В - 98 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

98
close(t); {закрытие файла}
reset(t,1); {открытие на чтение с длиной компоненты в 1 байт}
while not Eof(t) do
begin
blockread(t,sym,1); {чтение из файла 1 компоненты в 1 байт}
writeln(sym);
end;
close(t); {закрытие файла}
end.
В качестве примера, когда тип компонент несущественен, рассмот-
рим следующую программу.
Пример 5.7. Определить имя текущего каталога и удалить в нем все
файлы с расширением .BAK.
program k8;
uses dos,crt; { подключение модулей }
var s: searchrec; { этот тип объявлен
в модуле DOS, он является
записью в которой имеются поля name и size файла }
w:string;
b:word;
f:file; { файл без типа }
x:char;
begin
b:=0; {задает текущий диск для getdir }
getdir(b,w); {определение имени текущего каталога в переменной w }
writeln('Определить имя текущего каталога и удалить в нем все файлы с');
writeln('расширением .BAK .');
writeln('Имя текущего каталога');
writeln(w);
writeln('Список удаляемых файлов в текущем каталоге .');
findfirst('*.bak',anyfile,s); {поиск
файлов *.bak}
while doserror=0 do {нет ошибки при поиске файлов}
begin
with s do
begin
writeln (name:12,' '); {печать имен файлов с расширением BAK }
assign (f,name);
reset (f); {$i–} {отключение контроля операции открытия файла}
if ioresult=0 then {нет ошибок при открытии файла, он существует}
begin
close (f);
write('Удалить?(Y/N)');

Страницы