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

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

  • В этой теме 0 ответов, 1 участник, последнее обновление 2 года, 4 месяца назад сделано Васильев Владимир Сергеевич.
Просмотр 0 веток ответов
  • Автор
    Сообщения
    • #4226
      @admin

      Задача: даны координаты вершин треугольника
      $$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.

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

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