Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
АйданкаТоктогулова
13.11.2022 22:40 •
Информатика
Программа pascal. даны координаты 3 точек x1,x2,x3, y1,y2,y3, которые представляют собой вершины треугольника. вычислить а) длины сторон треугольника б)площадь треугольника
Показать ответ
Ответ:
Jackichan89
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 оценок)
Популярные вопросы: Информатика
Лейла0044
11.02.2021 23:21
Выручайте нужно узнать почему не считает: найти произведение всех целых чисел от a до 20 (значение a вводится с клавиатуры: 1 =a = 20). #include using namespace...
карина2148
29.11.2022 14:31
1) От разведчика была получена следующая шифрованная радиограмма, переданная с использованием азбуки Морзе: 11110010011000 При передаче радиограммы было потеряно...
jamal55
20.02.2020 22:47
Дано некоторое натуральное число сн. вывести на печать ближайшее к нему простое число. pascal...
annasafaryan87
08.06.2023 17:13
Какие команды нужно выполнить для создания нового файла? Какова важность управления настройками изображения?...
fylkis
14.11.2021 02:05
Запишите на Паскале программу решающую задание №3...
howl111
05.06.2022 22:57
Решить задания по информатике, ответ представить в виде кода Pascal....
Имом
25.11.2021 19:42
Определите направление действия силы Ампера....
eminhesenov20
25.11.2021 19:42
Choose the appropriate words for the 3 paragraph of the text. Text...
Бобер3009
25.11.2021 19:42
Үндестік заңын ескеріп , қосымшаны дұрыс жалғап жаз. Мұражай Кітапхана Қонақүй Ғимарат Ескерткіш Ауыл Еңбек Қосымшалар : -ды,-ның,-дің,-қа,-ке,-ті,-ға,-ге...
moon137
25.11.2021 19:42
Определить эдс и внутреннее сопротивление источника питания, если в режиме холостого хода напряжение на выводах 15 В, а в режиме короткого замыкания ток 0,5 А. Найти...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.