Вот такая вот задача: На плоскости заданы своими координатами n точек. Создать массив размерности n х (n—1), элементами которого являются расстояния от каждой из точек до n—1 других. Функцию использовать для определения расстояния между одной парой точек.
const n=4;
Var i,j,k:integer; t:array[1..n,1..n-1] of real; t1:array[1..n*2] of real;
function rasst(x1,y1,x2,y2:real):real;
Var d:real;
begin
d:=sqrt(sqr(y2-y1)+sqr(x2-x1));
rasst:=d;
end;
begin
randomize;
for k:=1 to n*2 do begin
t1[k]:=random*(20)-10;
writeln(t1[k]:5:2);
end;
for i:=1 to n do begin
for j:=1 to n-1 do
t[i,j]:=rasst(t1[k],t1[k],t1[k],t1[k]);
write (t[i,j]:7:3);
writeln (t[i,j]:7:3);
end;
readln;
end.
тебе будет намного проще работать, если ты сделаешь массив с координатами вот так:
t1:array[1..n,1..2] of real;
for i:=1 to n do begin
for j:=1 to n-1 do
t[i,j]:=rasst(t1[i,1],t1[i,2],t1[j,1],t1[j,2]);
мх... пасиба!!! большое... а то вчера чет ночью совсем голова не соображала)))
щас все поняла с твоей подсказки))