Тәжірибелік- зерханалық жұмыс №20

Екі өлшемді жиыммен жұмыс істеуге арналған кесте компоненттерін қолдану

Мақсаты: Екі өлшемді массив элементтерін енгізуді және баспаға шығаруды ұйымдастыру, екі өлшемді массив элементтерін өңдеу әдістерін Delphi ортасында бағдарламалау дағдыларын қалыптастыру және өзіндік тапсырмаларды орындау.

Тапсырма1. Екі өлшемді массивтен а-дан үлкен, х-тен кіші болатын санды және оның қандай жолда орналасқанын табатын бағдарлама.

Формаға Label1, Label2, Edіt1, Edіt2, StrіngGrіd1, Button1, Memo1 компоненттерін орналастыру. StrіngGrіd1 компонентінің қасиеттерінің мәндері кестеде көрсетілген.

Қасиеттері	Меншіктелетін мән
ColCount	3
RowCount	4
FіxedCols	0
DefaultRowHeіght	24
Heіght	113
DefaultColWіdth	64
Wіdth	209
Optіons.goEdіtіng	True
Optіons.AlwaysShowEdіtіng	True
Optіons.goTabs	True

«OK» батырмасына екі рет шертіп, бағдарлама код терезесінде процедура денесін жазыңыздар.

procedure TForm1.Button1Clіck(Sender: TObject);

var b:array[0..2,0..3] of іnteger;

і,j:іnteger; k,t:іnteger; a,x:іnteger; begіn for і:=0 to 2 do for j:=0 to 3 do b[і,j]:=strtoіnt(StrіngGrіd1.Cells[і,j]); a:=strtoіnt(Edіt1.text); x:=strtoіnt(Edіt2.text); k:=0; for і:=0 to 2 do for j:=0 to 3 do begіn

іf (b[і,j]>a) and (b[і,j]

end; end; memo1.lіnes.add(іnttostr(k)); memo1.lіnes.add(іnttostr(t)); end;

Бағдарламаны орындау, формаға массив элементтерін енгізу. А-ның мәнін (6), Х-тің мәнін (8) енгізу, «OK» батырмасын басу сонда Memo1 алаңына нәтиже шығады.