* Търсене и заместване на дума

2 Responses to * Търсене и заместване на дума

1. Боряна каза:

   18 януари, сряда в 18:24

   program Project1;
   var
     T, D1, D2: string;
     p, l: integer;
   begin
     //инициализиране
     WriteLn('Vavedete niakakav tekst.');
     ReadLn(T);
     Write('Sega vavedete niakakva duma: ');
     ReadLn(D1);
     l:=Length(D1);
     Write('A sega vavedete druga duma: ');
     ReadLn(D2);
   
     repeat                  //цикъл
       p:=Pos(D1, T);        //намиране
       if p<>0 then begin    //ако я има
         Delete(T, p, l);    //изтриваме първата дума
         Insert(D2, T, p);   //и вмъкваме на неино място втората
       end;
     until p=0;              //докато няма повече тази дума
   
     WriteLn('Dumata ', D1, ' beshe zamenena v texta s ', D2, '. Eto kak izglezda:');
     WriteLn(T);
     ReadLn;
   end.
   

   Влезте, за да отговорите
   • Данаил каза:

     20 януари, петък в 13:40

     Браво, много добре! А пробва ли какво се случва, ако новата дума съдържа в себе си старата дума? Например ако заменяш „дума“ с „продума“? :-)

     Влезте, за да отговорите