помогите пожалуйста. PASCALABC.NET Даю 50 БАЛЛОВВвести длины отрезков a,b,c,d. Для каждой
Помогите пожалуйста. PASCALABC.NET Даю 50 БАЛЛОВ
Ввести длины отрезков a,b,c,d. Для каждой тройки этих отрезков, из которых можно выстроить треугольник, вычислить площадь. Напечатать площадь меньшего треугольника. Площадь треугольника вычислять с поддержкою процедуры по формуле Герона.
program abc;
var a,b,c,d:integer;
p,s,min:real;
begin
readln(a,b,c,d);
min:=a*b*c*d;
p:=(a+d+c)/2;
s:=sqrt((p-a)*(p-d)*(p-c)*p);
if slt;min then min:=s;
p:=(a+b+c)/2;
s:=sqrt((p-a)*(p-b)*(p-c)*p);
if slt;min then min:=s;
p:=(b+c+d)/2;
s:=sqrt((p-b)*(p-c)*(p-d)*p);
if slt;min then min:=s;
p:=(b+a+d)/2;
s:=sqrt((p-a)*(p-b)*(p-d)*p);
if slt;min then min:=s;
writeln(min);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.