[KycTo]

DELPHI 7.0





47.


1. Даны действ. положительные числа x,y,z
2. а) Выяснить, существует ли треугольник с длинами сторон x,y,z
3. б) Если треугольник существует, то ответить - явл. ли он остроуголным



44.
Если сумма трех попарно различных действительных чисел x,y,z меньше единицы, то наименьшее из этих трех чисел заменить полусуммой двух других, в противном случае заменить меньшее из x и y полусуммой двух оставшихся значений



(Задачи по программированию Абрамов,Гнездилова,Капустин,Селюн 1988 г.)

Помогите народ!!!!
хоть как нибудь хоть какую нибудь задачку желательно поподробнее

[Aristarh Dark]

Решать задачи за тебя никто не будет!!! Покажи что уже сделал, поможем доделать.

[KycTo]

В задаче 57 сделал функцию

Код:

1 2 3 4 5 6

function f(x: double): double;  begin    f:=x*x*x*x;    if x <= 1 then f:=x;    if x <= 0 then f:=0;  end;

В задаче 47 упорядочил числа по возрастанию, x-min, z-max, тогда треугольник существует, если (x+y)>z. Остроугольность проверил по теореме Пифагора: если x^2+y^2>z^2 - остроугольный, если x^2+y^2=z^2 - прямоугольный, если x^2+y^2<z^2 - тупоугольный.

а остальное хз

Модератор
Тэги, тэги и еще раз тэги!

[KycTo]

Как можно определить принадлежит ли точка с координатами x,y(действительыне числа) заштрихованой части плоскости

[Sharky]

А в твоей функции я не вижу резаулта, забыл что ли?

[Shalinskij]

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

В задаче 47 упорядочил числа по возрастанию, x-min, z-max, тогда треугольник существует, если (x+y)>z. Остроугольность проверил по теореме Пифагора: если x^2+y^2>z^2 - остроугольный, если x^2+y^2=z^2 - прямоугольный, если x^2+y^2<z^2 - тупоугольный.
а остальное хз

Код:

1 2 3 4 5 6

begin if ( ((x+y)>z) and ((x+z)>y) and ((y+z)>x) then  begin   ShowMessage('Треугольник'); // доказали!!!   end end;

и тока так
а про углы ты молодес, так держать!

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

44.
Если сумма трех попарно различных действительных чисел x,y,z меньше единицы, то наименьшее из этих трех чисел заменить полусуммой двух других, в противном случае заменить меньшее из x и y полусуммой двух оставшихся значений

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

var   x,y,z: real; begin  if ((x+y+z)<1) then  begin      if ((x<y) and (x<z)) then      begin      x:=(y+z)/2;      end      else        begin          if ((y<x) and (y<z)) then           begin           y:=(x+z)/2;           end           else             begin             z:=(y+x)/2;             end        end  end  else  begin  if (x<y) then      begin      x:=(y+z)/2;      end  else      begin      y:=(x+z)/2;      end   end end;

набрал тут, не компилил , тесть сам

Модератор
Тэги, тэги и еще раз тэги!

А я штмл не секу

Код:

1 2 3

<font color="blue">begin</font> <font color="Red">Тэги, тэги и еще раз тэги!</font> <font color="blue">end</font>

[KycTo]

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

А в твоей функции я не вижу резаулта, забыл что ли?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

function f(x: double): double;  begin    f:=x*x*x*x;    if x <= 1 then f:=x;    if x <= 0 then f:=0;  end;      procedure TForm1.Button1Click(Sender: TObject);  var    a: double;  begin    a:=StrToFloat(Edit1.Text);    Edit2.Text:=FloatToStr(f(a));  end;      end.