Замена одного символа на три

@Alles · Регистрация: 10.05.2012

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

Здравствуйте. Есть задача: "Даны две строки. Заменить на символы *** символы из 1-ой строки, которые встречаются во второй строке. Исходные строки вводит пользователь."

Pascal

var
   str1, str2: string;
   i,j: integer;
   
begin
     write('Введите первую стоку: ');
     readln(str1);
     write('Введите вторую строку: ');
     readln(str2);
     for i:=1 to length(str1) do
         for j:=1 to length(str2) do
             if (str1[i] = str2[j]) then begin
                delete(str1, i, 1);
                insert('***', str1, i);
                i:=i+3;
                j:=0;
                end;
     writeln('----------------------');
     writeln(str1);
     readln;
end.

Проблема в том, что код заменяет не все символы, хотя если скопировать цикл (строки 11-18) еще раз - все прекрасно работает

А хотелось бы избежать дублирования кода. Как это сделать?

@pryda · 18.11.2012, 19:29

Pascal

1 2	i:=i+3; j:=0;

вы меняете значение переменных цикла внутри этого цикла. и как, получается что ли?

@Alles · 19.11.2012, 13:56 **[ТС]**

Уже сам все исправил, работает.

Pascal

var
   str1, str2: string;
   i,j,b: integer;
 
begin
     write('Ââåäèòå ïåðâóþ ñòðîêó: ');
     readln(str1);
     write('Ââåäèòå âòîðóþ ñòðîêó: ');
     readln(str2);
     b:=length(str1);
     while (b<>0) do
           begin
                for i:=1 to length(str1) do
                    for j:=1 to length(str2) do
                        if (str1[i] = str2[j]) then
                           begin
                            delete(str1, i, 1);
                            insert('***', str1, i);
                            i:=i+3;
                            j:=0;
                           end;
                    b:=b-1;
           end;
     writeln('----------------------');
     writeln(str1);
     readln;
end.

	19.11.2012, 13:56

Опции темы