сервис вопросов и ответовСоставьте программу для вычисления площади четырёхугольника с координатами вершин (x1, y1),(x2, y2),(x3, y3),(x4, y4).Площадь четырёхугольника
10-11 класс|
|
вычислите как сумму площадей двух треугольников.
4121993
21 февр. 2017 г., 22:17:22 (7 лет назад)
Jeni2012
22 февр. 2017 г., 0:12:04 (7 лет назад)
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.
Ответить
Другие вопросы из категории
Срочно! Постройте алгоритм. Написать последовательность команд, с помощью которых вы найдете минимальное значение из четырех значений, хранящихся в
переменных а, б, в, г. Объясните, что происходит, если некоторые значения одинаковые?
Составить программу
вычислить значение выражения по формуле (все переменные принимают вещественные значения): Z=корень 1-sina
Сделал программу , рабоает все правильно , все условия выполняются , но учитель придрался мол не введен массив , а когда массив ввожу выходит ошибка .
Помогите и объясните , что мне здесь переделать ?
Вот задача : Дан одномерный массив , к чётным элементам прибавить B а из нечетных вычесть C . ( B u C вводятся с клавиатуры )
PROGRAM № 2;
Uses crt;
var i,b,c,x: integer;
begin
write('Введите до какого числа будет идти масив: ');
readln(x);
write('Введите B и C ( через пробел ): ');
readln(b,c);
for i:=0 to x do
if (i mod 2 = 0)then writeln(i,'+',b,'=',i+b)
else writeln(i,'-',c,'=',i-c);
end.
Читайте также
Помогите составить программу, пожалуйста, нужно очень срочно! Пятиугольник ABCDE задан координатами своих вершин
(X1,Y1)(X2,Y2)(X3,Y3)(X4,Y4)(X5,Y5) соответственно. Найти площадь этого пятиугольника используя в качестве подпрограммы a) функцию
На координатной плоскости своими действительными координатами (x1, y1), (x2, y2), (x3, y3), (x4, y4) задан выпуклый четырехугольник. Проверить, является
ли он параллелограммом, если ДА – вычислите выражение |(a+b)2+| с точностью до сотых, где а и b смежные стороны параллелограмма.
написать программу на паскале Треугольник задан координатами (x1, y1), (x2, y2), (x3, y3)
своих вершин. Вычислить радиус окружности, вписанной в треугольник
3. Даны два неравных числа X и Y. Большее из них заменить на сумму этих чисел, а меньшее увеличить в три раза.
4. Известны периметр первого треугольника Р1, координаты вершин второго x1, y1, x2, y2,x3, y3 и длины сторон третьего – а3, в3, с3. Найти и вывести на экран периметр меньшего треугольника.
Алгоритмы ветвления
1. Составить программу для нахождения наибольшего числа из трех чисел.
2. Составить программу для упорядоченное двух элементов по убыванию.
Вы находитесь на странице вопроса "Составьте программу для вычисления площади четырёхугольника с координатами вершин (x1, y1),(x2, y2),(x3, y3),(x4, y4).Площадь четырёхугольника", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.