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


Download 0.68 Mb.
bet10/11
Sana09.06.2023
Hajmi0.68 Mb.
#1475850
1   2   3   4   5   6   7   8   9   10   11
Bog'liq
BTTL laboratoriya 4 ta (1)

Тозалаш тугмаси:

про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е


усес
Wиндоwс, Мессагес, СйсУтилс, Варианц, Cлассес, Грапҳиcс, Cонтролс, Формс,


Диалогс, Гридс, ЕхтCтрлс, Менус, СтдCтрлс, Спин, ХПМан;

тйпе
ТФорм1 = 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ларатионс }
енд;

вар
Форм1: ТФорм1;


имплементатион


{$Р *.дфм}


про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.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[и];

енд;

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

енд;

проcедуре ТФорм1.Буттон3Cлиcк(Сендер: ТОбжеcт);
вар и,ж:интегер;
бегин
Лабел3.Cаптион:=ъъ;
Лабел4.Cаптион:=ъъ;
Лабел7.Cаптион:=ъъ;
фор и:=1 то СтрингГрид1.CолCоунт-1 до
фор ж:=1 то СтрингГрид1.РоwCоунт-1 до
СтрингГрид1.Cеллс[и,ж]:=ъъ;
енд;

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


бегин
ШоwМессаге(ъДастур муаллифи: 4 - курс талабаси Раббимов Муродъ);
енд;

енд.


Download 0.68 Mb.

Do'stlaringiz bilan baham:
1   2   3   4   5   6   7   8   9   10   11




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling