Паскаль, текстовые файлы

Ильгиза · 25.02.2012, 21:13

Здравствуйте!
Помогите, пожалуйста разобраться с задачей!( я в опечалена тем, что занимаюсь программированием 1.5 года , но не все и всегда понимаю. Как я же я завидую специалистам)

Необходимо написать программу, преобразующую текстовый файл в соответствии с требованиями, заданными в конкретном варианте.

в качестве исходного текстового файла взять файл с текстом любой программы.
В программе использовать строковую функцию
pos(st1,st)

В начало строки , в которой располагается процедура Close дописать комментарий {конец строки}

Vladimir_S · 25.02.2012, 22:06

Цитата:

Сообщение от Ильгиза

В начало строки , в которой располагается процедура Close дописать комментарий {конец строки}

И в чем проблемы? Не вижу таковых. Пожалуйста (пути к файлам поправьте на свой вкус):

Код:

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

Спасибо Вам огромное!!!

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	Темы которые подобны вашей уже были на нашем форуме Паскаль, файлы Чем отличаются текстовые файлы от типизированных?

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