Дано список из N чисел: а(1), а(2),..., а(N). Используя язык программирования Turbo Prolog 2.0, написать программу, которая находит количество чисел, удовлетворяющих условие: а(і)< (a(i+1)+a(i-1))/4.
DOMAINS
rlist=real*
PREDICATES
count(rlist, integer)
CLAUSES
count([],0).
count([X,Y,Z|Tail],C):-Y<(X+Z)/4, !,count([Y,Z|Tail],C1), C=C1+1.
count([_|Tail],C):-count(Tail,C).
goal
count([7,3,10,4,5,25,100],C).
|
Главная
Каталог файлов
