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

@maks51116 · Регистрация: 20.05.2013

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

х изменяется в интервале -15 до 12 необходимо минимальное значение найти.
y=(x-9)! -8<=x<=3
y=(x+6)! 8<=x<=12
y=tgx в остальных случаях.

Pascal

procedure TForm1.Label4Click(Sender: TObject);
  function factor(n:integer):integer;
var j,i:integer;
begin
if n<0 then showmessage('N<0! 0<=N<32768');
if n=0 then factor :=1;
if n>0 then begin
  factor:=1;
  for i:=1 to n do factor:=factor*i;
  end;
end;
begin
xn:=strtoint(combobox1.text);
xk:=strtoint(combobox2.text);
listbox1.clear;
listbox1.Height:=20*((xk-xn)div dx);
form1.height:=35*((xk-xn)div dx)+200;
min:=100;
i:=xn;
 
while i<=xk do begin
  if (i>=-8) and (i<=3) then y:=factor(i+9)
  else if(i>=8)and(i<=12) then y:=factor(i-6);
  if (i>=-15) and(i<=12) then
  y:=tan(i);
  if y<min then begin min:=y;xmin:=i;
    end;
 
 listbox1.items.add(inttostr(i)+')'+inttostr(Round(y)));
  i:=i+1;
  end;

как сделать так чтобы допусти на промежутке -15 до12 считала программа только tgx а не вперемешку с факториалами?

Добавлено через 19 минут
удалите тему, не знаю как

@volvo · 20.05.2013, 22:20

Сообщение от maks51116

удалите тему, не знаю как

Никак: Правила Форума:

2.3 Сообщения и темы, а также другой контент, размещаемый на форуме, по просьбам пользователей не удаляется и не закрывается.

@volvo Супер-модератор 32986 / 21294 / 8178 Регистрация: 22.10.2011 Сообщений: 36,580 Записей в блоге: 8
	20.05.2013, 22:20	2
	Сообщение от maks51116 удалите тему, не знаю как Никак: Правила Форума: 2.3 Сообщения и темы, а также другой контент, размещаемый на форуме, по просьбам пользователей не удаляется и не закрывается. 0

Опции темы