Найти точки, в которых функция принимает наибольшее и наименьшее значение

@Yura97 · Регистрация: 28.09.2015

Author24 — интернет-сервис помощи студентам

Пусть отрезок [ a,b] разбит точками на n равных частей. В каждой точке вычисляется значение функции:
(x^2-3x+2)/√(2x^3-1)
Найдите те точки , в которых функция принимает наибольшее и наименьшее значение.

@CodeR · 07.10.2015, 07:01

Pascal

Const a=1;
      b=10;
      n=10;
      l='--------------';
Function F(x:real):real;
Begin  
  F:=(x * x - 3 * x + 2) / sqrt(2 * x * x * x - 1);
End;
Var y,x,ymax,ymin,h,xmax,xmin:real;
Begin
    h := abs(b-a) / n;
    x:=a;
    writeln(l);
    writeln('|  x  | Y(x) |');
    writeln(l);
    ymax:=F(x);ymin:=ymax;
    xmax:=x;xmin:=x;
    While x<=b+0.01 do
    Begin
      y:=F(x);
      writeln('|', x:5:2, '|', y:6:2, '|');
      if ymax < y then
      Begin 
        ymax := y;
        xmax := x;
      End;
      if ymin > y then
      Begin
        ymin := y;
        xmin := x;
      End;
      x := x + h;
    End;
    writeln(l);
    writeln('Max = ', ymax:0:2, ' он достигается в точке = ',xmax:0:2);
    writeln('Min = ', ymin:0:2, ' он достигается в точке = ',xmin:0:2);
    readln;
End.

@Puporev · 07.10.2015, 07:02

Так будет не 10, а 11 точек, нужно
(b-a)/(n-1)

@Yura97 · 07.10.2015, 08:05 **[ТС]**

Спасибо за помощь.

@Yura97 · 08.10.2015, 19:09 **[ТС]**

Простите, если не сложно, подскажите еще вариант решения без "Function F(x:real):real;".
Буду от души благодарен! Заранее спасибо!!!

@Puporev · 08.10.2015, 19:21

Pascal

Const a=1;
      b=10;
      n=10;
      l='--------------';
Var y,x,ymax,ymin,h,xmax,xmin:real;
Begin
    h := abs(b-a) / (n-1);
    x:=a;
    writeln(l);
    writeln('|  x  | Y(x) |');
    writeln(l);
    ymax:=(x * x - 3 * x + 2) / sqrt(2 * x * x * x - 1);;ymin:=ymax;
    xmax:=x;xmin:=x;
    While x<=b+0.01 do
    Begin
      y:=(x * x - 3 * x + 2) / sqrt(2 * x * x * x - 1);
      writeln('|', x:5:2, '|', y:6:2, '|');
      if ymax < y then
      Begin
        ymax := y;
        xmax := x;
      End;
      if ymin > y then
      Begin
        ymin := y;
        xmin := x;
      End;
      x := x + h;
    End;
    writeln(l);
    writeln('Max = ', ymax:0:2, ' он достигается в точке = ',xmax:0:2);
    writeln('Min = ', ymin:0:2, ' он достигается в точке = ',xmin:0:2);
    readln;
End.

Добавлено через 57 секунд
Ну очень сложно самому заменить
y:=F(x); на
y:=(x * x - 3 * x + 2) / sqrt(2 * x * x * x - 1);

@Yura97 0 / 0 / 0 Регистрация: 28.09.2015 Сообщений: 9
		1
	Найти точки, в которых функция принимает наибольшее и наименьшее значение 06.10.2015, 23:00. Показов 3156. Ответов 5 Метки нет (Все метки) Пусть отрезок [ a,b] разбит точками на n равных частей. В каждой точке вычисляется значение функции: (x^2-3x+2)/√(2x^3-1) Найдите те точки , в которых функция принимает наибольшее и наименьшее значение. 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	07.10.2015, 07:02	3
	Так будет не 10, а 11 точек, нужно (b-a)/(n-1) 1

@Yura97 0 / 0 / 0 Регистрация: 28.09.2015 Сообщений: 9
	07.10.2015, 08:05 [ТС]	4
	Спасибо за помощь. 0

@Yura97 0 / 0 / 0 Регистрация: 28.09.2015 Сообщений: 9
	08.10.2015, 19:09 [ТС]	5
	Простите, если не сложно, подскажите еще вариант решения без "Function F(x:real):real;". Буду от души благодарен! Заранее спасибо!!! 0

	08.10.2015, 19:21

Опции темы

Найти точки, в которых функция принимает наибольшее и наименьшее значение

Решение