|
Найти максимум функции: R= (2arctg3x)/(1+y cosx); y=10,5*10^-4 если X принадлежит [0;2] шаг h=0,4
|
|
|
|
function getMax(x,y:real):real;
var
max, h, current:real;
begin
h:=0;
max:=low(max);
while h<=2 do begin
current:=((2*arctg(3*x))/(1+y*cos(x)));
if max < current then max:=current;
h = h + 0.4;end;
getMax:=max;
end;
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
