Дано предложение. Определить, сколько в нем одинаковых соседних букв.

[mimit]

Дано предложение. Определить, сколько в нем одинаковых соседних букв. Паскаль.

var
  MyString: string;
  i, j: integer;

begin
  writeln('Введите предложение');
  readln(MyString);
  for i := 1 to length(MyString) do
  for j := 1 to length(MyString) do
  if (i <> j) and (i < j) then
  if mystring[i] = mystring[j] then
  writeln('Есть одинаковые буквы ',mystring[j]);
  readln;
end.

Я написал программу чтобы находила одинаковые соседние буквы, а как посчитать их количество не могу додуматься.

[New man]

var c:char;
   i:byte;
......
......
i:=0;
For c:='A' to 'Z' do
    while pos(c+c,mystring)>0 do
       begin
          delete(mystring,pos(c+c,mystring),1);
          inc(i);
       end;
For c:='a' to 'z' do
    while pos(c+c,mystring)>0 do 
         begin
            delete(mystring,pos(c+c,mystring),1);
            inc(i);
         end;
writeln(i)
end.

[mimit]

Сообщение от New man

var c:char;
   i:byte;
......
......
i:=0;
For c:='A' to 'Z' do
    while pos(c+c,mystring)>0 do
       begin
          delete(mystring,pos(c+c,mystring),1);
          inc(i);
       end;
For c:='a' to 'z' do
    while pos(c+c,mystring)>0 do 
         begin
            delete(mystring,pos(c+c,mystring),1);
            inc(i);
         end;
writeln(i)
end.

А проще не как не посчитать? просто только учусь в delphi работать.

[Slym]

var
  MyString: string;
  i, j: integer;
begin
  writeln('Введите предложение');
  readln(MyString);
  while i<=length(MyString) do
  begin
    j:=i+1;
    while j<=length(MyString) do
    begin
      if mystring[i]<>mystring[j] then
        break;
      inc(j);
    end;
    if (j-i)>1 then
      writeln('Есть одинаковые соседние буквы ',mystring[i],' в колве ', (j-i));
    i:=j;
  end;
  readln;
end.

[Mad_Cat]

одинаковых соседних букв

count:=0;
for i:=1 to length(s)-1 do
if s[i]=s[i+1] then inc(count);
if count = 0 then writeln('нет тут одинаковых соседних букв')
else writeln('Количество:',count)

[mimit]

var
  s: string;
  i, j: integer;

begin
  writeln('Введите предложени');
  readln(s);
  j:=0;
  for i := 1 to length(s)-1 do
  if s[i]=s[i+1]
    then
      inc(j);
  if j=0
    then
      writeln('Нету одинаковых соседних букв')
    else
      writeln('Количество соседних букв: ',j);
  readln;
end.

Задача мне выводит когда я пишу например две буквы s, что количество одинаковых соседних букв 1 а должен выводить 2. Что не так?

[Mad_Cat]

где ж 2 то если одна s одинакова с другой s

[Serge_Bliznykov]

Mad_Cat, тут все совсем неоднозначно. я как ваше решение увидел, сразу хотел об этом сказать, но понадеялся, что автор темы согласится с такой трактовкой количества одинаковых букв, как Вы решили..

mimit, допустим, задана строчка:
SSSASSSAAAA
какой ответ Вы ожидаете получить? (какое количество одинаковых соседних букв)?

[Slym]

мой вариант
3 S
3 S
4 A
почти RLE кодирование

[mimit]

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

Mad_Cat, тут все совсем неоднозначно. я как ваше решение увидел, сразу хотел об этом сказать, но понадеялся, что автор темы согласится с такой трактовкой количества одинаковых букв, как Вы решили..

mimit, допустим, задана строчка:
SSSASSSAAAA
какой ответ Вы ожидаете получить? (какое количество одинаковых соседних букв)?

10 одинаковых соседних букв получаеться