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



бет33/62
Дата08.02.2022
өлшемі2,7 Mb.
#117933
1   ...   29   30   31   32   33   34   35   36   ...   62
Байланысты:
с

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];
}
//---------------------------------------------------------------------------




Достарыңызбен бөлісу:
1   ...   29   30   31   32   33   34   35   36   ...   62




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

    Басты бет