Определить, равносторонним, равнобедренным или разносторонним является треугольник

Категория: Delphi/Pascal
2011-08-28 22:25:40

На плоскости заданы координаты трёх точек — вершины треугольника. Определить, равносторонним, равнобедренным или разносторонним является треугольник

code: #pascal
  1. program rect;
  2.  var
  3.  x1,x2,x3,y1,y2,y3:integer;
  4.  l1,l2,l3:real;
  5.  k:byte;
  6.  begin
  7.  k:=0;
  8.  //здесь пишешь блок ввода координат вершин (x1,y1)и т.д.
  9.  l1:=sqrt(sqr(x1-x2)+sqr(y1-y2));
  10.  l2:=sqrt(sqr(x1-x3)+sqr(y1-y3));
  11.  l3:=sqrt(sqr(x2-x3)+sqr(y2-y3));
  12.  if l1=l2 then inc(k);
  13.  if l1=l3 then inc(k);
  14.  if l2=l3 then inc(k);
  15.  case k of
  16.  0: write('Неравносторонний');
  17.  1: write('Равнобедренный');
  18.  3: write('Равносторонний');
  19.  end;
  20.  end.
Поделиться:

Похожие статьи:

теги: студенты, равносторонний треугольник, равнобедренный треугольник