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

UptoLike

ВУЗ: 

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

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

Рубрика: 

95
readln(aaa);
writeln(fz,aaa) ;
close(fz);
writeln ('Ваши записи в файле с именем ', name);
end;
readln;
end.
Пример 5.4. Переименовать файл с проверкой на наличие исходного
файла.
program k6;
var
fi: file of integer;
name, newname: string;
begin
writeln ('Переименовать файл с проверкой на наличие исходного файла.');
writeln ('Введите имя исходного файла ');
writeln('( в каталоге имеется файл sub81.pas).');
readln(name);
assign (fi,name );
{$I–}
reset (fi);
{$I+}
if IOresult = 0 then
begin
writeln ('В файл с каким именем Вы хотите переименовать этот файл.');
readln(newname);
close(fi);
rename (fi,newname); { переименовка файла }
writeln ('Файл переименован.');
end
else
begin
writeln('Файл ',name,' не существует');
writeln('Нажмите ENTER');
end;
readln;
end.
Пример 5.5. Создать свой каталог и записать туда типизированный
файл с проверкой свободного пространства на диске.
program k7;
uses dos; { подключение библиотеки дополнительных подпрограмм }

Страницы