Дана последовательность символов

[rudy47]

Дана последовательность символов

Дана последовательность символов. Заменить все заданные буквы на новую.

 

[Gruvi]

:telepat: каков язык программирования ?

Ни пожалуйста, ни здравствуйте....

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

Описание переменных:

f – файловая переменная текстового типа;
str – строка из файла;
s_out – заменяемая последовательность символов;
s_in – вставляемая последовательность символов.
Алгоритм решения задачи:

1. Открываем текстовый файл для чтения.
2. Присваиваем значения переменным s_out и s_in.
3. Выясняем длину s_out.
4. Пока не будет достигнут конец файла
____a. Считываем содержимое файла в переменную str.
____b. Пока счетчик не равен нулю
________i. Присваиваем ему индекс первого символа совпавшей последовательности.
________ii. Удаляем и вставляем последовательности символов.

Программа на языке Паскаль:

var
s_out, s_in, str: string;
f : text;
i, len : integer;
begin
assign(f,'c:/text.txt');
reset(f);
writeln('What cut? ');
readln(s_out);
writeln('What paste? ');
readln(s_in);
len := length(s_out);
while not Eof(f) do begin
readln(f,str);
i := 1;
while i<>0 do begin
i := pos(s_out,str);
if i<>0 then begin
delete(str,i,len);
insert(s_in,str,i);
end;
end;
writeln(str);
end;

close(f);
readln
end.

 

[rudy47]

Спасибо большое