Подпрограмма для вычисления площади треугольника Опции

[Светлана]

Треугольник задан координатами своих вершин. Составить подпрограмму для вычисления его площади. Вот мой вариант решения этой задачи, но у меня площадь получается равной 0! Помогите подкорректировать прогу...

 Program treugolnik;
var x1,y1,x2,y2,x3,y3,a,b,c,p,S:real;
procedure ploshad(a,b,c,p:real; var S:real);
 begin
  S:=Sqrt(p/2*(p/2-a)*(p/2-b)*(p/2-c));
 end;
   begin
   writeln ('vvedite koordinaty 3 tochek');
   readln(x1,y1,x2,y2,x3,y3);
   a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
   b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
   c:=sqrt(sqr(x3-x1)+sqr(y3-y1));
   p:=a+b+c;
   writeln('S=',S);
   readln
   end.

[мисс_граффити]

ты же процедуру не вызываешь

Program treugolnik;
var x1,y1,x2,y2,x3,y3,a,b,c,p,S:real;
procedure ploshad(a,b,c,p:real; var S:real);
 begin
  S:=Sqrt(p/2*(p/2-a)*(p/2-b)*(p/2-c));
 end;
   begin
   writeln ('vvedite koordinaty 3 tochek');
   readln(x1,y1,x2,y2,x3,y3);
   a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
   b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
   c:=sqrt(sqr(x3-x1)+sqr(y3-y1));
   p:=a+b+c;
   ploshad(a,b,c,p,S);{<--вот здесь надо считать площадь}
   writeln('S=',S);
   readln
   end.

вопросов 2:
1) почему ты не хочешь передавать в подпрограмму полупериметр, а не периметр?
2) не хочешь реализовать в виде функции? как-то логичнее...

Сообщение отредактировано: мисс_граффити - 1.12.2006 23:40