Посчитать количество слов в кольцевом списке из элементов типа String, начинающихся на тот же символ, что и следующее слово.

[azalia]

Помогите, пожалуйста, написать программу, которая подсчитывает количество слов в кольцевом списке из элементов типа String, начинающихся на тот же символ, что и следующее слово.

[Serge_Bliznykov]

Дык, давайте ваш код, который описывает и заполняет кольцевой список, поможем написать код подсчёта..

[azalia]

Type
       TypeElement = String;
       PtrRec = ^Rec;
       Rec = Record
               Element : TypeElement;   {слово}
               pNext   : PtrRec;        {Ссылка на следующее слово}
             End;
Var
       pBegin: PtrRec; // Ссылка на первый элемент
       kol, m:word;

/// Создание кольцевого списка из текстового файла      
Procedure Create_Ring (var pBegin: PtrRec; var kol:word);
Var 
    pAux : PtrRec;
    e : TypeElement;
    f:text;
Begin
         Writeln ('Список формируется из файла input.txt ');
         assign(f, 'input.txt');
         reset(f);
         kol:=0;  // количество элементов списка
         New (pBegin);  // Заглавный элемент
         pAux := pBegin;
         Read(f, e);    //Считываем и запоминаем первый элемент
         pAux^.Element := e;
         pAux^.pNext := Nil;

         While not eof(f) do	//формируем список - пока не конец файла f
              Begin
                 inc(kol);
                 Read(f, e);
                 New (pAux^.pNext);
                 pAux := pAux^.pNext;
                 pAux^.Element := e;
                 writeln(pAux^.Element);
                 pAux^.pNext := Nil;
              End;
         pAux^.pNext := pBegin;	//Замкнем кольцо на заглавное звено
         close(f);
 End;

[Serge_Bliznykov]

ок.

во-первых, изменил ваш входной файл, чтобы читались отдельные слова.
теперь input.txt выглядит так:

яблоко
кошка
собака
синица
дерево
сорока
облако
дробь
дождь
диск
яркость

а вот и код программы:

Type
       TypeElement = String[255];
       PtrRec = ^Rec;
       Rec = Record
               Element : TypeElement;   {слово}
               pNext   : PtrRec;        {Ссылка на следующее слово}
             End;
Var
       pBegin: PtrRec; {// Ссылка на первый элемент}
       kol, KolDupLetter:word;

{/// Создание кольцевого списка из текстового файла      }
Procedure Create_Ring (var pBegin: PtrRec; var kol:word);
Var
    pAux : PtrRec;
    f:text;
Begin
         Writeln ('Список формируется из файла input.txt ');
         assign(f, 'input.txt');
         reset(f);
         kol:=0;  {// количество элементов списка}
         New (pBegin);  {// Заглавный элемент}
         pAux := pBegin;
         ReadLn(f, pAux^.Element);    {//Считываем и запоминаем первый элемент}
         pAux^.pNext := Nil;

         While not eof(f) do	{//формируем список - пока не конец файла f}
              Begin
                 inc(kol);
                 New (pAux^.pNext);
                 pAux := pAux^.pNext;
                 ReadLn(f, pAux^.Element );
                 writeln(pAux^.Element);
                 pAux^.pNext := Nil;
              End;
         pAux^.pNext := pBegin;	{//Замкнем кольцо на заглавное звено}
         close(f);
End;

{ подсчёт слов, начинающихся на тот же символ, что и следующее слово }
function getCountDuplicateFirstLetter(const pBegin: PtrRec) : word;
Var
  pAux : PtrRec;
  cnt : word;
begin
  pAux := pBegin;
  cnt := 0;
  repeat
    if Copy(pAux^.Element,1,1) = Copy((pAux^.pNext)^.Element,1,1) then inc(cnt);
    pAux := pAux^.pNext;
  until pAux = pBegin; 
  getCountDuplicateFirstLetter := cnt
end;  


begin
  WriteLn('Заполняем список....');
  Create_Ring(pBegin, kol);
  WriteLn;
  KolDupLetter := getCountDuplicateFirstLetter(pBegin);
  WriteLn('Количество слов, начинающихся на тот же символ, что и следующее слово: ', KolDupLetter);
  Readln
end.

обратите внимание, что для последнего слова в списке (в моём примере это слово "яркость"), следующим является ПЕРВОЕ слово списка (т.к. список закольцован)

ну и ещё. kol (количество элементов в списке) в программе нигде не используется. я бы выкинул эту переменную за ненадобностью...

[azalia]

спасибо большое))) Не подскажете еще: в строке New (pBegin); {// Заглавный элемент} выскакивает ошибка: Нельзя вызвать New, так как невозможно вычислить размер записи

[Serge_Bliznykov]

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

спасибо большое))) Не подскажете еще: в строке New (pBegin); {// Заглавный элемент} выскакивает ошибка: Нельзя вызвать New, так как невозможно вычислить размер записи

у меня, в TurboPascal ничего такого не выскакивало!
У Вас, если мне память не изменяет, Pascal ABC.NET ?!

проверьте, пожалуйста, что у Вас в строке:

Type
       TypeElement = String[255];

попробуйте убрать указание длины, может быть, вашему компилятору именно это и не нравится:

Type
       TypeElement = String;

[azalia]

спасибо, теперь все работает))

[Serge_Bliznykov]

пожалуйста. Надеюсь, Вы разобрались в написанном коде.

Успехов!