Question

РЕБЯТА, УМОЛЯЮ ПОМОГИТЕ ДАМ СКОЛЬКО УГОДНО БАЛЛОВ.

Answer 1

// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!

uses NumLibABC;

begin
  var (x1,y1):=ReadReal2('Координаты x,y точки 1 через пробел:');
  var (x2,y2):=ReadReal2('Координаты x,y точки 2 через пробел:');
  var (x3,y3):=ReadReal2('Координаты x,y точки 3 через пробел:');
  // строим векторы
  var a:=new Vector(x2-x1,y2-y1); Write('a: '); a.Println;
  var b:=new Vector(x3-x2,y3-y2); Write('b: '); b.Println;
  var c:=new Vector(x3-x1,y3-y1); Write('c: '); c.Println;
  var (la,lb,lc):=(a.ModV,b.ModV,c.ModV); // длины векторов-сторон
  if (la+lb>lc) and (la+lc>lb) and (lb+lc>la) then begin
    // можно построить треугольник, ищем скалярные произведения
    var L:=new List<(string,real)>;
    L.Add(('a·b = ',a*b));
    L.Add(('a·c = ',a*c));
    L.Add(('b·c = ',b*c));
    L:=L.OrderByDescending(t->t[1]).ToList; // сортировка
    foreach var t in L do Writeln(t[0],t[1])
  end
  else Writeln('Точки не могут быть вершинами треугольника')
end.

Пример
Координаты x,y точки 1 через пробел: -5 2.4
Координаты x,y точки 2 через пробел: 0 6
Координаты x,y точки 3 через пробел: 5 -2.15
a: 5 3.6
b: 5 -8.15
c: 10 -4.55
b·c = 87.0825
a·c = 33.62
a·b = -4.34

Answer 2

Поправлю... там в порядке УБВЫВАНИЯ просили

Answer 3

Все

Answer 4

Вот только интересно, где такие задачки подкидывают?))

Answer 5

10 класс , физ-мат уклон

Answer 6

Понятно. Ну что же, уклоняйтесь... )))