Определить с точностью e=0.01 значение аргумента, при котором функция y=ax-ln(x) достигает минимума, при x изменяющемся от 0.2 до 10.

@partizanka=) · Регистрация: 20.10.2010

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

@Puporev · 24.10.2010, 20:53

Pascal

uses crt;
var a,x,y,xmn,mn:real;
begin
clrscr;
write('a=');
readln(a);
x:=0.2;xmn:=0.2;
mn:=a*x-ln(x);
while x<10 do
 begin
  x:=x+0.01;
  y:=a*x-ln(x);
  if y<mn then
   begin
    mn:=y;
    xmn:=x;
   end;
 end;
writeln('Минимум функции при x=',x:0:2,'  Min=',mn:0:2);
readln
end.

@partizanka=) 0 / 0 / 0 Регистрация: 20.10.2010 Сообщений: 22
		1
	Определить с точностью e=0.01 значение аргумента, при котором функция y=ax-ln(x) достигает минимума, при x изменяющемся от 0.2 до 10. 24.10.2010, 20:32. Показов 3208. Ответов 1 Метки нет (Все метки) Определить с точностью e=0.01 значение аргумента, при котором функция y=ax-ln(x) достигает минимума, при x изменяющемся от 0.2 до 10. 0

	24.10.2010, 20:53

Определить с точностью e=0.01 значение аргумента, при котором функция y=ax-ln(x) достигает минимума, при x изменяющемся от 0.2 до 10.

Решение