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

UptoLike

ВУЗ: 

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

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

Рубрика: 

8
Пример 3. Скопировать содержимое одного текстового файла в другой, но
без n последних строк.
Входные данные:
SInFileName — имя входного текстового файла;
SOutFileName — имя выходного текстового файла;
N — количество строк в конце входного файла, которые не нужно
копировать в выходной.
Для решения задачи необходимо дважды прочесть содержимое входного
файла. Первый проход необходим
для того, чтобы узнать общее количество строк
в файле (NLines). При втором проходе нужно скопировать в выходной файл
известное на данный момент количество строк с начала входного файла (NLines
- N). Необходимо предусмотреть случай, когда во входном файле окажется
меньше строк, чем N.
Текст программы:
{
Копирование содержимое одного текстового файла
в другой без n последних строк
}
program s_3_1;
var
SInFileName, SOutFileName: string;
FIn, FOut: Text;
C: Char;
I, N, NLines: Integer;
begin
{ Ввод данных }
Write('Имя входного файла: ');
ReadLn(SInFileName);

Страницы