 |
 |
 |
 |
|
 |
 |
157
end if
кесли
next 1
кцикл
? «максимальный маршрут:»
вывод («максимальный маршрут:»)
? ml; m2; m3; m4
вывод (m1; m2; m3; m4)
? «длина =»; mx
вывод («длина =»; mx)
? «минимальный маршрут:»
вывод («минимальный маршрут:»)
? nl; n2; n3; n4
вывод (n1; n2; n3; n4)
? «длина =»; mn
вывод («длина =»; mn)
end
кон
vvdan: 'ввод данных
алг «ввод данных»
restore tchks
загрузка-точек
for k = 1 to n
от k = 1 до п
read x(k),y(k)
ввод x(k),y(k)
? x(k),y(k)
вывод x(k),y(k)
next k
кцикл
for k = 1 to n
от k = 1 до п
for l = 1 to n
от l = 1 до п
dx = x(k) - x(l)
dx = x(k) - x(l)
dy = y(k) - y(l)
dy = y(k) - y(l)
rs = dx*dx + dy*dy
rs = dx*dx + dy*dy
r(k,l) = sqr(rs)
r(k,l) = sqr(rs)
next 1
кцикл
next k
кцикл
return
кон
mrshrt: 'маршруты:
data 1, 2, 3, 4
data 1, 2, 4, 3
data 1, 3, 2, 4
data 1, 2, 4, 3
data 1, 4, 2, 3
data 1, 4, 3, 2
tchks: 'координаты точек
data 0, 0
data 0, 3
data 4, 0
data 4, 3
Результаты выполнения на ЭВМ приведенной программы:
координаты точек:
0 0
03
4 0
4 3
маршруты:
длина:
1
2
3
4
16
1
2
4
3
14
1
3
2
4
18
1
2
4
3
14
1
4
2
3
18
1 4 3 2
16