Сломал голову, нужна помощь!!! Помогите пожалуйста!!!

15.11.2011, 23:40. **Показов** 1107. **Ответов** 2

Помогите пожалуйста с решением задачи
желательно код программы
текст задачи в файле
ну никак у самого не получается =(

@URUHA · 16.11.2011, 10:13

Delphi

var
  z,x,y,a,b,c: real;
  min,temp:real;
begin
  x:=strtofloat(edit4.Text);
  y:=strtofloat(edit5.Text);
  a:=strtofloat(edit1.Text);
  b:=strtofloat(edit2.Text);
  c:=strtofloat(edit3.Text);
  if (x*y)>2 then
    z:=a*sqr(y)*cos(x)
  else
  if (x*y)<=0 then
      begin
        min:=sqrt(abs(a*x));
        temp:=power(x,3);
        if min>temp then min:=temp;
        temp:=x+c;
        if min>temp then min:=temp;
        z:=min;
      end
    else
      begin
        z:=b*x;
        temp:=x-a;
        if z<temp then z:=temp;
      end;
        edit6.Text:=floattostr(z)

16.11.2011, 23:28

Спасибо большое!

jenya1234
	16.11.2011, 23:28	3
	Спасибо большое!

Опции темы

Сломал голову, нужна помощь!!! Помогите пожалуйста!!!

Решение