Вопрос по информатике:
Напишите программу для
2. На плоскости дан треугольник ABC, задаваемый координатами своих вершин (вводятся три пары чисел). Определить, является ли треугольник ABC прямоугольным. Дополнительно: определить координаты геометрического центра треугольника.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 16.12.2016 05:21
- Информатика
- remove_red_eye 1474
- thumb_up 16
Ответы и объяснения 1
Var
a: array [1..6] of real;
q, b, c: real;
begin
for i: byte := 0 to 2 do
readln(a[i * 2 + 1], a[i * 2 + 2]);
q := sqrt(sqr(a[1] - a[3]) + sqr(a[2] - a[4]));
b := sqrt(sqr(a[5] - a[3]) + sqr(a[6] - a[4]));
c := sqrt(sqr(a[5] - a[1]) + sqr(a[6] - a[2]));
if ((q + b > c) and (q + c > b) and (b + c > q)) then
begin
if (max(q, max(b, c)) = sqrt(sqr(min(q, min(b, c))) + sqr(min(q, max(b, c))))) then
writeln('Прямоугольный!');
writeln(String.Format('Геом. центр - ({0}; {1})', (a[1] + a[3] + a[5]) / 3, (a[2] + a[4] + a[6]) / 3));
end
else
writeln('Нет такого ▲');
end.
- 17.12.2016 04:05
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.