Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Ann1122331
21.08.2022 19:00 •
Информатика
Программа pascal. даны координаты 3 точек x1,x2,x3, y1,y2,y3, которые представляют собой вершины треугольника. вычислить а) длины сторон треугольника б)площадь треугольника
Показать ответ
Ответ:
Kennyssess
27.07.2020 11:29
Var
X1,Y1,X2,Y2,X3,Y3:real;
A,B,C:real;
Begin
Write('X1 = ');ReadLn(X1);
Write('Y1 = ');ReadLn(Y1);
Write('X2 = ');ReadLn(X2);
Write('Y2 = ');ReadLn(Y2);
Write('X3 = ');ReadLn(X3);
Write('Y3 = ');ReadLn(Y3);
A:=sqrt(sqr(X2-X1) + sqr(Y2-Y1) );
B:=sqrt(sqr(X2-X3) + sqr(Y2-Y3) );
C:=sqrt(sqr(X3-X1) + sqr(Y3-Y1) );
if (A<B+C)and(B<A+C)and(C<A+B) then
Begin
WriteLn('Длины сторон равны:');
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
X1:=(A+B+C)/2;
WriteLn('Площадь треугольника равна ',sqrt(X1*(X1-A)*(X1-B)*(X1-C)))
End
else WriteLn('Треугольник не существует')
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Teroristka123
22.02.2023 23:29
Написать программу на С Дан массив чисел с плавающей точкой A[N]. Заменить все его элементы, большие введённого с клавиатуры числа Z, этим числом. Подсчитать количество...
Olesya11111111111111
04.01.2022 05:20
SOS SOS SOS SOS SOS SOS SOS...
Electron57
20.08.2022 18:37
Поставь буквы в правельном порядке и отгадай,какие слова за4одированы.полтельисни...
Hunterxxxx
14.05.2023 19:13
10Найдите число, если 830 %От этого числа равны141.1?...
1234567891219
21.09.2022 00:40
Решить систему уравнений графическим y=x-2 y=4...
ттсссс
25.02.2023 23:22
Посчитать, сколько четных и нечетных чисел генерирует компьютер, пока не получит случайное число 100 в диапазоне от 1 до 100. Задача 2.Угадываем число. Компьютер загадывает...
yxhcycgc
20.08.2020 08:48
Представьте, что Феофан Грек попросил вас оформить для него страницу в социальной сети (любой). . Укажите: место рождения, дату рождения, увлечения и другую информацию...
899600327811
21.03.2021 22:00
4. Определить аккорды по строению, разрешить каждый из них в дветональности, все подписать....
черныйЗайка
21.03.2021 22:00
И это продолжение по естествознанию...
misterpordon
01.07.2022 16:05
1.)Налийте в пробірку розчин гідроген пероксиду об ємом 2-2,5 мл.Додайте невелику порцію манган(IV) оксиду,дуже швидко й щільно закрийте пробірку корком із газовідвідною...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
X1,Y1,X2,Y2,X3,Y3:real;
A,B,C:real;
Begin
Write('X1 = ');ReadLn(X1);
Write('Y1 = ');ReadLn(Y1);
Write('X2 = ');ReadLn(X2);
Write('Y2 = ');ReadLn(Y2);
Write('X3 = ');ReadLn(X3);
Write('Y3 = ');ReadLn(Y3);
A:=sqrt(sqr(X2-X1) + sqr(Y2-Y1) );
B:=sqrt(sqr(X2-X3) + sqr(Y2-Y3) );
C:=sqrt(sqr(X3-X1) + sqr(Y3-Y1) );
if (A<B+C)and(B<A+C)and(C<A+B) then
Begin
WriteLn('Длины сторон равны:');
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
X1:=(A+B+C)/2;
WriteLn('Площадь треугольника равна ',sqrt(X1*(X1-A)*(X1-B)*(X1-C)))
End
else WriteLn('Треугольник не существует')
End.