• Вопрос по информатике:

    Выяснить,лежит ли на одной прямой точки А(x1,y1), B(x2,y2),C(x3,y3).Координаты точек вводятся пользователем с клавиатуры ,результат работы программы выводится на экран

    • Автор:

      jacobsmith

  • Ответ:

    //Pascal ABC.NET 3.1 сборка 1219Var x1,x2,x3,y1,y2,y3:integer; p1,p2:real;begin readln(x1,y1,x2,y2,x3,y3); p1:=(y3-y1)/(y2-y1); p2:=(x3-x1)/(x2-x1); if p1=p2 then writeln('На одной прямой') else writeln('Не на одной прямой');end.Пример ввода:112233Пример вывода:На одной прямой

    • Отвечал:

      doobiepjzf
    • 0

    Ответ:

    var x1,y1,x2,y2,x3,y3,a,b:real;beginwrite('A: '); readln(x1,y1);write('B: '); readln(x2,y2);write('C: '); readln(x3,y3);a:=(y2-y1)/(x2-x1);b:=y2-a*x2;if y3=a*x3+b then writeln('Точки лежат на одной прямой') else writeln('Точки не лежат на одной прямой');end.Пример:A: 1 1B: 2 3C: 3 5Точки лежат на одной прямой

    • Отвечал:

      chanelxlyi
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска