Составьте программу для вычисления площади четырёхугольника с координатами вершин (x1, , , , y4площадь четырёхугольника вычислите как сумму площадей двух треугольников.

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.

Разветвления - второй из типичных разновидностей алгоритмов. разветвления начинается с определенного условия. если это условие выполняется, происходит одно действие (или набор действий); если нет - другая. примером такого алгоритма может служить, например, общение контроллера с пассажиром автобуса: если пассажир предъявил билет, надо пассажиру за оплаченный проезд, если нет - оштрафовать. для программирования разветвления в языке паскаль используется одна из конструкций if - then и if - then - else (. if - "если", then - "то", else - "иначе"). складанне-сложение

Систематизация и поиск информации в хранилище связаны для облегчения поиска внутри каждой ветви, то есть нужную нам информацию попросту отсортировывают (упорядочивают).  пример: ты ищешь информацию о смартфоне "samsung galaxy" и ты найдешь около миллиона предложений. соответственно искать нужную тебе модель ты будешь намного дольше, если ты добавишь к "samsung galaxy" модель "s5", то кол-во информации значительно уменьшится, потому что ты ищешь то, что ты конкретно знаешь. говоря короче, зная область, модель, номер, фирму и т.д. ты сужаешь область поиска информации.