Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Petrov200104
28.10.2021 08:24 •
Информатика
Составьте программу для вычисления площади четырёхугольника с координатами вершин (x1, , , , y4).площадь четырёхугольника вычислите как сумму площадей двух треугольников.
Показать ответ
Ответ:
Стаилз2002
29.06.2020 07:20
TYPE
TPoint = Record x, y: Real; End;
VAR
a, b, c, d: TPoint;
Function Pl(a, b, c: TPoint): Real;
Var v1, v2: TPoint;
Begin
v1.x := a.x - b.x; v1.y := a.y - b.y;
v2.x := a.x - c.x; v2.y := a.y - c.y;
Pl := Abs(v1.x * v2.y - v1.y * v2.x) / 2;
End;
BEGIN
Read(a.x, a.y, b.x, b.y);
Read(c.x, c.y, d.x, d.y);
Write(Pl(a, b, c)+Pl(a, c, d));
END.
0,0
(0 оценок)
Популярные вопросы: Информатика
МАТРОСКИНЯЛЯЛЯЛ
06.02.2023 20:26
Втерминологии сетей tcp/ip маска сети – это двоичное число, меньшее 232; в маске сначала (в старших разрядах) стоят единицы, а затем с некоторого места нули. маска...
Ал923к
18.10.2020 08:43
Составить схему и записать программу на языке паскаль, которая будет вычислять корень линейного уравнения ax+b=0 (коэффициенты а и b вводятся с клавиатуры)....
Lukachyk2017
22.02.2023 01:35
Вывести элементы массива значения которых меньше их индекса. составить программу (паскаль), оформить ответ!...
kanyamax
31.12.2021 19:42
Напишите программу на паскале, которая определяет: сколько раз число 10 встречается среди элементов линейной таблицы а(n), состоящей из целых чисел....
лунтик56
27.02.2023 16:41
:вам 77 ))1. 6 № 3408. исполнитель робот действует на клетчатой доске, между соседними клет‐ ками которой могут стоять стены. робот передвигается по клеткам доски...
nastyapetrova011
24.11.2022 05:51
Найдите ошибки в записи программы. перепишите программу в исправленном виде. program exmpl var c: real begin write ( введите длины трех сторон треугольника: ) read...
algriskova06
09.02.2021 21:16
Написать функцию, которая вычисляет значение аь. числа а и ь могут быть любыми дробными положительными числами. паскаль...
ismailovu5
09.02.2021 21:16
Внекотором каталоге хранился файл ландыш.dос, имевший полное имя d: \2013\весна\ландыш.doc в этом каталоге создали подкаталог май и файл ландыш.doc переместили в созданный...
Darina2581
13.11.2021 03:48
Дан массив целых чисел от 1 до n, пусть n=15. вычислить сумму элементов с 1 по 12, и с 8 по 15, а также найти произведения этих сумм....
NataNati
08.04.2020 03:12
Укажите через один пробел в порядке возрастания все основания систем счисления, в которых запись десятичного числа 3306 оканчивается на 3....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
TPoint = Record x, y: Real; End;
VAR
a, b, c, d: TPoint;
Function Pl(a, b, c: TPoint): Real;
Var v1, v2: TPoint;
Begin
v1.x := a.x - b.x; v1.y := a.y - b.y;
v2.x := a.x - c.x; v2.y := a.y - c.y;
Pl := Abs(v1.x * v2.y - v1.y * v2.x) / 2;
End;
BEGIN
Read(a.x, a.y, b.x, b.y);
Read(c.x, c.y, d.x, d.y);
Write(Pl(a, b, c)+Pl(a, c, d));
END.