1.Даны координаты трёх...

Тема в разделе "Информатика", создана пользователем Luysi, 15 фев 2010.

  1. Luysi

    Luysi New Member

    1.Даны координаты трёх вершин треугольника(x1,y1),(x2,y2),(x3,y3).Найти его площадь,используя формулу для расстояния между двумя точками наплоскости.
     
  2. An_Rain

    An_Rain New Member

    Пишите язык, что ли. Хотите получить рано или поздно программу на brainfuck-e?
    Я напишу на Паскале.
     
    function dist(x1,y1,x2,y2: real): real;
    begin
       dist := sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
    end;
    var x1,x2,x3,y1,y2,y3,a,b,c,s:real;
    begin
       readln(x1,y1,x2,y2,x3,y3);
       a:=dist(x1,y1,x2,y2);
       b:=dist(x1,y1,x3,y3);
       c:=dist(x2,y2,x3,y3);
       s:=(a+b+c)/2;
       s:=sqrt(s*(s-a)*(s-b)*(s-c));
       writeln(s)
    end.
     
     

Поделиться этой страницей

Наша группа