Задача на списки

[(Нафаня)]

Ну собственно условие ниже. А проблема такая: задача не правильно считает количество. Получается всегда, что нужное количество на единицу меньше, чем количество слов в общем.

program Project1;
{Выполнила студентка 2 курса, 61 группы Гребенщикова Ольга
 type
   slovo=packed array[1..10] of char;
   telem=slovo;
 Описать функцию, подсчитывающую количество слов списка L,
 которые начинаются с тойже литеры, что и следующее слово }
{$APPTYPE CONSOLE}
uses
  SysUtils;
type
  telem=char;
  slovo= packed array [1..50] of telem;
  list=^Node;
  Node=record
         inf:slovo;
         next:list;
       end;
procedure add(var n:list;x:slovo;num:integer);
{данная процедура добавляет в список "n" элемент "x" на порядковое место "num"}
var
   p,q:list;
   i:integer;
begin
   new(p);
   p^.inf:=x;
   if n=nil then
      begin
        n:=p;
        p^.next:=nil;
      end
   else if num=1 then
            begin
              p^.next:=n;
              n:=p;
            end
   else
     begin
       i:=0;
       q:= n;
       while (i<>num-2) and (q^.next<>nil) do
          begin
     	      i:= i+1;
	          q:= q^.next;
          end;
       p^.next:=q^.next;
       q^.next:=p;
     end;
end;
function Kolvo(n:list):integer;
{функция определяющая КОЛ-ВО, требовающееся в задании}
var
   q:list;
   slovo1,slovo2:slovo;
   i,k:integer;
begin
   q:=n;
   i:=0;
   k:=0;{обнуляем количество}
   if q=nil then writeln ('Spisok pust ')
   else
     begin
       while q<>nil do
         begin
	          i:=i+1;
	          if i=1 then slovo2:=q^.inf
              else
                begin
                  slovo1:=slovo2;
                  slovo2:=q^.inf;
                end;  {считываем 2 слова со списка}
            if i<>1 then
                if slovo1[1]=slovo2[1] then
                    k:=k+1;
	          q:=q^.next;
         end;
   end;
   Kolvo:=k;
end;
var
  sl:slovo;
  i,n:integer;
  L:list;
begin
  write('Vvedite kol-vo slov v spiske: ');
  readln(n);
  writeln('Vvedite sam SPISOK L: ');
  for i:=1 to n do
    begin
      write(i,' slovo= ');
      readln(sl[i]);
      add(L,sl,i);
    end;
  writeln('OTVET= ',Kolvo(L));
  readln;
end.

[phomm]

Мда. А что мешает взять вполне стандартные функции для списков и ими вращать, зачем свои какие-то хитрые ?
Магии цикла

write(i,' slovo= ');
readln(sl[i]);
add(L,sl,i);

не понял вообще, ридлном каретка переводится, читаются не понять какие буквы
, и сразу же не слово, а какие-то его куски из букв кидаются в список. Глубже убоялся идти во мрак о_()

Ну, а что говорит трассировка (пошаговая отладка) ?

оффтоп: подпись кошерна

[(Нафаня)]

не понял вообще, ридлном каретка переводится, читаются не понять какие буквы
, и сразу же не слово, а какие-то его куски из букв кидаются в список. Глубже убоялся идти во мрак о_()

Ну, а что говорит трассировка (пошаговая отладка) ?

Дело в том, что я не очень разобралась в ней. Как отладку сделать?

[phomm]

f7 кнопочка по шагам гонит программу, также можно использовать f4 f5 (плюс к ней много можно про брейкпоинты посмотреть) f8 shift+f8 - о них лучше в справке или мануале прочитать
Завтра с утра ещё погоняю на работе, авось что увижу, а сейчас уже баю надо.. для работы в 630 встаю (430 по мск)

[(Нафаня)]

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

f7 кнопочка по шагам гонит программу, также можно использовать f4 f5 (плюс к ней много можно про брейкпоинты посмотреть) f8 shift+f8 - о них лучше в справке или мануале прочитать
Завтра с утра ещё погоняю на работе, авось что увижу, а сейчас уже баю надо.. для работы в 630 встаю (430 по мск)

Спасибо за помощь=)

[Stilet]

function Kolvo(n:list):integer;
{функция определяющая КОЛ-ВО, требовающееся в задании}
var
   q:list;
   slovo1,slovo2:slovo;
   i,k:integer;
begin
   q:=n;
   k:=0;{обнуляем количество}
   if q=nil then writeln ('Spisok pust ')
   else
     begin
       while q^.next<>nil do
         begin
          if(copy(q^.inf,1,1)=copy(q^.next^.inf,1,1) then inc(k);
          q:=q^.next;
         end;
   end;
   Kolvo:=k;
end;

Вот как по мне лучще так.

[phomm]

Ну вообще, погонял я тут программу, и с Вашей Kolvo и в варианте Stilet , но результата не было.

Пошёл поменял цикл, который мне сразу не понравился, точнее чтение самих слов, вот так:

type 
//  telem=char; // убрать
  slovo= shortstring;//packed array [1..50] of telem; //заменить
...
//цикл
readln(sl); // вместо readln(sl[i]);

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

[(Нафаня)]

Все работает, спасибо большое=)))