В текстовом файле поменять все слова, содержащие цепочку "ола", на цепочку "оло".

[Алькер]

В текстовом файле поменять все слова, содержащие цепочку "ола", на цепочку "оло"

[Serge_Bliznykov]

вопрос раз. Зачем Вы задание своё тут написали? Хвастаетесь, какие Вы задачки умеете решать? Или зачем? Хотите заказать решение за деньги? Задание очень простое. Что у Вас конкретно не получается?

вопрос два. ничего не сказано про регистр - при замене учитывать регистр или нет?
Например, если дан текст Нет ПОЛА у Николая, а Оладьи положили ладно., то что должно быть после замены цепочек "ола", на цепочку "оло" ?

[Алькер]

НУ у меня сейчас сдача курсача. И нужно это задание! И да. Как вы написали Нет ПОЛА у Николая, а Оладьи положили ладно..

var
 f: file of char; f1: text;
 s, s1: string; ch: char;
begin
 s1 := 'оло'; 
 assign(f, 'input.txt'); reset(f);
 assign(f1, 'output.txt'); rewrite(f1);
 while(not eof (f)) do
 begin
 s := '';
 repeat 
 read(f, ch); s := s + ch; 
 until ((ch = '') or (EOF(f))); 
 if (pos('ола', s) <> 0) then begin delete(s, pos('ола', s), 4); insert(s1, s, 1); end;
 write(f1, s); 
 end; 
 close(f); close(f1); 
end.

не работает!

[Serge_Bliznykov]

Сообщение от Алькер

И да. Как вы написали Нет ПОЛА у Николая, а Оладьи положили ладно..

Вы не ответили, после замены что должно получится в этой фразе?!?!?!

Сообщение от Алькер

не работает!

"смешались в кучу кони, люди.."
если Вы знаете про тип файловый text, то зачем Вам file of char ?

пробуйте:

var
 f1, f2: text;
 s, s1, s2 : string; 
 p : integer; 
begin
 s1 := 'ола'; 
 s2 := 'оло';
 assign(f1, 'input.txt'); reset(f1);
 assign(f2, 'output.txt'); rewrite(f2);
 while (not eof (f1)) do
 begin
  ReadLn(f1, s);
  p := Pos(s1, s);
  while p>0 do
  begin
    delete(s, p, Length(s1));
    insert(s2, s, p);
    p := Pos(s1, s);
  end;
  WriteLn(f2,s);
 end;
 close(f1);
 close(f2);
end.

p.s. в данном случае лучше не удаляя подстроки из строки и затем вставляя новую, а, банально, переписываем символов новой подстроки на место старой - ведь длина заменямой и новой подстроки совпадает!

ещё ВАЖНОЕ замечание.
при данном алгоритме цикл повторяется до тех пор, пока в строке есть заменяемая подстрока.
Поэтому НЕДОПУСТИМО, чтобы новая подстрока (s2) содержала внутри себя подстроку s1 (ну, если Pos(s1, s2) >0 - тогда программа уйдёт в бесконечный цикл!!!

[Алькер]

Надо что бы получилось Нет ПОЛО у Николая, а ОлОдьи положили ладно..... И не получается чет

[Алькер]

получилоссь!! Просто большие буквы не видит! Вы меня спасли!!!