Номер 10, страница 30 - гдз по информатике 9 класс учебник Босова, Босова

Параграф 1.2. Запись вспомогательных алгоритмов на языке Паскаль. Глава 1. Алгоритмы и программирование - номер 10, страница 30.

Условие.

10. Напишите функцию, вычисляющую площадь треугольника по координатам его вершин. Напишите программу вычисления площади четырёхугольника по координатам его вершин с помощью этой функции.

Решение.

Площадь треугольника через координаты:

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;
begin
writeln ('Введите координаты вершин четырехугольника.');
write ('x1 = '); read(x1);
write ('y1 = '); read (y1);
write ('x2 = '); read(x2);
write ('y2 = '); read (y2);
write ('x3 = '); read(x3);
write ('y3 = '); read (y3);
write ('x4 = '); read(x3);
write ('y4 = '); read (y4);
s1:= plosad(x1, y1, x2, y2, x3, y3);
s2:= plosad(x1, y1, x3, y3, x4, y4);
s:=s1+s2;
writeln ('Площадь равна ', s:0:2);
end.