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

UptoLike

ВУЗ: 

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

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

Рубрика: 

96
var f: file of integer;
name,namef:string;
q:word;
w:string;
r:integer;
begin
q:=1; { определяет номер диска , так А: имеет номер = 1}
if (disksize(q)–diskfree(q))=disksize(q) then { disksize – объем диска }
{ diskfree – объем свободной части диска }
writeln ('Нет свободного места для каталога.');
else
begin
writeln('Введите имя создаваемого каталога');
readln(name);
getdir(q,w); { в w записывается текущий каталог }
w:=w+name;
mkdir (w ); { создание своего каталога }
writeln ('Каталог создан.');
writeln ('Введите имя файла.');
readln (namef);
assign(f,'\'+name+'\'+namef);
rewrite(f);
writeln ('Введите эл–ты файла');
for i:=1 to 10 do
begin
read (r);
write (f , r );
end;
close (f);
writeln ('Файл записан в созданный каталог.');
end;
end.
5.2. Файлы без типа
Файлы без типа предназначены для организации высокоскоростного
обмена между оперативной памятью и дисковой, а также когда тип
компонент файла заранее неизвестен или несущественен.
Для объявления файловой переменной без типа используется
следующее описание
var
f,s,t:file;

Страницы