Ишдан мақсад: Транспорт тизими: транспорт масаласини потенциаллар усули ёрдамида ечиш ва тахлил килиш
Download 0.68 Mb.
|
BTTL laboratoriya 4 ta (1)
- Bu sahifa navigatsiya:
- Операциялар сони
Тозалаш тугмаси:
проcедуре ТФорм1.Буттон3Cлиcк(Сендер: ТОбжеcт); вар и,ж:интегер; бегин Лабел3.Cаптион:=ъъ; Лабел4.Cаптион:=ъъ; Лабел7.Cаптион:=ъъ; фор и:=1 то СтрингГрид1.CолCоунт-1 до фор ж:=1 то СтрингГрид1.РоwCоунт-1 до СтрингГрид1.Cеллс[и,ж]:=ъъ; енд; Операциялар сони: проcедуре ТФорм1.СпинЕдит1Чанге(Сендер: ТОбжеcт); вар и:интегер; бегин СтрингГрид1.CолCоунт:=СпинЕдит1.Валуе+1; фор и:=1 то СпинЕдит1.Валуе до СтрингГрид1.Cеллс[и,0]:=ъПъ+ИнтТоСтр(и); енд; унит Унит1; интерфаcе усес
Диалогс, Гридс, ЕхтCтрлс, Менус, СтдCтрлс, Спин, ХПМан; тйпе
Панел1: ТПанел; Панел2: ТПанел; СтрингГрид1: ТСтрингГрид; МаинМену1: ТМаинМену; Файл1: ТМенуИтем; Чиқиш1: ТМенуИтем; Муаллиф1: ТМенуИтем; Дастурҳақида1: ТМенуИтем; СпинЕдит1: ТСпинЕдит; Буттон1: ТБуттон; ГроупБох1: ТГроупБох; Лабел3: ТЛабел; Лабел1: ТЛабел; Лабел2: ТЛабел; Лабел4: ТЛабел; Буттон2: ТБуттон; Лабел5: ТЛабел; ГроупБох2: ТГроупБох; Лабел7: ТЛабел; Буттон3: ТБуттон; ХПМанифест1: ТХПМанифест; проcедуре Чиқиш1Cлиcк(Сендер: ТОбжеcт); проcедуре СпинЕдит1Чанге(Сендер: ТОбжеcт); проcедуре ФормCреате(Сендер: ТОбжеcт); проcедуре Буттон1Cлиcк(Сендер: ТОбжеcт); проcедуре Буттон2Cлиcк(Сендер: ТОбжеcт); проcедуре Буттон3Cлиcк(Сендер: ТОбжеcт); проcедуре Дастурҳақида1Cлиcк(Сендер: ТОбжеcт); привате { Привате деcларатионс } публиc { Публиc деcларатионс } енд; вар
имплементатион {$Р *.дфм} проcедуре ТФорм1.Чиқиш1Cлиcк(Сендер: ТОбжеcт); бегин Cлосе; енд; проcедуре ТФорм1.СпинЕдит1Чанге(Сендер: ТОбжеcт); вар и:интегер; бегин СтрингГрид1.CолCоунт:=СпинЕдит1.Валуе+1; фор и:=1 то СпинЕдит1.Валуе до СтрингГрид1.Cеллс[и,0]:=ъПъ+ИнтТоСтр(и); енд; проcедуре ТФорм1.ФормCреате(Сендер: ТОбжеcт); вар и:интегер; бегин СтрингГрид1.Cеллс[0,1]:=ъМ1ъ; СтрингГрид1.Cеллс[0,2]:=ъМ2ъ; фор и:=1 то СпинЕдит1.Валуе до СтрингГрид1.Cеллс[и,0]:=ъПъ+ИнтТоСтр(и); енд; про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:=ъъ; с2:=ъъ; с3:=ъъ; фор и:=1 то м до бегин к:=1; wҳиле ((к ин ст)) до бегин инc(к); иф к=м тҳен бреак; енд; н:=к; иф б тҳен мин:=а[1,к] елсе мин:=а[2,к]; фор ж:=1 то м до бегин иф б тҳен иф (а[1,ж]<мин)анд(нот (ж ин ст)) тҳен бегин мин:=а[1,ж]; н:=ж; енд; иф нот б тҳен иф (а[2,ж]<мин)анд(нот (ж ин ст)) тҳен бегин мин:=а[2,ж]; н:=ж; енд; енд;
иф б тҳен
елсе
сс[ф]:=инттостр(мин); инc(ф); с2:=с2+инттостр(мин)+ъ, ъ; с5:=с5+ъ ,ъ+инттостр(н)+ъПъ; енд; ст:=ст+[н]; б:=нот б; енд;
Лабел3.Cаптион:=с1;
енд;
проcедуре ТФорм1.Буттон2Cлиcк(Сендер: ТОбжеcт);
енд;
проcедуре ТФорм1.Буттон3Cлиcк(Сендер: ТОбжеcт);
проcедуре ТФорм1.Дастурҳақида1Cлиcк(Сендер: ТОбжеcт); бегин ШоwМессаге(ъДастур муаллифи: 4 - курс талабаси Раббимов Муродъ); енд; енд.
Download 0.68 Mb. Do'stlaringiz bilan baham: |
ma'muriyatiga murojaat qiling