Программалау технологиясы

Label1
 
Caption 
 
'Бастапкы кесте'
 
Label2 
Caption
 
'Сонгы кесте'
 
StringGrid1 
StringGrid2 
Немесе 
StringGrid1-ді 
кӛшіріп алып 
қайтадан 
қоюға 
да 
болады 
ColCount 
5 (бағандарының саны) 
RowCount 
5 (жолдың саны) 
FixedCols 
0 (бекітілген немесе қозғалмайтын баған 
саны) 
FixedRows 
0 (бекітілген немесе қозғалмайтын жолдар 
саны) 
DefaultRowHeight 
20 (жолдың биіктігі) 
DefaultColWidth 
50 (бағанның ені) 
Height 
113 ( кесте сыртындағы тіктӛртбұрышты 
облыстың биіктігі)
Width 
265 ( кесте сыртындағы тіктӛртбұрышты 
облыстың ені)
Options->goEditing 
True (ұяшыққа мәлімет енгізуге болады) 
Options-> 
AlwaysShowEditing 
True (енгізу фокусы орналасқан ұяшықты 
редакциялуға болады) 
Options->goTabs 
True (Tab пернесін басып ауысуға болады 
(Shift+Тab)) 
PopupMenu 
PopupMenu1 
MainMenu1 
N1: 
Caption = 'ТЕРЕЗЕ' 
N3:
Caption = 'Жабу' 
OnClick = N3Click 
N2: 
Caption = 'КЕСТЕ' 
N4: 
Caption = 'Толтыру' 
OnClick = N4Click 
N5: 

Caption = 'Тазалау' 
OnClick = N5Click 
PopupMenu1 
N6:
Caption = 'толтыру' 
OnClick = N6Click 
N7: 
Caption = 'тазалау' 
OnClick = N7Click 
Button1 
Caption = 'Алмастыруды орындау' 
OnClick = Button1Click 
Программа мәтіні: 
#include  
#pragma hdrstop 
#include "Unit1.h" 
#include "stdlib.h" 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TForm1 *Form1; 
//--------------------------------------------------------------------------- 
__fastcall
 TForm1::TForm1(TComponent* Owner) 
: TForm(Owner) 
{ 

} 
//--------------------------------------------------------------------------- 
void __fastcall 
TForm1::N3Click(TObject *Sender) 
{ 
Form1->Close(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall 
TForm1::N4Click(TObject *Sender) 
{ 
for
(
int
 i=0;i<5;i++) 
for
(
int
 j=0;j<5;j++) 
StringGrid1->Cells[i][j]=
Int
ToStr(i+j-2); 
} 
//--------------------------------------------------------------------------- 
void __fastcall 
TForm1::N5Click(TObject *Sender) 
{ 
for
(
int
 i=0;i<5;i++) 
StringGrid1->Rows[i]->Clear(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall 
TForm1::N6Click(TObject *Sender) 
{ 

for
(
int
 i=0;i<5;i++) 
for
(
int
 j=0;j<5;j++) 
StringGrid1->Cells[i][j]=IntToStr(rand()%100-27); 
} 
//--------------------------------------------------------------------------- 
void __fastcall 
TForm1::N7Click(TObject *Sender) 
{ 
for
(
int
 i=0;i<5;i++) 
StringGrid1->Cols[i]->Clear(); 
} 
//--------------------------------------------------------------------------- 
void __fastcall 
TForm1::Button1Click(TObject *Sender) 
{ 
for
(
int
 i=0;i<5;i++) 
for
(
int
 j=0;j<5;j++) 
StringGrid2->Cells[j][i]=StringGrid1->Cells[i][j]; 
} 
//--------------------------------------------------------------------------- 
Ӛзіндік жұмыс тапсымалары 
 
Тапсырманы орындауға нұсқау! 

Тапсырманы орындау барысында құрылатын қосымшада массив элементтерін енгізу 
екі түрлі жолмен жасалуы керек : 

«ЕНГІЗУ» командасы арқылы қолданушы ӛзі енгізеді;

«ТОЛТЫРУ» командасы арқылы автоматты түрде толтырылады; 


Массив элементтерімен жасалатын операциялар мәзір командаларының кӛмегімен 
орындалуы қажет; 

Массив түрлендірілген жағдайда бастапқы массив пен алынған жаңа массив екі түрлі 
кестеде кӛрсетілуі қажет; 

Қосымша құруда осыған дейін қарастырылған мәтінмен жұмыс жасау компоненттері, 
тізімдер, ауыстырғыштар, мәзірлер, командалық батырмалар, диалогтық терезелер 
және олардың қасиеттері мен әдістері пайдаланылуы қажет. 
1-тапсырма 
 

жүктеу/скачать 2,48 Mb.

Достарыңызбен бөлісу: