Определить, сколько раз в последовательности встречаются пары одинаковых символов (Pascal -> C)

@afaga · Регистрация: 23.09.2018

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

Мне нужна помощь. Переведите текст с языка pascal на C. Очень прошу.
(Задание на всякий случай (Произвести одно из перечисленных ниже преобразований входной последовательности символов
ci, i = 1, 2, 3, ... Длина последовательности не более 100 символов. Считается, что последовательность считана вся, если уже прочитано 100 символов, или любое другое заданное заранее пользователем количество элементов. Определить, сколько раз в последовательности встречаются пары одинаковых символов.)

Pascal

Uses
 Crt;
var
 i,j,s2,kol,p:integer;
 s,s3:string;
begin
ClrScr;
write('Введите строку: ');
readln(s);
i:=1;
s2:=length(s);
s3:='';
repeat
 kol:=1;
 for j:=s2 downto i+1 do
 if s[j]=s[i] then
  begin
   kol:=kol+1;
   for p:=j to s2-1 do
    s[p]:=s[p+1];
   dec(s2);
  end;
 writeln('Символ ',s[i],' повторяется ',kol,' раз');
 if kol>=2 then s3:=s3+'  '+s[i];
 inc(i);
until i>s2;
writeln('Повторяющиеся символы: ',s3);
readln
end.

@bormant · 23.09.2018, 17:20

Этот код не совсем соответствует заданию, он ищет количество повторов, а нужно количество пар (их в 2 раза меньше).
Кроме того, строку проще было сперва отсортировать, потом за 1 проход подсчитать повторы.

@afaga · 23.09.2018, 17:35 **[ТС]**

Сообщение от bormant

Этот код не совсем соответствует заданию, он ищет количество повторов, а нужно количество пар (их в 2 раза меньше).
Кроме того, строку проще было сперва отсортировать, потом за 1 проход подсчитать повторы.

Что значит отсортировать?

@bormant Модератор 7788 / 4613 / 2828 Регистрация: 22.11.2013 Сообщений: 13,111 Записей в блоге: 1
	23.09.2018, 17:20	2
	Этот код не совсем соответствует заданию, он ищет количество повторов, а нужно количество пар (их в 2 раза меньше). Кроме того, строку проще было сперва отсортировать, потом за 1 проход подсчитать повторы. 0

@afaga 0 / 0 / 0 Регистрация: 23.09.2018 Сообщений: 2
	23.09.2018, 17:35 [ТС]	3
	Сообщение от bormant Этот код не совсем соответствует заданию, он ищет количество повторов, а нужно количество пар (их в 2 раза меньше). Кроме того, строку проще было сперва отсортировать, потом за 1 проход подсчитать повторы. Что значит отсортировать? 0

Опции темы