Ишдан мақсад: Транспорт тизими: транспорт масаласини потенциаллар усули ёрдамида ечиш ва тахлил килиш

Масаланинг дасурий таъминоти
Ихтиёрий киритиш тугмаси:
проcедуре ТФорм1.Буттон2Cлиcк(Сендер: ТОбжеcт);
вар
и,ж:интегер;
бегин
фор и:=1 то СтрингГрид1.CолCоунт-1 до
фор ж:=1 то 2 до
СтрингГрид1.Cеллс[и,ж]:=инттостр(рандом(30));

енд;

Ҳисоблаш тугмаси:

проcедуре ТФорм1.Буттон1Cлиcк(Сендер: ТОбжеcт);

вар
б:боолеан;
с1,с2,с3,с4,с5:стринг;
и,и1,ж,к,м,н,мин:интегер;
а:аррай[1..2,1..100] оф интегер;
ст:сет оф бйте;
ф,л:интегер;
сс,сб:аррай[1..100] оф стринг;
бегин
Лабел3.Cаптион:=ъъ;
Лабел4.Cаптион:=ъъ;
Лабел7.Cаптион:=ъъ;
ф:=1;
л:=1;
ст:=[0];
фор и:=1 то 2 до
фор ж:=1 то СтрингГрид1.CолCоунт-1 до
а[и,ж]:=СтрТоИнт(СтрингГрид1.Cеллс[ж,и]);
б:=труе;
м:=СтрингГрид1.CолCоунт-1;
с1:=ъъ;
с2:=ъъ;
с3:=ъъ;
фор и:=1 то м до
бегин
к:=1;
wҳиле ((к ин ст)) до
бегин
инc(к);
иф к=м тҳен бреак;
енд;
н:=к;
иф б тҳен мин:=а[1,к] елсе мин:=а[2,к];
фор ж:=1 то м до
бегин
иф б тҳен
иф (а[1,ж]<мин)анд(нот (ж ин ст)) тҳен
бегин
мин:=а[1,ж];
н:=ж;
енд;
иф нот б тҳен
иф (а[2,ж]<мин)анд(нот (ж ин ст)) тҳен
бегин
мин:=а[2,ж];
н:=ж;
енд;
енд;

иф б тҳен

бегин
сб[л]:=инттостр(мин);
инc(л);
с1:=с1+инттостр(мин)+ъ, ъ;
с4:=с4+ъПъ+инттостр(н)+ъ, ъ;
енд

елсе
бегин

сс[ф]:=инттостр(мин);
инc(ф);
с2:=с2+инттостр(мин)+ъ, ъ;
с5:=с5+ъ ,ъ+инттостр(н)+ъПъ;
енд;

ст:=ст+[н];

б:=нот б;

енд;

Лабел3.Cаптион:=с1;
Лабел4.Cаптион:=с2;
фор и:=ф-1 доwнто 1 до
с3:=с3+сс[и]+ъ, ъ;
Лабел7.Cаптион:=Лабел7.Cаптион+с4;
фор и:=Ленгтҳ(с5) доwнто 1 до
Лабел7.Cаптион:=Лабел7.Cаптион+с5[и];

енд;