Тизимли таҳлил асослари

Масаланинг дасурий таъминоти

Ихтиёрий киритиш тугмаси:

про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[и];
енд;
Тозалаш тугмаси:
про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 - курс талабаси Раббимов Муродъ);

енд;
енд.

Натижа



Хулоса.
Аҳоли малакавий даражаси табиий ҳолда мамлакат иқтисодиёти ривожланишида, шунинг билан бирга демократик жамиятнинг шаклланишида, миллатнинг ижтимоий-маънавий камол топишида муҳим роль ўйнайди. Талабанинг билим савияси, фанни нечоғли ўзлаштирганлиги эса, унинг бажарган мустақил топшириқларида ўз ифодасини топади.

Хулоса қилиб айтадиган бўлсак, курс ишларидан асосий мақсад: таълим бўйича назарий ва амалий билимларни мустаҳкамлаш ва кенгайтириш, олинган билимларни муайян илмий, техникавий, ишлаб чиқариш, иқтисодий, ижтимоий, маданий вазифаларни ҳал этишда қўллашдан иборат.

Курс ишларининг талаба учун аҳамиятли томони шундаки: ижодий ишлаш, ишлаб чиқилаётган масаланинг қўйилиш жараёнидан бошлаб уни тўла ниҳоясига етказиш бўйича қарор қабул қилишда бўлган масъулиятни ҳис этишга ўргатиш, замонавий ишлаб чиқариш, иқтисодиёт, техника ва маданиятнинг ривожланиши шароитида талабаларни мустақил ишлашга тайёргарлигини таъминлашга имкон беради.

Курс ишини бажаришда талаба ўз имкониятидан келиб чиқиб, ўзи хоҳлаган тарзда дастурлар боғламини тузиши мумкин.

Адабиётлар:
1. И.Каримов Баркамол авлод - Узбекистон тараккиетининг пойдевори.-Т.: "Шарк", 1997,-63б.
2. Кафаров В.В. Методы кибернетики в химии и химической технологии. М. Химия,1985.
3. Благовещенская М.М. и другие "Автоматика и автоматизация пищевых производств", Москва, ВО Агропромиздат, 1991, 239 с.
4. Н.Юсуфбеков, Б.Мухамедов, Ш.Гуломов Технологик жараёнларни бошкариш системалари, Техника олий укув юртлари учун дарслик.-Т.: "Укитувчи", 1997,704б.