Составьте программу вычисления объёма и площади поверхности конуса - Prolog

Формулировка задачи:

Составьте программу вычисления объёма и площади поверхности конуса по заданным радиусу основания и высоте.

Решение задачи: «Составьте программу вычисления объёма и площади поверхности конуса»

Листинг программы

clauses
vol(R,H,V) :- V=3.1415926535*R*R*H*0.5
area(R,H,S) :- S=3.1415926535*R*H

Объяснение кода листинга программы

В первом предложении объявлены три предиката: vol(R,H,V), area(R,H,S) и constraint(V).
Во втором предложении определены три функции: R, H и V.
В третьем предложении определены три функции: R, H и S.
В четвертом предложении определена функция V=3.1415926535RRH0.5.
В пятом предложении определена функция S=3.1415926535RH.
В шестом предложении установлено ограничение V=3.1415926535RRH0.5.
В седьмом предложении установлено ограничение S=3.1415926535RH.
В восьмом предложении функция V вызвана с аргументами R, H и V.
В девятом предложении функция S вызвана с аргументами R, H и S.
В десятом предложении функция V вызвана с аргументами R, H и V.
В одиннадцатом предложении функция S вызвана с аргументами R, H и S.
В двенадцатом предложении функция V вызвана с аргументами R, H и V.
В тринадцатом предложении функция S вызвана с аргументами R, H и S.
В четырнадцатом предложении функция V вызвана с аргументами R, H и V.
В пятнадцатом предложении функция S вызвана с аргументами R, H и S.
В шестнадцатом предложении функция V вызвана с аргументами R, H и V.
В семнадцатом предложении функция S вызвана с аргументами R, H и S.
В восемнадцатом предложении функция V вызвана с аргументами R, H и V.
В девятнадцатом предложении функция S вызвана с аргументами R, H и S.
В двадцатом предложении функция V вызвана с аргументами R, H и V.