Тапсырма. Жеке тапсырма № 10

Тапсырма

Тө менде берілген тапсырма варианттары бойынша ө з вариантың ызды алың ыз. Тапсырма шартын, санын, атауын, бастапқ ы берілгендер типтерін нақ тылаң ыздар. Соғ ан сә йкес формағ а визуальды компоненттреді орналастырып, тапсырманы орындаң ыз.

Тапсырманың барлығ ында скаляр айнымалыларды TEdit компонентінің кө мегімен, ал тү сініктемелерді TLabel компонентінің кө мегімен енгізің із. массивтерді формада TStringGrid компоненті тү рінде енгізіп, оның 0-ші бағ аны мен 0-ші қ атарына массив индекстерін енгізің іздер. Есептеулерді MainMenu компонентінің сә йкес батырмаларын таң дау арқ ылы орындаң ыз.

Жеке тапсырма № 10

Берілген n -ші ретті квадрат матрицаның қ осымша диагональғ а қ атысты симметриялық екендігін анық тау керек.

Builder C++ ортасында сандық шешімін орындалуытө мендегі суретте анық талғ ан.

Программа мә тіні:

#include < vcl. h>

#pragma hdrstop

#include < cmath. h>

#include " Unit1. h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource " *. dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1:: TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

const Nmax=10, Mmax=10, r=10;

typedef double mas2[Nmax][Mmax];

int N, M, i, j, z, k;

void __fastcall TForm1:: FormClick(TObject *Sender)

{

Memo1-> Clear(); }

void __fastcall TForm1:: Button1Click(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:: Button3Click(TObject *Sender)

{

mas2 a;

for(i=0; i< 5; i++)

for(j=0; j< 5; j++) {

StringGrid1-> Cells[i][j]=IntToStr(rand()%100-27);

if (a[i][j] == a[i][i])

Memo1-> Lines-> Add(" Ì à ò ð è ö à ñ è ì ì å ò ð è ÷ í à " );

else Memo1-> Lines-> Add(" Ì à ò ð è ö à í å ñ è ì ì å ò ð è ÷ í à " );

} }

//---------------------------------------------------------------------------

void __fastcall TForm1:: Button2Click(TObject *Sender)

{

for(int i=0; i< 5; i++)

StringGrid1-> Cols[i]-> Clear();

Memo1-> Clear();

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: Button4Click(TObject *Sender)

{

Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: N2Click(TObject *Sender)

{

Close();

}

//---------------------------------------------------------------------------

Пaйдaлaнылғ aнә дебиеттертізімі:

1. Ж. К. Нұ рбекова, Қ. М. Байғ ушева, А. З. Даутова. Қ азіргібағ дарламалаутілдері.

2. Симонович С. В. Информатика. Базовый курс. Учебник для вузов. –СПб: Издательство «Питер», 1999. -640 с

3. Объектно ориентированное программирование на С++/ Пер. с англ. Д. Ковальчука. – 2-е изд. -М.; СПб.: Бином-Невский диалект, 200

⇐ Предыдущая 12