Заменить встроке S все вхождения строки S1 настроку S2

@Lexus333x · Регистрация: 15.12.2009

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

переведите прогу пожалуйста с C++ на Pascal

сам текст задачи таков.Даны строки S,S1 и S2. Заменить встроке S все вхождения строки S1
настроку S2.

C++

#include <iostream>
#include <string>
using namespace std;
 
void replace(string& s, const string& s1, const string &s2)
{
    string::size_type npos,
        s1_len = s1.length(),
        s2_len = s2.length();
    npos = s.find(s1);
    while(npos != string::npos) {
        s.replace(npos, s1_len, s2);
        npos = s.find(s1, npos + s2_len);
    }
}
 
int main()
{   
    string s, s1, s2;
 
    cout << "Введите строку s, s1 и s2: ";
    getline(cin, s);
    getline(cin, s1);
    getline(cin, s2);
 
    replace(s, s1, s2);
    cout << "Результат: " << s << endl;
    return 0;
}

@Inadequate · 04.06.2010, 09:22

Так с процедурой

Pascal

procedure Replace(var s: string; const s1,s2: string);
var
  tmp,s1_len,s2_len: byte;
begin
  s1_len := Length(s1);
  s2_len := Length(s2);
  if s1 <> s2 then
  begin
    tmp := Pos(s1, s);
    while tmp <> 0 do
    begin
      Insert(s2, s, tmp);
      Delete(s, tmp + s2_len, s1_len);
      tmp := Pos(s1, s);
    end;
  end;
end;
 
var
  s,s1,s2: string;
 
begin
  ReadLn(s);
  ReadLn(s1);
  ReadLn(s2);
  Replace(s, s1, s2);
  WriteLn(s);
  ReadLn;
end.

А так без

Pascal

var
  s,s1,s2: string;
  tmp,s1_len,s2_len: byte;
begin
  ReadLn(s);
  ReadLn(s1);
  ReadLn(s2);
  s1_len := Length(s1);
  s2_len := Length(s2);
  if s1 <> s2 then
  begin
    tmp := Pos(s1, s);
    while tmp <> 0 do
    begin
      Insert(s2, s, tmp);
      Delete(s, tmp + s2_len, s1_len);
      tmp := Pos(s1, s);
    end;
  end;
  WriteLn(s);
  ReadLn;
end.

Регистр не учитывался.

Опции темы

Заменить встроке S все вхождения строки S1 настроку S2

Решение