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.
Я чет написала: я взяла 4 точки (n), дополнительный массив t1 - там у меня хранятся координаты этих точек(раз точек 4, то координат 8(n*2)). Но вот у меня проблема как эти координаты в функцию из массива засунуть, я просто написала t1[k], но ведь это никуда не годится.. но как решить по другому я не понимаю.. вотъ... жду любых идей! пасиба!)))