Здравствуйте ,помогите пожалуйста в решении данной задачки Дан символьный файл 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
Большое спасибо
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.