VPF::неработет програма - Форум программистов

Zorak

Дата 4.12.2008, 20:14 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 720
Регистрация: 13.11.2007

Репутация: нет
Всего: 3

вотнаписал програму для подсчота количества слов у строке. Строа обязательно заканчиваеться точкой, комой или пробелом... загвоздка заключаеться в том, ято когда вводим один символ, например точку, кому или пробел, то відает количество 1... а должно біть 0 ... вот код:... кто может помочь? допишите пжлста)...
З.Ы. заранее спасибо

Код


predicates
  inc(char, integer, integer)
  count(string, integer, integer)
clauses
  inc(C,I,I1):- C=' ', I1=I+1;
                C=',', I1=I+1;
                C='.', I1=I+1;
                I1=I.
  count(S,I,II):-frontchar(S,C,Rest), inc(C,I,I1), count(Rest,I1,II).
  count("",I,I).
  
goal
  clearwindow(),
  readln(S),
  count(S,0,I),
  write("Kilkist' sliv: ",I).

--------------------

Знание - сила. А сила есть, ума не надо...
Занимаюсь интернет бизнесом и ищу новых партнеров. Кому интересно - обращайтесь в ЛС, скайп или мыло.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Prolog \| Следующая тема »