Определить пару наиболее удаленный друг от друга точек.

@Татьяна777 · Регистрация: 09.01.2013

Студворк — интернет-сервис помощи студентам

четыре точки заданы координатами: А(4,8:-3) В(-6,5:1,2) С(-3,7:-4,5) D(7,8:2). Определить пару наиболее удаленный друг от друга точек.Вычисления расстояния оформить в виде программ.

@palva · 09.01.2013, 18:27

Pascal

program LongSum;
{$APPTYPE CONSOLE}
type
    TPoint=array[1..2] of Double;
    TSet=array[1..4] of TPoint;
var
    iv, jv, i, j: Integer;
    d, dd: Double;
    a: TSet;
function dist(t1,t2: TPoint): Double;
begin
    dist := sqrt((t1[1]-t2[1])*(t1[1]-t2[1])+
                (t1[2]-t2[2])*(t1[2]-t2[2]));
end;
 
begin
    a[1][1] := 4.8;
    a[1][2] := -3;
    a[1][1] := -6.5;
    a[1][2] := 1.2;
    a[2][1] := -3.7;
    a[2][2] := 4.5;
    a[2][1] := 7.8;
    a[2][2] := 2;
    d := 0.0;
    iv := 0;
    jv := 0;
    for i:=1 to 3 do for j:=i+1 to 4 do
    begin
        dd:=dist(a[i],a[j]);
        if dd > d then
        begin
            d := dd;
            iv := i;
            jv := j;
        end
    end;
    WriteLn(iv:2, jv:2, d:8:3);
end.

@Татьяна777 0 / 0 / 0 Регистрация: 09.01.2013 Сообщений: 5
		1
	Определить пару наиболее удаленный друг от друга точек. 09.01.2013, 17:55. Показов 1133. Ответов 1 Метки нет (Все метки) четыре точки заданы координатами: А(4,8:-3) В(-6,5:1,2) С(-3,7:-4,5) D(7,8:2). Определить пару наиболее удаленный друг от друга точек.Вычисления расстояния оформить в виде программ. 0

Опции темы

Определить пару наиболее удаленный друг от друга точек.

Решение