Собираем Ошибки! Опции

[Altair]

В этой теме сообщайте обо всех ошибках (опечатках), найденных Вами в FAQ'е.

В этой теме премодерация отключена.
Ваше сообщение появиться не позднее чем через минуту после отправки!

[volvo]

В программе, приведенной здесь:
Строки

при запуске в Турбо Паскале будет переполнение стека при, скажем, таком вызове:

var
  s, w: string;
begin
  s := 'yes no no yes no no yes no no yes no no yes no no '+
       'yes no no yes no no yes no no yes no no yes no no '+
       'yes no no yes no no yes no no yes no no yes no no '+
       'yes no no yes no no yes no no yes no no yes no no '+
       'yes no no yes no no yes no no yes no no ';
  w := 'yes';
  writeln(count(s, w));
end.

(любая строка с большим количеством маленьких слов)...

Решение проблемы:

function Count(Const s, word: String): Byte;
...