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

Главная Форумы Программирование Программирование на Pascal Проверка равнобедренности треугольника

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 2 нед., 4 дн. назад.

  • Автор
    Сообщения
  • #4226

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

    Решение заключается в вычислении длин трех сторон по теореме Пифагора:
    $$AB = \sqrt[2]{(a_x-b_x)^2+(a_y-b_y)^2}$$

    И сравнении полученных результатов:

    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.

    Обратите внимание, что в решении специально допущена ошибка. Попробуйте ее найти (если не получится – спрашивайте).

Для ответа в этой теме необходимо авторизоваться.