«Бағдарламалау тілдері» пәнінен оқу тәжірибесі бойынша

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

бет	23/44
Дата	03.10.2023
өлшемі	2,7 Mb.
	#183587

1 ... 19 20 21 22 23 24 25 26 ... 44

Байланысты:
«Бағдарламалау тілдері» пәнінен тәжірибелік жұмыстар жинағы

__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
// «КЕЙІН» батырмасының оқиға өңдеуші коды
void __fastcall TForm2::Button1Click(TObject *Sender)
{
Form1->Show();
Form3->Hide();
Form2->Hide();
}
// Студенттер тізімі жазылған ListBox1 компонентін шерту оқиғасының коды
void __fastcall TForm2::ListBox1Click(TObject *Sender)
{
if (Form2->ListBox1->ItemIndex==0) M
Memo1->Lines->LoadFromFile("Жаркынбек.txt");
(Form2->ListBox1->ItemIndex==1)
Memo1->Lines->LoadFromFile("Жумагазы.txt");
if (Form2->ListBox1->ItemIndex==2)
Memo1->Lines->LoadFromFile("Имангалиева.txt");
}

«Оқытушылар» терезесі (Form3) үшін жазылған программа мәтіні:

#include "Unit3.h"
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
void __fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
// Оқытушылар тізімі жазылған ComboBox1 компоненті оқиғасының коды
void __fastcall TForm3::ComboBox1Change(TObject *Sender)
{
if(ComboBox1->ItemIndex==0)
Memo1->Lines->LoadFromFile("Мухтаров.txt");
if(ComboBox1->ItemIndex==1)
Memo1->Lines->LoadFromFile("Асанова.txt");
}
//«КЕЙІН» батырмасының оқиға өңдеуші коды
void __fastcall TForm3::Button1Click(TObject *Sender)
{
Form1->Show();
Form3->Close();
Form2->Hide(); }

3-деңгей

А(5,5) матрицаның бағандары мен жолдарын алмастырғанда шығатын матрицаны көрсетіңіз. Программа терезесі 5-суретте көрсетілген.

5-сурет. Программа терезесі.

Программа терезесіндегі компоненттердің қасиеттерін өзгерту:

Программа мәтіні:
#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]=IntToStr(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];
}
//---------------------------------------------------------------------------

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

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

1 ... 19 20 21 22 23 24 25 26 ... 44