Даны три числа. Определить, можно ли построить треугольник с указанными длиннами сторон

@kapelka_leta · Регистрация: 23.03.2013

Даны три числа. Определить, можно ли построить треугольник с указанными длинами сторон. Если можно, то узнать, будет ли он остро-, прямо- или тупоугольным.

@Puporev · 23.04.2014, 10:17

Pascal

uses crt;
var a,b,c,d,e,mx,sr,mn:integer;
begin
clrscr;
writeln('Введите 3 числа');
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
if (a+b<=c)or(a+c<=b)or(b+c<=a)
then writeln('Из этих отрезков нельзя построить треугольник')
else
 begin
  writeln('Из этих отрезков можно построить треугольник');
  if a>b then mx:=a else mx:=b;
  if c>mx then mx:=c;
  if a<b then mn:=a else mn:=b;
  if c<mn then mn:=c;
  sr:=a+b+c-mx-mn;
  d:=mn*mn+sr*sr;
  e:=mx*mx;
  if d>e then writeln('Это остроугольный треугольник')
  else if d<e then writeln('Это тупоугольный треугольник')
  else if d=e then writeln('Это прямоугольный треугольник');
 end;
readln
end.

@kapelka_leta 0 / 0 / 3 Регистрация: 23.03.2013 Сообщений: 148
		1
	Даны три числа. Определить, можно ли построить треугольник с указанными длиннами сторон 23.04.2014, 00:16. Показов 4769. Ответов 1 Метки нет (Все метки) Даны три числа. Определить, можно ли построить треугольник с указанными длинами сторон. Если можно, то узнать, будет ли он остро-, прямо- или тупоугольным. 0

Опции темы

Даны три числа. Определить, можно ли построить треугольник с указанными длиннами сторон

Решение