Дістемелік кешені



бет40/43
Дата07.01.2022
өлшемі1,39 Mb.
#17102
түріПрограмма
1   ...   35   36   37   38   39   40   41   42   43
Байланысты:
UMKD Obektige ba 1171 yttal 1171 an programmalau 2014 KAZ (1)

Лабораториялық жұмыс №10

Екі өлшемді массивтерді өңдеу программалары. StringGrid компоненті.
Задание :В целочисленной матрице А(4,4) поменять местами первую и последнюю строку.

Решение:


1.Создать новую папку в папке Мои документы.

2.Для создания нового проекта file/new/application.

3.Из страницы Standart палитры компонентов поместим на форму Form1 следующие компоненты: Button1, Button2, Button3. StringGrid1, StringGrid2.
.4. На форме Form1в Caption введем «Решение массива».К кнопкам Button1, Button2, Button3 в свойстве Caption присвоем соответственно «Решение1», «Решение2» «Очистить».
В инспекторе обьекта для общих таблиц выберем свойства Options. Войдем в него двойным щелчком. Значение флага doEditing=true

Для StringGrid1, StringGrid2 FixedCols=0

FixedRows=0

ColCount=4

RowCount=4

Форма программы.



61

5.Активизируем двойным щелчком на каждой кнопке и допищим следующие строки для каждой из них.

Button1:

procedure TForm1.Button1Click(Sender: TObject); var i:integer;

begin

for i:=0 to 3 do begin



StringGrid2.Cells[i,0]:=StringGrid1.Cells[i,3];

StringGrid2.Cells[i,3]:=StringGrid1.Cells[i,0];

StringGrid2.Cells[i,1]:=StringGrid1.Cells[i,1];

StringGrid2.Cells[i,2]:=StringGrid1.Cells[i,2]; end

end;

Button2:


procedure TForm1.Button2Click(Sender: TObject); begin StringGrid2.Rows[0]:=StringGrid1.Rows[3]; StringGrid2.Rows[1]:=StringGrid1.Rows[1]; StringGrid2.Rows[2]:=StringGrid1.Rows[2]; StringGrid2.Rows[3]:=StringGrid1.Rows[0];
end;

Button3


procedure TForm1.Button3Click(Sender: TObject); var i,j:integer;

begin


for i:=0 to 3 do for j:=0 to 3do

StringGrid2.Cells[j,i]:=' ' end;

6.Опищем массив unit Gulk; interface
uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids;

type
62

TForm1 = class(TForm) StringGrid1: TStringGrid; StringGrid2: TStringGrid; Button1: TButton; Button2: TButton; Button3: TButton;

procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end;

var


Form1: TForm1; implementation {$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); var i:integer;

begin


for i:=0 to 3 do begin

StringGrid2.Cells[i,0]:=StringGrid1.Cells[i,3];

StringGrid2.Cells[i,3]:=StringGrid1.Cells[i,0];

StringGrid2.Cells[i,1]:=StringGrid1.Cells[i,1];

StringGrid2.Cells[i,2]:=StringGrid1.Cells[i,2]; end

end;


procedure TForm1.Button2Click(Sender: TObject); begin StringGrid2.Rows[0]:=StringGrid1.Rows[3]; StringGrid2.Rows[1]:=StringGrid1.Rows[1]; StringGrid2.Rows[2]:=StringGrid1.Rows[2]; StringGrid2.Rows[3]:=StringGrid1.Rows[0];
end;

procedure TForm1.Button3Click(Sender: TObject); var i,j:integer;

begin

for i:=0 to 3 do for j:=0 to 3do

StringGrid2.Cells[j,i]:=' ' end;

end.


7. Сохраняем праграмму и запускаем командой Run.

63





Достарыңызбен бөлісу:
1   ...   35   36   37   38   39   40   41   42   43




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет