Меню сайта

Задача №7

Треугольник задан своими координатами своих вершин. Вычислить площадь треугольника с использованием функции нахождения расстояния между двумя точками.


Program func7-

Uses crt-

Var x1,y1,x2,y2,x3,y3:integer-

S,p:real-

Function rast(a,b:integer):real-

Begin

Rast:=sqrt(sqr(x2-x1)+sqr(y2-y1))-

End-

Begin

Writeln(‘введите координаты 1 точки x1 и -y1’)-

readln(x1,y1)-

Writeln(‘введите координаты 2 точки x2 и — y2’)-

readln(x2,y2)-

Writeln(‘введите координаты 3 точки x3 и — y3’)-

readln(x3,y3)-

P:=(rast(x1,y1)+rast(x2,y2)+rast(x3,y3))/2-

S:=sqrt(p*(p-rast(x1,y1))*(p-rast(x2,y2))*(p-rast(x2,y2)))-

Writeln(‘площадь=’,s:4:2)-

Readln-

End.

Категория: Подпрограммы | Дата: 30.12.12

Меню раздела
Блок