Алматы экономика және статистика академиясы

87 
 
 
 
Модульдің қалыптасуының толық текстін көрсетеміз. 
unit LBox; 
 
interface 
 
uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, StdCtrls; 
 
type 
TForm1 = class(TForm) 
ListBox1: TListBox; 
ListBox2: TListBox; 
Button1: TButton; 
Button2: TButton; 
procedure Button1Click(Sender: TObject); 
procedure FormCreate(Sender: Tobject); 
procedure Button2Click(Sender: TObject); 
procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); 
procedure Edit1Change(Sender: TObject); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 
 
var 
Form1: TForm1; 
a:array[1..10] of integer; 
i,min,max,imax,imin:integer; 
 
implementation 
 
{$R *.DFM} 

88 
 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
ListBox1.Items.Add(Edit1 .Text); 
i:=i+1; 
a[i]:=StrToInt(Edit1.Text); 
Edit1.SetFocus 
end; 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
i:=0; 
ListBox1.Clear 
ListBox2.Clear; 
end; 
 
procedure TForm1.Button2Click(Sender: TObject); 
var k:integer; 
begin 
max:=a[1]; 
imax:=1; 
min:=a[1]; 
imin:=1; 
for k:=2 to 10 do 
begin 
if maxbegin 
max:=a[k]; 
imax:=k 
end; 
if min>a[k] then 
begin 
min:=a[k]; 
imin:=k 
end; 
end; 
a[imax]:=min; 
a[imin]:=max; 
for k:=1 to 10 do 
ListBox2.Items.Add(IntToStr(a[k])); 
end; 
 
procedure TForm1.Edit1KeyDown(Sender: Tobject:var Key: Word; 
Shift:TShiftstate); 
begin 
If key = 13 then Button1.SetFocus 
end; 
 
procedure TForm1.Edit1Change(Sender: TObject); 
begin 
if key = 13 then Button1.SetFocus 
end; 

89 
 
 
end. 
 
Тәжірибелік жұмыс №9 
Бір өлшемді массивтерді өңдеу программалары. ComboBox компоненті. 
Тапсырма 
А(10)  массивінде  максимумды  және  минимумді  элементтерін,  олардың  орын 
ауыстыруын табу. 
ComboBox компонентін ListBox компоненті арқылы тапсырманы орындау. 
Шешімі 
1. 
Standard бетінен  Form1  формаға келесі компонентерді орналастырамыз. Олар:  
Button 1, Button 2, Combo Box1 
және  Combo Box2 
2. 
DropDownCount қасиетіне  Combo Box1 және  Combo Box2 үшін тең етіп  10 
қоямыз. 
 
 
 
Төменде программа коды көрсетілген: 
unit CBox; 
 
interface 
 
uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, StdCtrls; 
 
type 

90 
 
TForm1 = class(TForm) 
Button1: TButton; 
Button2: TButton; 
ComboBox1: TComboBox; 
ComboBox2: TComboBox; 
procedure Button1Click(Sender: TObject); 
procedure FormCreate(Sender: TObject); 
procedure Button2Click(Sender: TObject); 
procedure ComboBox1KeyDown(Sender: TObject;var Key: Word; 
Shift: TShiftState); 
private 
{ Private declarations } 
public 
{ Public declarations } 
end; 
 
var 
Form1: TForm1; 
a:array[1..10]of integer; 
i, min,max,imax,imin:integer; 
 
implementation 
 
{$R *.DFM} 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
ComboBox1.Items.Add(ComboBox1.Text); 
i:=i+1; 
a[i]:=StrToInt(ComboBox1.Text); 
ComboBox1.SetFocus; 
end; 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
i:=0; 
ComboBox1.Clear; 
ComboBox2.Clear; 
ComboBox1.TabOrder := 0; 
end; 
 
procedure TForm1.Button2Click(Sender: TObject); 
var k:integer; 
begin 
max := a[1]; 
imax := 1; 
min := a[1]; 
imin := 1; 
for k := 2 to 10 do 
begin 
if max< a[k] then 
begin 
max:= a[k]; 

91 
 
imax:= k 
end; 
if min> a[k] then 
begin 
min:= a[k]; 
imin:= k 
end; 
end; 
a[imax]:= min; 
a[imin]:= max; 
for k:= 1 to 10 do 
ComboBox2.Items.Add(IntToStr(a[k])); 
ComboBox2.DroppedDown:= true; 
end; 
procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word; Shift: 
TShiftState); 
begin 
if key = 13 then Button1.SetFocus 
end; 
end. 
 
Тәжірибелік жұмыс №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 
Форма программы. 
 
5.Активизируем двойным щелчком на каждой кнопке и допищим  следующие строки 
для каждой из них.