Дана функция y=tg(x)+1. Написать программу для поиска максимального значения y в промежутке x=[2;2.8] с шагом 0,1.
PREDICATES
max(real,real,real,real,real)
main(real)
CLAUSES
max(X,B,Step,Max,Max):-X>B+Step/3,!.
max(X,B,Step,TempMax,Max):-
Y=tan(X)+1,Y>TempMax,X1=X+Step,max(X1,B,Step,Y,Max),!.
max(X,B,Step,TempMax,Max):-X1=X+Step,max(X1,B,Step,TempMax,Max).
main(Max):-A=2,B=2.8,Step=0.1,Ya=tan(A)+1,max(A,B,Step,Ya,Max).
GOAL
main(Max),write(Max).
|
Главная
Каталог файлов
