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

A(N, N) сандық массивінің элементтерін StringGrid1 кестесінен оқимыз.

A(N, N) массивінің әр жолы өсу ретімен реттелген элементтерін StringGrid2 компонентіне шығарамыз.

Формаға StringGrid1, StringGrid2, Button1 компоненттерін қоямыз. Есеп әдісін Button1 компонентінің OnClick оқиғасында ұйымдастырамыз.

procedure TForm1.Button1Click(Sender: TObject);

var a:array[1..3,1..3] of integer;

i,j,k,m:integer;

begin

a[i,j]:=strtoint(StringGrid1.Cells[j,i]); for i:=1 to 3 do begin for j:=1 to 2 do for k:=j+1 to 3 do if a[i,j]>a[i,k] then begin

m:=a[i,j];a[i,j]:=a[i,k]; a[i,k]:=m;end; end; for i:=1 to 3 do for j:=1 to 3 do

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