Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Запись символов из одного файла в другой..

Автор: Tucn 2.05.2009 21:48

Здравствуйте ,помогите пожалуйста в решении данной задачки smile.gif
Дан символьный файл f. Записать в файл g с сохраненным порядком следования те символы файла f, вслед за которым в этом файле идет буква А.

Автор: Lapp 3.05.2009 18:22

Цитата(Tucn @ 2.05.2009 18:48) *
Дан символьный файл f. Записать в файл g с сохраненным порядком следования те символы файла f, вслед за которым в этом файле идет буква А.
Вот как-то так можно:
Read(F,c);
while not Eof(F) do begin
Read(F,d);
if UpCase(d)='A' then Write(g,c);
c:=d
end;

Автор: Tucn 3.05.2009 18:59

Большое спасибо smile.gif