Задача

Даны координаты вершин треугольника ABC A(x1;y1), B(x2;y2), C(x3;y3) яв-ся ли треугольник равнобедренным.


Решение

***
Программа 
?01 Uses Crt;
02 Var x1,x2,x3,y1,y2,y3,a,b,c : 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 a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
18 b:=sqrt(sqr(x2-x3)+sqr(y2-y3));
19 c:=sqrt(sqr(x1-x3)+sqr(y1-y3));
20 If (a=b)or(a=c)or(b=c) Then Write('равнобедренный')
21 Else Write('не равнобедренный');
22 ReadLn;
23 End.