Задача

Составить программу для определения лежит ли точка (x3; y3), на прямой проходящей через точки (x1; y1), C(x2; y2).


Решение

***
Программа
?01 Uses Crt;
02 Var x1,x2,x3,y1,y2,y3 : real;
03 Begin
04 ClrScr;
05 Write('x1=');
06 Readln(x1);
07 Write('y1=');
08 Readln(y1);
09 Write('x2=');
10 Readln(x2);
11 Write('y2=');
12 Readln(y2);
13 Write('x3=');
14 Readln(x3);
15 Write('y3=');
16 Readln(y3);
17 If (x3-x1)*(y2-y1)-(y3-y1)*(x2-x1)=0
18 Then Write('лежит')
19 Else Write('не лежит');
20 Readln;
21 End.