Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Функции (Найти максимум функции)
Функции
Найти максимум функции: R= (2arctg3x)/(1+y cosx); y=10,5*10^-4   если X принадлежит [0;2] шаг h=0,4
1 | Автор: strelka | 2013-08-22, 16:58   |  Репутация: [ + 0 ]
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
2 | Автор: Berestovskiy | 2013-08-22, 20:01   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Функции (Найти максимум функции)
Страница 1 из 11
Поиск: