Работа с текстовыми файлами в языке Паскаль - 17 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

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

Рубрика: 

17
begin
{ Ввод данных }
Write('Имя входного файла: ');
ReadLn(SInFileName);
Write('Имя выходного файла: ');
ReadLn(SOutFileName);
Write('Количество строк для пропуска: ');
ReadLn(N);
if (N < 1) or (N > NMax) then
WriteLn(
'Ошибка: количество пропускаемых строк ',
'должно быть положительным и не больше ',
NMax)
else
begin
{ Открытие входного файла на чтение }
Assign(FIn, SInFileName);
Reset(FIn);
{ 1. Считывание в буфер первых N строк }
I := 0;
while not EOF(FIn) and (I < N) do
begin
{ Определение следующей позиции в буфере }
I := I + 1;
{ Чтение очередной строки в элемент I буфера }
ReadLn(FIn, ASBuffer[I])
end; { while not EOF(FIn) and (I < N) }
{ Открытие выходного файла на запись }
Assign(FOut, SOutFileName);
Rewrite(FOut);
{ 2. Запись строк из буфера в выходной файл }
{ с одновременным считыванием в него строк }
{ из входного файла }
I := 0;

Страницы