Проверка на равнобедренность треугольника Pascal(Паскаль)

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

Uses Crt;
Var x1,x2,x3,y1,y2,y3,a,b,c : real;
Begin
	ClrScr;
	write('x1=');
	Readln(x1);
	write('y1=');
	Readln(y1);
	write('x2=');
	Readln(x2);
	write('y2=');
	Readln(y2);
	Write('x3=');
	Readln(x3);
	write('y3=');
	Readln(y3);
	a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
	b:=sqrt(sqr(x2-x3)+sqr(y2-y3));
	c:=sqrt(sqr(x1-x3)+sqr(y1-y3));
	If (a=b)or(a=c)or(b=c) Then Write('равнобедренный')
		Else Write('не равнобедренный');
	ReadLn;
End.

Leave a Comment