Ответ: Рельеф района представляет собой пологую низкую (местами болотистую) равнину. Здесь проходил ледник, поэтому моренные холмы, гряды, гигантские валуны, обилие рек и озер создают очень живописный ландшафт. Правда, в этих условиях больших участков под пашню найти не удастся.
Комментарий к ответу: В функции мы используем формулу вычисления длины отрезка по ее координатам: квадратный корень из суммы (x2-x1)^2 и (y2-y1)^2. В программе вначале вводим координаты точек вершин треугольника, затем ищем длину каждого отрезка с помощью функции dlina. Находим периметр P, сложив три полученных результата и выводим его округлив до сотых. Программа содержит вычисление корня, поэтому мы использовали вещественный тип данных.
program z9;
var x1, x2, x3, y1, y2, y3, P, AB, BC, AC: real;
//Функция вычисления длины отрезка
function dlina (var x1,y1,x2,y2: real): real;
begin
dlina:=sqrt(sqr(x2-x1) + sqr(y2-y1));
end;
В формуле имеется модуль, в Паскале он обозначается abs(значение).
program z9;
var x1, x2, x3, y1, y2, y3, x4, y4, S1, S2, S: real;
//Функция вычисления площади треугольника по координатам
function plosad (var x1,y1,x2,y2,x3,y3: real): real;
begin
plosad:=abs(((x1-x3)*(y2-y3) - (x2-x3)*(y1-y3))/2);
end;
