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

UptoLike

ВУЗ: 

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

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

Рубрика: 

94
write (ma,' ');
for i:=1 to n–1 do
begin
read (fr,c);
write (fz,c); {запись в выходной файл данных из исходного начиная}
write(c,' '); {со второй до позиции максимального элемента}
end;
seek (fr,0); {установка на первый элемент исходного файла }
read(fr,c); {чтение этого элемента }
write (fz,c); {запись этого элемента на место максимального }
write(' ',c,' ' ); {в выходном файле }
seek(fr,n+1); {установка исходного файла в позицию}
{следующую за позицией максимального элемента}
for i:=n+1 to 29 do
begin
read(fr,c); {чтение}
write (fz,c); {и запись
в выходной файл оставшиxся элементов}
write (c,' ') ;
end;
close (fr); {закрытие файлов}
close (fz);
readln;
end.
Пример 5.3. Сформировать файл строк с проверкой на наличие файла
c задаваемым именем.
program kr5;
var
fz:text;
name,aaa:string;
begin
writeln ('Введите имя файла (в каталоге имеется файл sub81.pas) ');
readln (name);
assign (fz,name);
{$I–} { отключение проверки ввода/вывода }
reset(fz);
{$I+} { включение проверки ввода/вывода }
if IOResult = 0 then { не было ошибки при открытии файла }
writeln ('Файл с таким именем уже существует.');
else
begin
rewrite(fz);
writeln ('Введи строку записи ');

Страницы