Цитата:
|
Сообщение от 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