Происходит переполнение стека при реализации функции, которая ищет количество слов в строке вне зависимости от количества пробелов между ними.

[hamaha]

Не знаю почему происходит переполнение стека, помогите братья
Функция ищет количество слов в строке вне зависимости от количества пробелов между ними
var s:string;

function Count_word(s:string):byte;
var
i:byte;
k: byte;
begin
   i:=1;k:=0; 
   while i<>length(s) do begin
      if s[i]=' ' then 
       inc(i)  
      else begin
         while (s[i]<>' ') and (i<>length(s)) do
            inc(i);
         inc(k);
      end;
   end;
   k:=Count_word(s);                       
end;
 
begin
   write('Write s:');
   readln(s);
   write(Count_word(s));
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

[p51x]

Потому что вы бесконечно вызываете функцию.

[type_Oleg]

Да, рекурсивно - вот тут.

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

k:=Count_word(s);

Наверное, надо наоборот :

Count_word:=k;

[Вадим Мошев]

Функцию вычисления количества слов не смотрел, но могу предложить свой вариант:

function getWordsNumber(const s: string): integer;
var
  i:   integer;
  res: integer;
  lng: integer;
begin
  lng:=length(s);

  if s[lng] = ' ' then begin
    res:=0;
  end else begin
    res:=1;
  end;

  for i:=1 to lng - 1 do begin
    if (s[i] <> ' ') AND (s[i+1] = ' ') then begin
      inc(res)
    end;
  end;

  getWordsNumber:=res;
end;