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

rudy47 · 28.01.2013, 15:19

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

Gruvi · 28.01.2013, 16:05

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

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

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

Цитата:

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

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 · 28.01.2013, 20:04

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

28.01.2013, 15:19	#1 (permalink)
rudy47 Новичок Регистрация: 28.01.2013 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Дана последовательность символов Дана последовательность символов. Заменить все заданные буквы на новую.

28.01.2013, 20:04	#3 (permalink)
rudy47 Новичок Регистрация: 28.01.2013 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо большое

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070