Найти длину сторон треугольника если известны координаты его вершин

@mihail1 · Регистрация: 16.05.2012

Помогите написать программу в Delphi! Найти длину сторон треугольника если известно координаты его вершин: А(х1, у1, z1),B(х2, у2, z2), C (х3, у3, z3).

@Arcor · 16.05.2012, 23:59

координаты В - координаты А -> сложить все 3 координаты возведенные в квадрат под корнем и вытянуть корень, будет длина АВ
координаты С - координаты В -> сложить все 3 координаты возведенные в квадрат под корнем и вытянуть корень, будет длина ВС
координаты С - координаты А -> сложить все 3 координаты возведенные в квадрат под корнем и вытянуть корень, будет длина АС

теорема пифагора, сложение векторов

Добавлено через 20 минут
примерно вот так

Delphi

type
  TTRiangle = record
    x, y, z: Integer;
    Res: Real;
  end;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var TrA, TrB, TrC: TTRiangle;
begin
  TrA.x := 20;
  TrA.y := -7;
  TrA.z := 3;
 
  TrB.x := 1;
  TrB.y := 5;
  TrB.z := -4;
 
  TrC.x := 2;
  TrC.y := 8;
  TrC.z := 4;
 
  TrA.Res := Sqrt(Sqr(TrA.x)+Sqr(TrA.y)+Sqr(TrA.z));
  TrB.Res := Sqrt(Sqr(TrB.x)+Sqr(TrB.y)+Sqr(TrB.z));
  TrC.Res := Sqrt(Sqr(TrC.x)+Sqr(TrC.y)+Sqr(TrC.z));
 
  ShowMessage('Длина АВ = '+FloatToStrF(TrA.Res, ffFixed, 10, 2)+#13+
              'Длина BC = '+FloatToStrF(TrB.Res, ffFixed, 10, 2)+#13+
              'Длина AC = '+FloatToStrF(TrC.Res, ffFixed, 10, 2));
end;

@mihail1 0 / 0 / 0 Регистрация: 16.05.2012 Сообщений: 7
		1
	Найти длину сторон треугольника если известны координаты его вершин 16.05.2012, 23:37. Просмотров 1677. Ответов 1 Метки нет (Все метки) Помогите написать программу в Delphi! Найти длину сторон треугольника если известно координаты его вершин: А(х1, у1, z1),B(х2, у2, z2), C (х3, у3, z3). 0

Опции темы

Найти длину сторон треугольника если известны координаты его вершин

Решение