Показать сообщение отдельно
  (#2 (permalink)) Старый
sanya84 sanya84 вне форума
Member
 
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 10.01.2009
По умолчанию 12.01.2009, 08:35

для второй задачи вроде что то типа этого? :

Код:
predicates

sochetanie(integer,integer,real)

goal

write("Chislo sochetaniy iz n elementov po m"), 
write("Vvedite n="),readint(Nn),
write("Vvedite m="),readint(Mm),
sochetanie(Nn,Mm,R),
write("Rezultat=",R).

clauses

sochetanie(1,1,1).
sochetanie(N,M,Rez):-N>0,M>0,N1=N-1,M1=M-1,
sochetanie(N1,M1,Rez1),
Rez=N/M*Rez1.
Что то не очень только пашет


Искал по всему форуму про переводы чисел, но для себя похожего не нашёл (( А если что то и было похожее, то явно не для ТУрбо пролога 2.0...
Ответить с цитированием
Ads