Вопрос школьника по предмету Информатика
В основной
программе вводятся стороны треугольника 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
Похожие вопросы от пользователей
— Книга лежит на столе.
— Рена идёт в школу.
— Все фрукты красного цвета.
— Все птицы умеют летать.
1) H2SO3
2)Na2O
3)MgO
4)Fe(OH)2
5)K2O
6)Ba(OH)2