Вычислить площадь треугольника по 3 вершинам
Вычислить площадь треугольника по 3 вершинам. Использовать подпрограмму.
Решение:
program rus;
var x1,y1,x2,y2,x3,y3:integer;
function pl(a1,b1,a2,b2,a3,b3:integer):real;
var x,y,z,p:real;
begin
z:=sqrt(sqr(b1-b2)+sqr(a1-a2));
x:=sqrt(sqr(b2-b3)+sqr(a2-a3));
y:=sqrt(sqr(b1-b3)+sqr(a1-a3));
p:=(z+x+y)/2;
pl:=sqrt(p*(p-x)*(p-y)*(p-z));
end;
BEGIN
writeln('vvesti kordinati');
readln(x1,y1,x2,y2,x3,y3);
writeln('ploshad =',pl(x1,y1,x2,y2,x3,y3):3:3);
readln;
END.
|
| Категория: С подпрограммой | Добавил: deespe (03.02.2011)
|
| Просмотров: 2131
| Рейтинг: 0.0/0 |
|
