16-multidisciplinary online distance conference on "scientific and practical research in uzbekistan" part-14

Мисол 1
..Бутун.қийматли.A(4,4).массив.элементлари.йиғиндиси.ва.ўрта.арифметик.
қиймати.топилсин..
е ч и ш.
...1.Янги.илова.яратамиз....2.Формага.Additional.компоненталар.палитра
-
сидан.
StrinGrid
. компонентасини,. Standart. компоненталар. палитрасидан. Memo. ком
-
понентасини.ва.Botton.тугмаларини.ўрнатамиз...3.StrinGrid.компонентасининг.хосса
-
ларини.ўрнатамиз.
FixedCols..-0,.
.FixedRows.-0,...ColCount..-4,...RowCount.-4.
Демак,.ҳосил.қилинадиган.жадвал.4.та.устун.ва.4.та.сатрга.эга.
Option. хоссасига. кирамиз. ва. уни. икки. марта. тез-тез. чиқиллатамиз.. У. ердан. 3.
та.
Options.goEditing, Options.AlwaysShowEditing, Options.goTabs
. . буйруқларин.
“Options”.параметрининг.“+”..ишорасини..“.-”.ишорага.ўтказамиз.
4.. Botton1. тугмасини. яъни. ”Ечиш”. тугмасини. активлаштирамиз,. яъни. уни. икки.

---

321
10
марта. тез-тез. босиб. дастур. кодларини. ёзиш. ойнасига. ўтамиз. ва. қуйидаги. кодларни.
киритамиз.
Var.i,j,cod:integer;.A:array[1..4,1..4].of.Real;.S:real;.s1:String;.begin..
For.i:=1.to.4.do.....For.j:=1.to.4.do..Val(StringGrid1.cells[i-1,j-1],a[i,j],cod);.S:=0;..For.
i:=1.to.4.do.....For.j:=1.to.4.do..s:=s+a[i,j];.Str(s:7:2,s1);....Memo1.Clear;.Memo1.Lines.
add(‘Summa.=’+s1);..s:=s/4/4;..Str(s:7:2,s1);....Memo1.Lines.add(‘Ortacha=’+s1);.end;
4..Тузилган.лойиҳа.(проект).яъни.Project1.ва.Unit1.стандарт.модул.номларини.мос.
номлар.билан.сақлаймиз.ва.иловани.F9.тугмачасини.босиш.билан.ишга.тушурилади....
..Илова.ишга.туширилганда.унинг.қуйидаги.кўриниши.экранда.намоён.бўлади.
Мулоқот ойналарини яратиш.
.Windows.операцион.тизими.бир.қанча.стандарт.
мулоқот.ойналарига.эга..Delphi.системаси.ҳам.бу.мулоқот.ойналарини.қўллайди..
Маълумот ойнасини чиқариш. 
Экранга.маълумот.ойнасини.чиқариш.учун.
ShowMessage.процедурасидан.ёки.MessageDlg.функциясидан.фойдаланиш.лозимдир.
ShowMessage.процедураси.экранга.матнли.ҳамда.ОК.буйруқ.тугмасига.эга.бўлган.
маълумот.ойнасини.чиқаради.
ShowMessage. процедурасини. чақириш. инструкцияси. қуйидаги. кўринишга. эга:...
ShowMessage(‘Маълумот’);
Маълумот.ойнасининг.сарлавхасида.Project.Options.ойнасининг.Application.бўлимида.
кўрсатилган. илова. номи. акс. этади.. Агар. илова. номи. берилмаган. бўлса. сарлавҳада.
бажарилаётган.файл.номи.акс.этади.
MessageDlg.функцияси.универсал.характерга.эгадир..Бу.функция.маълумотли.ойнага.
стандарт.белгилардан.бирини,.масалан.