Navigation bar
  Print document Start Previous page
 156 of 179 
Next page End  

156
Сценарий
       координаты точек:
<х1> <у1>
… … …
<х4> <у4>
       
максимальный маршрут:
<ml> <m2> <m3> <m4>
длина = <mх> 
минимальный маршрут:
<n1> <n2> <n3> <n4>
длина = <mn>
Простейший способ решения этой задачи заключается в организации перебора всех замкнутых
маршрутов, проходящих через заданные точки и выбора среди минимального и максимального по
длине маршрутов.
Программа                     
Алгоритм
мин. и макс. маршруты          
алг «мин. и макс. маршруты» 
cls                             
нач
n = 4                            
        п = 4
dim x(n),y(n),r(n,n)                
   dim x(n),y(n),r(n,n)
? «координаты точек»              
       вывод («координаты точек»)
gosub vvdan 'ввод данных           
       ввод-координат-точек
restore mrshrt 'маршруты          
       загрузка-маршрутов
? «маршруты:»                      
   вывод («маршруты:»)
mr = 1*2*3                        
       mr =1*2*3
mx = 0                             
       тх = 0
for l = 1 to mr                      
       от l = 1 до mr
read k1, k2, k3, k4                  
           ввод k1, k2, k3, k4
dl = r(kl,k2) + r(k2,k3)             
           dl = r(kl,k2) + r(k2,k3)
d3 = r(k3,k4) + r(k4,kl)             
           d3 = r(k3,k4) + r(k4,k1)
d = dl + d3                        
           d = d1 + d3
? kl; k2; k3; k4, d                  
           вывод (k1; k2; k3; k4, d)
if mx = 0 then                      
        если тх = 0 то
mx = d: mn = d
        mx = d: mn = d
ml = kl: m2 = k2 
        ml = k1: m2 = k2
m3 = k3: m4 = k4
        m3 = k3: m4 = k4
nl = kl: n2 = k2
        n1 = k1: n2 = k2
n3 = k3: n4 = k4 
       
n3 = k3: n4 = k4
elseif d > mx then
инеc d > mx то
mx = d
        mx = d
ml = kl: m2 = k2 
        m1 = k1: m2 = k2
m3 = k3: m4 = k4
        m3= k3: m4 = k4
elseif d < mn then
инеc d < mn то
mn = d
       mn = d
nl = kl: n2 = k2
       n1 = k1: n2 = k2
n3 = k3: n4 = k4
n3 = k3: n4 = k4
Сайт создан в системе uCoz