8.5. Порядок выполнения задания

Задание: написать программу, которая определяет, является ли заданная матрица N-го порядка магическим квадратом. Магический квадрат – это матрица, в которой сумма элементов во всех столбцах и во всех строках одинакова. Элементы матрицы необходимо разместить в памяти динамически.

Панель диалога приведена на рис. 8.1.

Рис. 8.1

Текст программы:

#include <vcl.h> #pragma hdrstop

#include "lr7.h"

#pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1;

int **pA; int N,M;

PDF created with pdfFactory Pro trial version www.pdffactory.com

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

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)

{

}

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

void __fastcall TForm1::FormCreate(TObject *Sender)

{

N=3; M=3; Edit1->Text="3"; Edit2->Text="3";

StringGrid1->RowCount=N+1;

StringGrid1->ColCount=M+1; for (int i=1; <=N; i++){

StringGrid1->Cells[i][0]="j="+IntToStr(i);

StringGrid1->Cells[0][i]="i="+IntToStr(i);

}

Label4->Caption="";

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

N=StrToInt(Edit1->Text);

M=StrToInt(Edit2->Text); StringGrid1->RowCount=N+1; StringGrid1->ColCount=M+1;

for (int i=1;i<=N;i++) StringGrid1->Cells[0][i]="i="+IntToStr(i); for (int i=1;i<=M;i++) StringGrid1->Cells[i][0]="j="+IntToStr(i);

}

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

void __fastcall TForm1::Button2Click(TObject *Sender)

{

int i,j,s1=0, sn;

pA = new int*[N]; for (i=0; i<N; i++)

pA[i] = new int[M];

for (i=0;i<N;i++) for (j=0;j<M;j++)

pA[i][j]=StrToInt(StringGrid1->Cells[j+1][i+1]); bool met=True;

for (i=0;i<N;i++) s1+=pA[i][1];

for (i=0;i<N && met;i++) {

PDF created with pdfFactory Pro trial version www.pdffactory.com

sn=0;

for (j=0; j<M; j++) sn+=pA[i][j]; if (s1!=sn) met=False;

}

for (j=0; j<M && met; j++) { sn=0;

for (i=0; i<N; i++) sn+=pA[i][j];

if (s1!=sn) met=False;

}

if (met) Label4->Caption="Магический квадрат"; else Label4->Caption="Немагический квадрат"; for (i=0;i<N;i++)

delete[] pA[i]; delete [] pA;

}

8.6. Индивидуальные задания

По указанию преподавателя выберите вариант задания из темы 4. Для размещения массива использовать динамическое выделение памяти.

PDF created with pdfFactory Pro trial version www.pdffactory.com