массив размером n(n-1)
На плоскости заданы своими координатами n точек. Создать массив
размером n(n-1), элементами которого является расстояние от каждой из
точек до n-1 других.
Решение:
Program massiv4;
const n=4;
function Dl(a1,b1,a2,b2:real):real;
begin
Dl:=sqrt(sqr(a1-a2)+sqr(b1-b2));
end;
var a,b:array[1..n] of real;
d:array[1..n,1..n]of real;
i,j:integer;
BEGIN
for i:=1 to n do
begin
readln(a[ i ]);
readln(b[ i ]);
end;
for i:=2 to n do write(i:6);
writeln;
for i:=1 to n do
begin
write(i:2);
for j:=1 to n do
if i<>j then
begin
d[i,j]:=Dl(a[ i ],b[ i ],a[ j ],b[ j ]);
write(d[i,j]:6:2);
end;
writeln;
end;
readln;
END.
|
| Категория: Массивы | Добавил: deespe (29.01.2011)
|
| Просмотров: 2285
| Рейтинг: 0.0/0 |
|
