Вставить в строку S перед каждым символом C строку S1

@Дэрианна · Регистрация: 04.10.2009

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

Что я забыла написать в программе??
Задание такое: Даны строки S, S1 и символ C. Вставить в строку S перед каждым символом C строку S1.

Pascal

program stroki;
 
procedure S41(var S, S1: string; C: char);
var
  i, j, k, n: integer;
begin
  k := ord(S1[0]); n := ord(S[0]); i := 1;
  while i <= n do{повторять, пока не закончилась строка S}
  begin
    if S[i] = C then
    begin
          {сдвиг вправо элементов от очередного символа C
      до конца строки S}
      for j := n downto i do
        S[j + k] := S[j];
      n := n + k;
      S[0] := chr(n); {увеличить длину строки}
      {вставить на освободившееся место символы строки S1}
      for j := 1 to k do
        S[i + j - 1] := S1[j];
      i := i + k
    end;
    i := i + 1
  end;
end;
begin
//тут я видимо что-то потеряла
end.

@Puporev · 01.07.2010, 21:07

Сообщение от Дэрианна

//тут я видимо что-то потеряла

так типа саму программу.....

Добавлено через 3 минуты

Pascal

var s,s1:string;
     c:char;
begin
writeln('Введите первую строку:');
readln(s);
writeln('Введите вторую строку:');
readln(s1);
write('Введите символ c=');
readln(c);
S41(S, S1,C);
write(s);
readln
end;

Добавлено через 1 минуту
кстати процедуру так нужно объявить

Pascal

1	procedure S41(var S:string; S1: string; C: char);

	01.07.2010, 21:07

Вставить в строку S перед каждым символом C строку S1

Решение