Форум программистов [Powered by Invision Power Board]

Код

procedure TForm1.Button6Click(Sender: TObject);
var bestplancost: double; // стоимость оптимального маршрута

     ss:string;  // оптимальный маршрут (для вывода)
     pln,optplan:array[1..5] of byte; // тестовый и оптимальный маршруты

    i,j,k,l,m: byte; // счётчики
    s: array [1..5] of double; // массив случайных чисел
    nn:longint; // число испытаний
    bf:double; buf: byte; // буферные переменные

begin
  reloadmatrix; // загрузка матрицы связей
  nn:=StrToInt(Edit1.text); // число испытаний
  bestplancost:=1e10; // стоимость оптимального плана - первое приближение        
 Ti1:=Time; // засекаем время счёта
  randomize; // перезапуск генератора случайных чисел
 for j:=1 to 5 do pln[j]:=j; // первое приближение маршрута
  for i:=1 to nn do
        begin
        for j:=1 to 5 do s[j]:=random;  // генерируем случайные маршруты
        for j:=1 to 5-1 do
         for k:=j+1 to 5 do
          if s[j]>s[k] then
          begin
           bf:=s[j]; s[j]:=s[k]; s[k]:=bf;
           buf:=pln[j]; pln[j]:=pln[k]; pln[k]:=buf;
          end;


        cost:=0;  // подсчёт стоимости случайного маршрута
        for m:=1 to 5 do cost:=cost+matrix[pln[m],pln[m+1]];
        if cost<bestplancost then  // запоминаем лучший случайный маршрут
        begin
         bestplancost:=cost;
         for m:=1 to 5 do optplan[m]:=pln[m];
        end;
       end;

        Ti2:=Time;  // останавливаем секундомер
        tt:=(Ti2-Ti1)*86400; // считаем время
      Memo1.Lines.Add('Обработано вариантов: '+floattostr(nn));
      Memo1.Lines.Add('Время счёта: '+floattostr(tt));
      Memo1.Lines.Add('Стоимость оптимального маршрута (по Монте-Карло): '+floattostr(bestplancost));
      Memo1.Lines.Add('Оптимальный план');  ss:='';
      for m:=1 to 5 do
      begin
       ss:=ss+inttostr(optplan[m])+'>';
      end;
      Memo1.Lines.Add(ss); // выводим оптимальный маршрут


end;