Сурет 24.8

Сурет 24.7

 

2. Программаны жасау жобасы:

1. Жаңадан жоба ашу. Форма қосымшасына Ввод и обработка массива деп ат беру.

2. Формаға 2 –ші суреттегідей компоненттерді орналастыру.

 

Сурет 24.8

 

3. Жобаны мысалы, Pr6.pas немесе Project6.dpr. деген атпен жеке бумада сақтайды.

4. Программаны шақыру, жоба терезесін Alt+F4 қос пернелер арқылы жабады..

5. Келесі әрекеттер орындалады:

Белгіленген компонента	Объектілі инспектор терезесі	Қасиеттер аты	Әрекет
Label1	Properties	Caption	Введите массив целых чисел
Label2	Properties	Caption	Атын өшіріңіз
StringGrid1	Properties	ColCount
FixedCols
RowCount
DefaultRowHeight
Height
DefaultColWidth
Width
Options.goEditing	True
Options.Always ShowEditor	True
Options.goTabs	True
BitBtn1	Properties	Kind	bkOK
Caption	Вычислить
Events	OnClick	for i:=1 to 5 do if length(StringGrid1.Cells[i-1,0])<>0 then a[i]:=StrToInt(StringGrid1.Cells[i-1,0]) else a[i]:=0; summ:=0; for i:=1 to 5 do summ:=summ+a[i]; sr:=summ/5; Label2.Caption:='Сумма элементов:'+IntToStr(summ)+#13+'Среднее арифметическое:'+FloatToStr(sr);

Вычислить (BitBtn1) кнопкасы үшін Процедура аты мен begin сөзінің арасына айнымалылар жазылады:

var

a:array[1..5] of integer;

summ:integer;

sr:real;

i:integer;

 

6. Жоба сақталып, тексеруге жіберіледі.

 

3. Қосымша тапсырма

1. Выход (BitBtn2) кнопкасын қою.

2. Label2, StringGrid1 компонеттерінде алдыңғы диалогты есептеуді қайталау мүмкіндігін жасау.

Көмек:.Ол үшін формаға тағы бір BitBtn3 кнопкасын орнату керек. Kind қасиетімен bkRetry мәнін орнату, Caption -тақырыбында &Повторить деп жазу Повторить.кнопкасын басу арқылы бос жолдарға көрсетілген компоненттердің программасын енгізу керек..

for i:=1 to 5 do StringGrid1.Cells[i-1,0]:='';

Label2.Caption:='';

Повторить (BitBtn3)кнопкасы үшін жазылған процедура аты мен begin сөзінің арасына i: айнымалы жазылады.

var

i:integer;