Двумерный массив

Объект

Свойство

Значение

Form8

Caption

‘Двумерный массив’

Bordericons

[]

Font.size

14

Font.name

times new roman

Image1

Stretch

true

Picture

\...\002.ipg

Label1

Caption

‘Дан массив целых чисел. определить сумму элементов массива больших 30.’

Label2

Caption

‘’

Button1

Caption

‘Ввести размерность’

Enabled

false

Button2

Caption

‘Заполнить и вывести элементы массива’

WordWrap

true

Enabled

false

Button4

Caption

‘Обработать элементы массива’

Enabled

False

WordWrap

True

Button5

Caption

‘Главное меню’

StringGrid1

Name

St1

FixedRows

0

FixedCols

0

RowCount

3

ColCount

3

Объект

Событийно – управляемая процедура

var

Form8: TForm8;

a:array of array of integer;

i, j, n, m:byte;

s:integer;

Button1

procedure TForm8.Button1Click(Sender: TObject);

begin

n:=strtoint(Inputbox('Ввод','Введите количество строк','3'));

m:=strtoint(Inputbox('Ввод','Введите количество столбцов','3'));

st1.ColCount:=m;

st1.RowCount:=n;

button2.Enabled:=true;

button1.Enabled:=false;

setlength(a,n,m);

end;

Button2

procedure TForm8.Button2Click(Sender: TObject);

begin

st1.Visible:=true;

for i:=0 to n-1 do

for j:=0 to m-1 do

begin

a[i,j]:=StrToInt(Inputbox('Ввод','Введите очередной элемент','6'));

st1.Cells[j,i]:=inttostr(a[i,j]);

end;

button2.Enabled:=false;

button4.Enabled:=true;

end;

Button4

procedure TForm8.Button4Click(Sender: TObject);

begin

Button2.Enabled:=false;

s:=0;

for i:=0 to n-1 do

for j:=0 to m-1 do

if a[i,j]>30 then s:=s+ a[i,j];

label2.Visible:=true;

label2.Caption:='Сумма элементов массива, больших 30 равна ' + IntToStr(s);

end;

Button5

procedure TForm8.Button5Click(Sender: TObject);

begin

form8.Hide;

form2.show;

end;