Написать программу, которая заменяет в файле все слова

@Kamyshik · Регистрация: 07.10.2012

Author24 — интернет-сервис помощи студентам

Помогите написать программу,пожалуйста
1.Дан файл, в котором более 10 строк текста.Написать программу, которая заменяет в файле все слова, заканчивающиеся буквой "в", на одну букву "а".

@CodeR · 07.10.2012, 19:58

Pascal

Var f,g:text;
    s,s1,s2:string;
Begin
    Assign(f,'in.txt');Reset(f);
    Assign(g,'out.txt');Rewrite(g);
    While not Eof(f) do
    Begin
      readln(f,s);
      s:=s+' ';s2:='';
      While Pos(' ',s)>0 do
      Begin
        s1:=Copy(s,1,Pos(' ',s)-1);
        Delete(s,1,Pos(' ',s));
        if s1[Length(s1)]='в' then s2:=s2+'а '
         else s2:=s2+s1+' ';
      End;
      writeln(g,s2);
   End;
   writeln('Результат записан в out.txt');
   Close(f);Close(g);
End.

Файл in.txt должен быть создан и заполнен в папке с прогой
Предполагается что слова разделены пробелами.Если нужно чтобы слова разделялись не только пробелом отпиши

@Kamyshik · 07.10.2012, 20:23 **[ТС]**

Cпасибо:3

@Kamyshik 0 / 0 / 0 Регистрация: 07.10.2012 Сообщений: 3
		1
	Написать программу, которая заменяет в файле все слова 07.10.2012, 18:18. Показов 3917. Ответов 2 Метки нет (Все метки) Помогите написать программу,пожалуйста 1.Дан файл, в котором более 10 строк текста.Написать программу, которая заменяет в файле все слова, заканчивающиеся буквой "в", на одну букву "а". 0

@Kamyshik 0 / 0 / 0 Регистрация: 07.10.2012 Сообщений: 3
	07.10.2012, 20:23 [ТС]	3
	Cпасибо:3 0

Опции темы

Написать программу, которая заменяет в файле все слова

Решение