В основной программе вводятся стороны треугольника a, b, c. В модуле проверяются неравенства треугольника (a<b+c; b<a+c; c<a+b) и вычисляется площадь треугольника. Ввести данные двух треугольников и вывести результаты.
Ответы на вопрос
Ответил AnonimusPro
0
Program n1;
var a,b,c: real;
procedure tr(a,b,c: real );
var p,S: real;
begin
if (a<b+c) and (b<a+c) and (c<a+b) then
begin
p:=0.5*(a+b+c);
S:=sqrt(p*(p-a)*(p-b)*(p-c));
write('S=',S:6:3);
end else write('это не треугольник');
end;
begin
readln(a,b,c);
tr(a,b,c);
end.
// тестирование:
ввод: 3 4 5
вывод: S=6.000
ввод: 2 3 4
вывод: S=2.905
var a,b,c: real;
procedure tr(a,b,c: real );
var p,S: real;
begin
if (a<b+c) and (b<a+c) and (c<a+b) then
begin
p:=0.5*(a+b+c);
S:=sqrt(p*(p-a)*(p-b)*(p-c));
write('S=',S:6:3);
end else write('это не треугольник');
end;
begin
readln(a,b,c);
tr(a,b,c);
end.
// тестирование:
ввод: 3 4 5
вывод: S=6.000
ввод: 2 3 4
вывод: S=2.905
Новые вопросы