Введите три числа

@impuls__s · Регистрация: 10.02.2010

Author24 — интернет-сервис помощи студентам

Введите три числа. Если они могут быть длинами сторон
разностороннего остроугольного треугольника, выведите их в
порядке возрастания и вычислите площадь полученного треугольника.

@Alex1OPS · 19.09.2010, 19:45

Pascal

Program TRI;
var a,b,c,a1,b1,c1,cosA,cosB,cosC,p,s:real;
begin
readln(a);readln(b);readln(c);
a1:=a*a;
b1:=b*b;
c1:=c*c;
cosA:=(b1+c1-a1)/(2*b*c);
cosB:=(a1+c1-b1)/(2*a*c);
cosC:=(a1+b1-c1)/(2*a*b);
p:=(a+b+c)/2;
s:=sqr(p*(p-a)*(p-c)*(p-b));
if (a<=b+c) and (b<=a+c) and (c<=a+b) and (cosA>0) and (cosB>0) and (cosC>0) then writeln('Такой разносторонний остроугольный треугольник существует и его площадь=',s:5:1)
                                                                                                                else writeln('Такого разностороннего остроугольного треугольника не существует');
end.

Добавлено через 2 минуты
над циклом вывода сторон в порядке возрастания я еще подумаю. Просто не хочется делать это простым перебором условий.

@impuls__s 0 / 0 / 0 Регистрация: 10.02.2010 Сообщений: 37
		1
	Введите три числа 19.09.2010, 16:09. Показов 1159. Ответов 1 Метки нет (Все метки) Введите три числа. Если они могут быть длинами сторон разностороннего остроугольного треугольника, выведите их в порядке возрастания и вычислите площадь полученного треугольника. 0

	19.09.2010, 19:45

Введите три числа

Решение