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

105

407

Посмотреть ответы 3

Ответы на вопрос:

Satana04

Информатика

4,8(42 оценок)

//pascal abc.net 3.1 сборка 1219 var 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. пример ввода: 1 1 2 2 3 3 пример вывода: на одной прямой

milenkoInyashno

Информатика

4,4(11 оценок)

Var x1,y1,x2,y2,x3,y3,a,b: real; begin write('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 1 b: 2 3 c: 3 5 точки лежат на одной прямой