Найти максимальное значение для заданной функции

30.11.2010, 19:32. **Показов** 1202. **Ответов** 2

для заданой функции f(x)=x(x-3) найти максимальное значение функции на отрезке [a, b] c точностью дельтаX=h

@Puporev · 01.12.2010, 11:38

Pascal

uses crt;
var a,b,h,x,y,mx:real;
begin
write('Начало интервала a=');
readln(a);
repeat
write('Конец интервала >',a:0:1,' b=');
readln(b);
until b>a;
repeat
write('Шаг табулирования <',b-a:0:1,' h=');
readln(h);
until h<b-a;
x:=a;
mx:=x*(x-3);
while x<=b+h/2 do
 begin
  y:=x*(x-3);
  if y>mx then mx:=y;
  x:=x+h;
 end;
write('Максимум=',mx:0:3);
end.

01.12.2010, 20:06

Спасибо Вам большое))))))))

оксана оксана
		1
	Найти максимальное значение для заданной функции 30.11.2010, 19:32. Показов 1202. Ответов 2 Метки нет (Все метки) для заданой функции f(x)=x(x-3) найти максимальное значение функции на отрезке [a, b] c точностью дельтаX=h

оксана оксана
	01.12.2010, 20:06	3
	Спасибо Вам большое))))))))

Опции темы

Найти максимальное значение для заданной функции

Решение