строки Опции

[VIK@]

Ничего она не делает... вводишь строку - и ничего... ((

[Shura]

Эт я немного спутал... Я писал, думая, что слог - это минимум согласная+гласная, и следовательно слогов в слове может быть до 127, т.к. длина строки до 255, ну и округлил до 130. А так как мы договорились, что слогом может быть даже одна буква, то массив следует сделать аж до 255. Поменяй 130 на 255 в описании массива, и в конце программы - в цикле. А чтобы 0 слогов было в слове без гласных, убери строку "if p = 0 then p:=1;". У меня все работает! Может ты там уже намудрила что-нибудь?.. Скопируй заново из этого топика, и сделай вышеописанные изменения.

[VIK@]

может, конечно, прога что-то и делает.. но результат не выводит... сделала пошагово, заедает на

for i:=0 to 130

do if a[i] <> 0

    then WriteLn('Slov, soderzhaschih ', i, ' slogov: ', a[i], '.');

[volvo]

Значит, что-то меняла в самой программе... Вот что делает программа у меня:

Enter string: привет стоп вперед назад
Slov, soderzhaschih 1 slogov: 1.
Slov, soderzhaschih 2 slogov: 3.

Присоединяй свой PAS-файл (не копируй сюда программу, а именно присоедини файл), будем разбираться...

[VIK@]

выдает ошибку: Общее дисковое пространство требует для всех загружаемых файлов больше, чем на каждое сообщение или глобальный лимит. Пожалуйста, уменьшите число или размер загружаемых файлов.
хотя размер файла всего 8 байт

[Гость]

все работает! огромное спасибо, Shura. щас кое что исправлю и можно будет отдавать преподу))