Вопрос школьника по предмету Информатика
В основной
программе вводятся стороны треугольника a, b, c. В модуле проверяются неравенства
треугольника (a) и
вычисляется площадь треугольника. Ввести данные двух треугольников и вывести
результаты.
Ответ учителя по предмету Информатика
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
Похожие вопросы от пользователей
3х^2-4х-20=0
1 зина нашла ( какой)? гриб.
2из за леса надвигается ( какая?) Туча.
3 тело ежа покрыто( какими?) Иголками.
4папа купил себе( какой?) Стол.
5 детский хор исполнял( какие?) Песни.
(7c-d)²=
(6p-q)²=