[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 сделал функцию

Код:

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 - тупоугольный.
а остальное хз

Код:

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 полусуммой двух оставшихся значений

Код:

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;

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

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

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

Код:

begin
Тэги, тэги и еще раз тэги!
end

[KycTo]

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

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

Код:

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.