25.02.2012, 21:13 | #1 (permalink) |
Member
Регистрация: 08.10.2011
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Паскаль, текстовые файлы
Помогите, пожалуйста разобраться с задачей!( я в опечалена тем, что занимаюсь программированием 1.5 года , но не все и всегда понимаю. Как я же я завидую специалистам) Необходимо написать программу, преобразующую текстовый файл в соответствии с требованиями, заданными в конкретном варианте. в качестве исходного текстового файла взять файл с текстом любой программы. В программе использовать строковую функцию pos(st1,st) В начало строки , в которой располагается процедура Close дописать комментарий {конец строки} |
25.02.2012, 21:13 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Темы которые подобны вашей уже были на нашем форуме Паскаль, файлы Чем отличаются текстовые файлы от типизированных? |
25.02.2012, 22:06 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Var f,g:Text; S,S1:String; Begin S1:='{end of line}'; Assign(f,'D:\input.txt'); Reset(f); Assign(g,'D:\output.txt'); Rewrite(g); Repeat Readln(f,S); If Pos('Close',S)=0 then Writeln(g,S) else Writeln(g,S1+S); Until EoF(f); Close(f); Close(g); End. |
|
26.02.2012, 11:20 | #3 (permalink) |
Member
Регистрация: 08.10.2011
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо Вам огромное!!!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|