Найти точки, в которых функция принимает наибольшее и наименьшее значение - Turbo Pascal
Формулировка задачи:
Пусть отрезок [ a,b] разбит точками на n равных частей. В каждой точке вычисляется значение функции:
(x^2-3x+2)/√(2x^3-1)
Найдите те точки , в которых функция принимает наибольшее и наименьшее значение.
Решение задачи: «Найти точки, в которых функция принимает наибольшее и наименьшее значение»
textual
Листинг программы
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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д