Основы программирования на языке Turbo Pascal. Беляева И.В. - 185 стр.

UptoLike

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

Рубрика:

185

чтения из текстового файла рекомендуется использовать цикл по условию «пока

не конец файла»}

While not eof(f1) do

Begin

Readln(f1,s);{считываем очередную строку из первого файла}

If (s[1]=’A’) or (s[1]=’a’) then

Writeln(f2,s); {записываем во второй файл строки, удовлетворяющие условию}

End;

Close(f1,f2); {заканчиваем работу с файлами}

{часть третья: выводим на экран второй файл}

Writeln;

Writeln(‘Второй файл содержит строки:’);

Reset(f2); {открываем второй файл для чтения}

While not eof(f2) do {пока не конец второго файла}

Begin

Readln(f2,s);{считываем очередную строку из второго файла}

Writeln(s); {выводим строку на экран}

End;

End.