Нужно создать маленькую программку по информатике:) (readln,write ln,var) + Паскаль Даны координаты 3х точек. Найти Площадь
10-11 класс
|
треугольника.
Решение через площадь паралеллограма.
type
point = record
x, y : real;
end;
var
a, b, c, v1, v2 : point;
vector : real;
begin
read (a.x, a.y, b.x, b.y, c.x, c.y);
v1.x := b.x - a.x;
v2.x := c.x - a.x;
v1.y := b.y - a.y;
v2.y := c.y - a.y;
vector := v1.x * v2.y - v2.x * v1.y;
writeln (abs (vector / 2));
end.
Другие вопросы из категории
Каждый символ кодируется одинаковым и минимально возможным количеством бит, а каждый номер – одинаковым и минимально возможным количеством байт. Определите объем памяти (в байтах), необходимый для хранения 15 автомобильных номеров.
Читайте также
Опишите этапы решения на компьютере задачи нахождения значения a^b для целых чисел 0<a,b<10.
истинность высказывания: «Данные поля имеют одинаковый цвет».
помагите решить