Дана строка. Сделать так, чтобы рядом не стояли одинаковые символы

20.06.2013, 00:20. Показов 1446. Ответов 0

Метки нет (Все метки)

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

В единственной строке записана шифровка, состоящая из строчных латинских букв. Длина шифровки не превосходит 200000.
Идея такова: т.к. более 255 символов в строку записать нельзя, прочитать шифровку в массив символов. После раскидать эту шифровку на строки по 255 символов(точнее в массив строк) чтобы была возможность работать с шифровкой как со строкой и использовать процедуру delete. Массив будет объемом в 200000/255=785 строк. Программа выводит пустую строку. Ошибку найти не могу. Может кто подскажет?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
var
  mass:array[1..200000] of char;
  i,j,m,n,k,b:integer;
  s:array[1..785] of string;
begin
  readln(mass);
  i:=1;
  while ord(mass[i])<>0 do begin
    m:=i;
    i:=i+1;
  end;
  if m=0 then halt;
  if m>255 then begin
    n:=trunc(m/255);
    if frac(m/255)>0 then n:=n+1;
  end
  else n:=1;
  j:=1;
  for i:=1 to n do
    for b:=1 to 255 do begin
      s[i,b]:=mass[j];
      j:=j+1;
    end;
  for i:=1 to n do begin
    k:=1;
    while ord(s[i,k])<>0 do begin
      m:=k;
      k:=k+1;
    end;
    for j:=1 to m do
      if s[i,j]=s[i,j+1] then delete(s[i],j,2);
  end;
  for i:=1 to n-1 do
    write(s[i]+s[i+1]);
  readln;
end.

Добавлено через 1 час 31 минуту
Пример:
wwstdaadierfflitzzz
stierlitz

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

20.06.2013, 00:20

Ответы с готовыми решениями:

В каждом пятисимвольном слове переставить символы так, чтобы одинаковые находились рядом
C# Windows Forms В каждом 5-символьном слове переставить символы так, чтобы одинаковые находились рядом.(sosna – ssona и т. д. ). Не...

Сколько различных «слов» можно составить из букв слова МАМАШКА так, чтобы буквы М не стояли рядом?
Помогите пожалуйста решить Сколько различных «слов» можно составить из букв слова МАМАШКА так, чтобы буквы М не стояли рядом?

Сколькими способами можно расположить на полке 10 томов энциклопедии так, чтобы девятый и десятый тома рядом не стояли?
помогите решить

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

20.06.2013, 00:20

Помогаю со студенческими работами здесь

Дана строка сделать так, чтобы каждый 3 элемент превращался в _
дана строка( вводим с клавиатуры) сделать так чтобы каждый 3 элемент превращался в _ .

Дана строка А. Найти в ней все рядом стоящие одинаковые буквы
Дана строка А. Найти в ней все рядом стоящие одинаковые буквы и составить из них строку В, удалив из А

Сколькими способами можно по кругу поставить 5 кукол и 3 игрушки так, чтобы при этом мягкие игрушки не стояли рядом
2.Сколькими способами можно по кругу поставить 5 различных кукол и 3 различные мягкие игрушки так, чтобы при этом мягкие игрушки не стояли...

Сколькими способами можно переставить буквы слова "каракули" так, чтобы никакие две гласные не стояли рядом?
Сколькими способами можно переставить буквы слова "каракули" так, чтобы никакие две гласные не стояли рядом? Пожалуйста помогите) Никак...

В каждом 5-символьном слове переставить литеры так, чтобы одинаковые находились рядом
Задан текст, состоящий из слов, записанных через пробелы или запятые. Длина текста не больше 255 символов. В тексте могут быть...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
1С: Программный отбор элементов справочника Номенклатура по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника Сотрудники по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .

Наверх