Определить существование треугольника

@koshka1 · Регистрация: 07.06.2011

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

плиииз, очень надо , помогите!
Заданы длины трех отрезков a, b, c. Составить программу, с помощью которой можно определить существует треугольник со сторонами a, b, c или нет и если треугольник существует, то найти его площадь с помощью формулы Герона.

@КонецСвета · 06.02.2012, 21:09

подойдет?

Pascal

uses crt;
var a,b,c: real;
 
function Square (a,b,c: real): real;
var sq: real;
begin
sq:=0.25*(sqrt((a+b+c)*(b+c-a)*(a+c-b)*(a+b-c)));
Square:=sq;
end;
 
begin
writeln ('Укажите стороны треугольника ');
readln (a,b,c);
if ((b+c-a)<=0) or ((a+c-b)<=0) or ((a+b-c)<=0)
   then writeln('Треугольник со сторонами ',a,', ',b,', ',c,' не существует')
        else writeln ('Площадь треугольника = ',Square (a,b,c):7:2);
readkey
end.

@koshka1 · 06.02.2012, 21:14 **[ТС]**

ДА, ВПОЛНЕ ПОДОЙДЕТ , СПАСИБО)

@koshka1 4 / 4 / 0 Регистрация: 07.06.2011 Сообщений: 132
		1
	Определить существование треугольника 06.02.2012, 20:50. Показов 2600. Ответов 2 Метки нет (Все метки) плиииз, очень надо , помогите! Заданы длины трех отрезков a, b, c. Составить программу, с помощью которой можно определить существует треугольник со сторонами a, b, c или нет и если треугольник существует, то найти его площадь с помощью формулы Герона. 0

@koshka1 4 / 4 / 0 Регистрация: 07.06.2011 Сообщений: 132
	06.02.2012, 21:14 [ТС]	3
	ДА, ВПОЛНЕ ПОДОЙДЕТ , СПАСИБО) 0

Определить существование треугольника

Решение