Найти наибольшее отрицательное значение функции и соответствующее ему значение аргумента
http://i.piccy.info/i5/07/37/1303707/p_p_ia_p__7.jpg
Аргумент х изменяется от начального значения 0.1 с шагом 0.15 до конечного 3.1 (радиан)
Вот так правельно????
program zadacha1;
const a=3.45; b=1.62;
var
x,y,max,maxx:real;
begin
x:=0.1;
max:=(1+exp(0.1*ln(a)))/((b-0.1)*sin(0.1)*sin(0.1)*sin(0.1));
while x<=3.1 do
begin
y:=(1+exp(x*ln(a)))/((b-x)*sin(x)*sin(x)*sin(x));
if y<max then Begin
max:=-y;
max:=-x;
end;
x:=x+0.15
end;
writeln('max=',max:2:2,' v tochke x = ',maxx);
readln
end.