ЗАДАЧА ТУРБО ПАСКАЛЯ

[massiv]

ДАНЫ ОТРЕЗКИ A,B,C,D ДЛЯ КАЖДОЙ ТРОЙКИ ЭТИХ ОТРЕЗКОВ МОЖНО ПОСТРОИТЬ ТРЕУГОЛЬНИК.НАПЕЧАТАТЬ ПЛОЩАДЬ ТРЕУГОЛЬНИКА,ПЕЧАТАТЬ В ПРОЦЕДУРЕ(ЕСЛИ ДАННЫЙ ТРЕУГОЛЬНИК СУЩЕСТВУЕТ!)
НАТОЛКНИТЕ НА ПРАВЕЛЬНУЮ МЫСЛЬ!!!!!!

[JamS007]

massiv

Опишите, пожалуйста, задачу поподробней. Чем лучше обьясните, тем больше у Вас шансов получить ответ!

[massiv]

Т.Е ДАНЫ ОТРЕЗКИ,ИХ ДЛИНА ВВОДИТЬСЯ С КЛАВИАТУРЫ,ЗДЕСЬ ЕЩЕ НАДО УЧИТЫВАТЬ ДЛИНУ ОТРЕЗКА,ТАК ЧТО ЭТИ ОТРЕЗКИ ОБРАЗОВЫВАЛИ ТРЕУГОЛЬНИК=>НАЙТИ ПЛОЩАДЬ

[JamS007]

Если я правильно понял, то графически ничего не нужно рисовать или нужно?

А направленность векторов этих отрезков как узнать? Или они каждый раз определяются случайным образом?

[massiv]

графически не нужно,задаются произвольно

[massiv]

т.е определенной направленности нет

[Lemo]

Некоторые составляющие программы:

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;

   Procedure LOL(xa,xb,ya,yb, xc,yc:real;
var a,b,c,p,S:real);

begin

a:=Sqrt(sqr(xb-xa)+sqr(yb-ya));
b:=Sqrt(sqr(xc-xa)+sqr(yc-ya));
c:=Sqrt(sqr(xc-xb)+sqr(yc-yb));

p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
var
    xa,ya,xb,yb,xc,yc:real;
    a,b,c,p,s:real;
    begin

    writeln ('Koordinati verwini Xa i Ya');
    readln(xa,ya);
    writeln ('Koordinati verwini Xb i Yb');
    readln(xb,yb);
    writeln ('Koordinati verwini Xc i Yc');
    readln(xc,yc);
   LOL(xa,xb,ya,yb, xc,yc, a,b,c,p,S);
  Write ('S=', S:6:2);
  readln;

end.

[AlDelta]

Нарушение правил форума.
Закрыто.