Курсовая работа: Програма візуальної демонстрації пошуку елементів у масиві

End;

For R:=1 To KR. Value do

Begin

SG. Cells [0, R]:='A ['+IntToStr(R)+', 1]';

End;

End;

2. Процедура TSerPF. FillData заповнює масив елементами – цифрами, які розташовуються безладно у відповідних комірках.

Procedure TSerPF. FillData;

Var C, R: Integer;

begin

Randomize;

For C:=1 To KC. Value do

Begin

For R:=1 To KR. Value do

Begin

SG. Cells [C, R]:=IntToStr (Random(1000) – 500);

End;

End;

End;

3. Процедура TSerPF. FillData2 заповнює масив елемент буквами великими літерами російського алфавіту, які розташовані у відповідних комірках масиву

Procedure TSerPF. FillData2;

Var C, R: Integer; S: String;

begin

S:='АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';

Randomize;

For C:=1 To KC. Value do

Begin

For R:=1 To KR. Value do

Begin