Методом перебора с шагом 0,1 определить максимумы функций f(x)=e^x-x^3 на отрезке [0,2] и g(x)=e^x-2×62 на отрезке [-1,1] — Pascal(Паскаль)

uses crt;
var x,f,mx:real;
begin
clrscr;
writeln('Функция F(x)=e^x-x^3 на интервале [0,2]:');
x:=0;
mx:=exp(x)-x*x*x;
while x<=2 do
 begin
  f:=exp(x)-x*x*x;
  if f>mx then mx:=f;
  x:=x+0.1;
 end;
writeln('Максимум=',mx:0:3);
writeln;
writeln('Функция F(x)=e^x-2x^2 на интервале [-1,1]:');
x:=-1;
mx:=exp(x)-2*x*x;
while x<=1 do
 begin
  f:=exp(x)-2*x*x;
  if f>mx then mx:=f;
  x:=x+0.1;
 end;
writeln('Максимум=',mx:0:3);
readln
end.

Leave a Comment

+ 48 = 52