Задача 9 Урок 16

Primary tabs

Submitted by jl8qy9kd_pro on Mon, 09/06/2021 - 21:04

Forums:

Задача 9 Урок 16

Пользователь вводит исходную строку s.
Ваша программа должна вернуть другую строку, в которой все смежные (соседние) повторяющиеся символы должны быть "удалены" (т.е. повторов в новой строке быть не должно), например:
для строки:

5533g

вернуть:

53g

для строки:

b5ghh55788oooggtttttt

вернуть:

b5gh578ogt
  • Log in to post comments
  • 1761 reads

jl8qy9kd_pro

Tue, 09/07/2021 - 12:57 

var i,N,p: integer;
    s: string;
  //N - символ у которго будет дубликат следующий(его убрать)
procedure moover(var s: string; N: integer); //удаление и смещение влево
  begin
    for i := low(s) to high(s) do
      begin
        if (i < N) then
        else if(i < length(s)) then
          s[i] := s[i + 1]
        else
          s[i]:=' ';
      end;
  end;

begin
  writeln('vvedi stoky');
  readln(s);
  for p := low(s) to high(s) do
    begin
      while ((s[p] = s[p + 1]) and (s[p] <> ' ')) do // пока в строке есть дубликаты
        begin
          N := p;
          moover(s, N);
        end;
    end;
  for p := 1 to high(s) do
    write(s[p]);
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 10/03/2021 - 12:35 

 for p := low(s) to high(s) do
    begin
      while ((s[p] = s[p + 1])

выход за пределы массива

_____________
матфак вгу и остальная классика =)

jl8qy9kd_pro

Thu, 10/07/2021 - 14:40 

var i,N,p: integer;
    s: string;
  //N - символ у которго будет дубликат следующий(его убрать)
procedure moover(var s: string; N: integer); //удаление и смещение влево
  begin
    for i := low(s) to high(s) do
      begin
        if (i < N) then
        else if(i < length(s)) then
          s[i] := s[i + 1]
        else
          s[i]:=' ';
      end;
  end;

begin
  writeln('vvedi stoky');
  readln(s);
  for p := low(s) to high(s) - 1 do
    begin
      while ((s[p] = s[p + 1]) and (s[p] <> ' ')) do // пока в строке есть дубликаты
        begin
          N := p;
          moover(s, N);
        end;
    end;
  for p := 1 to high(s) do
    write(s[p]);
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 10/10/2021 - 12:34

решение засчитано

_____________
матфак вгу и остальная классика =)