Можно ли из отрезков a, b, c составить треугольник и можно ли этот треугольник поместить в круг радиусом R?

@SkyBoy · Регистрация: 03.04.2010

Помогите написать программу или хотя бы подкинуть идею в ее решении.
Можно ли из отрезков a, b, c составить треугольник и можно ли этот треугольник поместить в круг радиусом R???Заранее благодарен.

@DedBoroda · 02.03.2011, 19:00

1) Условие существования треугольника - http://www.neive.by.ru/geometr... orony.html
2) Формула описанной окружности. Результат сравниваем с тем значением, которое дано. http://ru.wikipedia.org/wiki/%... 1%82%D1%8C

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

Delphi

function circle(a,b,c,R:real):boolean;
var S,p:real;
begin
if (a+b>c)and
   (a+c>b)and
   (b+c>a)then
   begin
     p := (a+b+c)/2;
     S := sqrt(p*(p-a)*(p-b)*(p-c));
      if a*b*c/(4*S) < R then Result := true;
   end else Result := false;
end;

@SkyBoy · 02.03.2011, 19:02 **[ТС]**

Огромное спасибо.

@SkyBoy · 04.03.2011, 00:59 **[ТС]**

Как сделать чтоб программа выводила слова (да можо или нельзя)

Код

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:real;
cod:integer;
begin
Val(Edit1.Text,a,cod);
Val(Edit2.Text,b,cod);
Val(Edit3.Text,c,cod);
if (a+b)>c then {можо}
else{нельзя}

@Puporev · 04.03.2011, 06:35

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
if (a+b)>c then Label1.Caption:='можо'
else Label1.Caption:='нельзя';

Вместо Label можно любой компонент для вывода текста, типа Edit, Memo...

@SkyBoy 4 / 4 / 1 Регистрация: 03.04.2010 Сообщений: 31
		1
	Можно ли из отрезков a, b, c составить треугольник и можно ли этот треугольник поместить в круг радиусом R? 02.03.2011, 18:09. Просмотров 1899. Ответов 4 Метки нет (Все метки) Помогите написать программу или хотя бы подкинуть идею в ее решении. Можно ли из отрезков a, b, c составить треугольник и можно ли этот треугольник поместить в круг радиусом R???Заранее благодарен. 0

@SkyBoy 4 / 4 / 1 Регистрация: 03.04.2010 Сообщений: 31
	02.03.2011, 19:02 [ТС]	3
	Огромное спасибо. 0

@SkyBoy 4 / 4 / 1 Регистрация: 03.04.2010 Сообщений: 31
	04.03.2011, 00:59 [ТС]	4
	Как сделать чтоб программа выводила слова (да можо или нельзя) Код procedure TForm1.Button1Click(Sender: TObject); var a,b,c:real; cod:integer; begin Val(Edit1.Text,a,cod); Val(Edit2.Text,b,cod); Val(Edit3.Text,c,cod); if (a+b)>c then {можо} else{нельзя} 0

Опции темы