Вопрос по информатике:
В основной программе вводятся стороны треугольника a, b, c. В модуле проверяются неравенства треугольника (a<b+c; b<a+c; c<a+b) и вычисляется площадь треугольника. Ввести данные двух треугольников и вывести результаты.
Пожаловаться
- 14.02.2016 12:47
- Информатика
- remove_red_eye 15590
- thumb_up 22
Ответы и объяснения 1
Program n1;
var a,b,c: real;
procedure tr(a,b,c: real );
var p,S: real;
begin
if (a
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
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
Пожаловаться
- 15.02.2016 04:43
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы