Задача 18
Вычислить площадь треугольника по заданным координатам его вершин.
Решение
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | Program var7_3; Uses Crt; Var Ax, Ay, Bx, By, Cx, Cy : integer; s, p, AB, BC, AC : real; begin ClrScr; Ax:= 2; Ay:= 3; Bx:= 4; By:= 5; Cx:= 7; Cy:= -1; {находим длины сторон} AB:= sqrt( (Bx-Ax)*(Bx-Ax) + (By-Ay)*(By-Ay) ); BC:= sqrt( (Bx-Cx)*(Bx-Cx) + (By-Cy)*(By-Cy) ); AC:= sqrt( (Cx-Ax)*(Cx-Ax) + (Cy-Ay)*(Cy-Ay) ); {находим полупериметр} p:= (AB+BC+AC)/2; {рассчитываем площадь треугольника по формуле Герона} s:= sqrt(p * (p-AB) * (p-BC) * (p-AC)); {выводим результат} writeln ('s=', s:1:2); readln; end. |