Разработка программы для выполнения обработки двухмерных массивов

}

}

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

void __fastcall TForm1:: N7Click (TObject *Sender)

{

if (Form1->OpenDialog1->Execute ())

{

Form2->Memo1->Lines->Clear ();

for (i=1; i<n+1; i++)

for (j=1; j<m+1; j++)

{

Form1->StringGrid1->Cells [j] [i] ="";

}

for (i=1; i<k+1; i++)

for (j=1; j<l+1; j++)

{

Form1->StringGrid2->Cells [j] [i] ="";

}

Form1->Label12->Caption="";

Form1->Label13->Caption="";

Form1->Label14->Caption="";

Form1->Label15->Caption="";

Form1->Label12->Visible=false;

Form1->Label13->Visible=false;

Form1->Label14->Visible=false;

Form1->Label15->Visible=false;

TStringList*File=new TStringList;

File->LoadFromFile (Form1->OpenDialog1->FileName);

str=File [0] [0];

st=File [0] [1];

n=StrToInt (str);

m=StrToInt (st);

a= (n*m) +2;

h=1;

Form1->StringGrid1->ColCount=n;

Form1->StringGrid1->RowCount=m;

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

for (j=0; j<m; j++)

{ h++;

Form1->StringGrid1->Cells [j+1] [i+1] =File [0] [h];

}

Form1->StringGrid1->Visible=true;

gh=File [0] [a];

lk=File [0] [a+1];

k=StrToInt (gh);

l=StrToInt (lk);

Form1->StringGrid1->ColCount=m+1;

Form1->StringGrid1->RowCount=n+1;

Form1->StringGrid1->FixedCols=1;

Form1->StringGrid1->FixedRows=1;

Form1->StringGrid2->ColCount=l+1;

Form1->StringGrid2->RowCount=k+1;

Form1->StringGrid2->FixedCols=1;

Form1->StringGrid2->FixedRows=1;

Form1->StringGrid1->Cells [0] [0] ="i / j";

Form1->StringGrid2->Cells [0] [0] ="i / j";

for (i=1; i<n+1; i++)

{

Form1->StringGrid1->Cells [0] [i] =StrToInt (i);

}

for (j=1; j<m+1; j++)

{

Form1->StringGrid1->Cells [j] [0] =StrToInt (j);

}

for (i=1; i<k+1; i++)

{

Form1->StringGrid2->Cells [0] [i] =StrToInt (i);

}

for (j=1; j<l+1; j++)

{

Form1->StringGrid2->Cells [j] [0] =StrToInt (j);

}

Form1->StringGrid2->Visible=true;

a=a+1;

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

for (j=0; j<l; j++)

{ a++;

Form1->StringGrid2->Cells [j+1] [i+1] =File [0] [a];

}

Form1->StringGrid2->Visible=true;

Form1->Label9->Visible=false;

Form1->Label10->Visible=true;

Form1->Label11->Visible=true;

Form1->BitBtn3->Visible=true;

Form1->BitBtn4->Visible=true;

Form1->BitBtn5->Visible=true;

Form1->BitBtn6->Visible=true;

Form1->N7->Enabled=false;

Form1->N8->Enabled=true;

Form1->N2->Enabled=true;

Form1->Label10->Caption=" = "+IntToStr (n) +" x "+IntToStr (m);

Form1->Label11->Caption="B = "+IntToStr (k) +" x "+IntToStr (l);

}

else

{

return;

}

}

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

void __fastcall TForm1:: N4Click (TObject *Sender)

{

ShellExecute (Handle,"Open","sprawka. chm",NULL,NULL,SW_RESTORE);

}

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

void __fastcall TForm1:: Button1Click (TObject *Sender)

{

bool her=false;

bool het=false;

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

for (j=0; j<m; j++)

{

if (Form1->StringGrid1->Cells [j+1] [i+1] =="")

her=true;

}

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

for (j=0; j<l; j++)

{

if (Form1->StringGrid2->Cells [j+1] [i+1] =="")

het=true;

}

if ( (her==false) && (het==false))

{

A= (int**) calloc (n,sizeof (int*));

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

A [i] = (int*) calloc (m,sizeof (int));

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

for (j=0; j<m; j++)

{

A [i] [j] =StrToInt (Form1->StringGrid1->Cells [j+1] [i+1]);

}

Form3->Caption=""+IntToStr (m) +" x "+IntToStr (n);

Form3->StringGrid1->RowCount=m+1;

Form3->StringGrid1->ColCount=n+1;

Form3->StringGrid1->Cells [0] [0] ="i / j";

Form3->StringGrid1->FixedRows=1;

Form3->StringGrid1->FixedCols=1;

for (i=1; i<m+1; i++)

{

Form3->StringGrid1->Cells [0] [i] =StrToInt (i);

}

for (j=1; j<n+1; j++)

{

Form3->StringGrid1->Cells [j] [0] =StrToInt (j);

}

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

for (j=0; j<m; j++)

{

Form3->StringGrid1->Cells [i+1] [j+1] =IntToStr (A [i] [j]);

}

Form3->Show ();

B= (int**) calloc (k,sizeof (int*));

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

B [i] = (int*) calloc (l,sizeof (int));

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

for (j=0; j<l; j++)

{

B [i] [j] =StrToInt (Form1->StringGrid2->Cells [j+1] [i+1]);

}

Form4->Caption=""+IntToStr (l) +" x "+IntToStr (k);

Form4->StringGrid1->RowCount=l+1;

Form4->StringGrid1->ColCount=k+1;

Form4->StringGrid1->Cells [0] [0] ="i / j";

Form4->StringGrid1->FixedRows=1;

Form4->StringGrid1->FixedCols=1;

for (i=1; i<l+1; i++)

{

Form4->StringGrid1->Cells [0] [i] =StrToInt (i);

}

for (j=1; j<k+1; j++)

{

Form4->StringGrid1->Cells [j] [0] =StrToInt (j);

}

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

for (j=0; j<l; j++)

{

Form4->StringGrid1->Cells [i+1] [j+1] =IntToStr (B [i] [j]);

}

Form4->Show ();

}

else

{

ShowMessage ("!!!");

}

}

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

void __fastcall TForm1:: n3Click (TObject *Sender)

{

bool her=false;

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

for (j=0; j<m; j++)

{

if (Form1->StringGrid1->Cells [j+1] [i+1] =="")

her=true;

}

if (her==false)

{

A= (int**) calloc (n,sizeof (int*));

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

A [i] = (int*) calloc (m,sizeof (int));

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

for (j=0; j<m; j++)

{

A [i] [j] =StrToInt (Form1->StringGrid1->Cells [j+1] [i+1]);

}

Form3->Caption=""+IntToStr (m) +" x "+IntToStr (n);

Form3->StringGrid1->RowCount=m+1;

Form3->StringGrid1->ColCount=n+1;

Form3->StringGrid1->Cells [0] [0] ="i / j";

Form3->StringGrid1->FixedRows=1;

Form3->StringGrid1->FixedCols=1;

for (i=1; i<m+1; i++)

{

Form3->StringGrid1->Cells [0] [i] =StrToInt (i);

}

for (j=1; j<n+1; j++)

{

Form3->StringGrid1->Cells [j] [0] =StrToInt (j);

}

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

for (j=0; j<m; j++)

{

Form3->StringGrid1->Cells [i+1] [j+1] =IntToStr (A [i] [j]);

}

Form3->Show ();

}

else

{

ShowMessage ("!!!");

}

}

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

void __fastcall TForm1:: N10Click (TObject *Sender)

{

bool het=false;

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

for (j=0; j<l; j++)

{

if (Form1->StringGrid2->Cells [j+1] [i+1] =="")

het=true;

}

if (het==false)

{

B= (int**) calloc (k,sizeof (int*));

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

B [i] = (int*) calloc (l,sizeof (int));

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

for (j=0; j<l; j++)

{

B [i] [j] =StrToInt (Form1->StringGrid2->Cells [j+1] [i+1]);

}

Form4->Caption=""+IntToStr (l) +" x "+IntToStr (k);

Form4->StringGrid1->RowCount=l+1;

Form4->StringGrid1->ColCount=k+1;

Form4->StringGrid1->Cells [0] [0] ="i / j";

Form4->StringGrid1->FixedRows=1;

Form4->StringGrid1->FixedCols=1;

for (i=1; i<l+1; i++)

{

Form4->StringGrid1->Cells [0] [i] =StrToInt (i);

}

for (j=1; j<k+1; j++)

{

Form4->StringGrid1->Cells [j] [0] =StrToInt (j);

}

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

for (j=0; j<l; j++)

{

Form4->StringGrid1->Cells [i+1] [j+1] =IntToStr (B [i] [j]);

}

Form4->Show ();

}

else

{

ShowMessage ("!!!");

}

}

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

void __fastcall TForm1:: N19Click (TObject *Sender)

{

bool her=false;

bool het=false;

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

for (j=0; j<m; j++)

{

if (Form1->StringGrid1->Cells [j+1] [i+1] =="")

her=true;

}

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

for (j=0; j<l; j++)

{

if (Form1->StringGrid2->Cells [j+1] [i+1] =="")

het=true;

}

if ( (her==false) && (het==false))

{

A= (int**) calloc (n,sizeof (int*));

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

A [i] = (int*) calloc (m,sizeof (int));

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

for (j=0; j<m; j++)

{

A [i] [j] =StrToInt (Form1->StringGrid1->Cells [j+1] [i+1]);

}

Form3->Caption=""+IntToStr (m) +" x "+IntToStr (n);

Form3->StringGrid1->RowCount=m+1;

Form3->StringGrid1->ColCount=n+1;

Form3->StringGrid1->Cells [0] [0] ="i / j";

Form3->StringGrid1->FixedRows=1;

Form3->StringGrid1->FixedCols=1;

for (i=1; i<m+1; i++)

{

Form3->StringGrid1->Cells [0] [i] =StrToInt (i);

}

for (j=1; j<n+1; j++)

{

Form3->StringGrid1->Cells [j] [0] =StrToInt (j);

}

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

for (j=0; j<m; j++)

{

Form3->StringGrid1->Cells [i+1] [j+1] =IntToStr (A [i] [j]);

}

Form3->Show ();

B= (int**) calloc (k,sizeof (int*));

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

B [i] = (int*) calloc (l,sizeof (int));

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

for (j=0; j<l; j++)

{

B [i] [j] =StrToInt (Form1->StringGrid2->Cells [j+1] [i+1]);

}

Form4->Caption=""+IntToStr (l) +" x "+IntToStr (k);

Form4->StringGrid1->RowCount=l+1;

Form4->StringGrid1->ColCount=k+1;

Form4->StringGrid1->Cells [0] [0] ="i / j";

Form4->StringGrid1->FixedRows=1;

Form4->StringGrid1->FixedCols=1;

for (i=1; i<l+1; i++)

{

Form4->StringGrid1->Cells [0] [i] =StrToInt (i);

}

for (j=1; j<k+1; j++)

{

Form4->StringGrid1->Cells [j] [0] =StrToInt (j);

}

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

for (j=0; j<l; j++)

{

Form4->StringGrid1->Cells [i+1] [j+1] =IntToStr (B [i] [j]);

}

Form4->Show ();

}

else

{

ShowMessage ("!!!");

}

}

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

#include <vcl. h>

#pragma hdrstop

#include "Unit2. h"

#include "Unit1. h"

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

#pragma package (smart_init)

#pragma resource "*. dfm"

TForm2 *Form2;

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

__fastcall TForm2:: TForm2 (TComponent* Owner)

: TForm (Owner)

{

}

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

void __fastcall TForm2:: FormClose (TObject *Sender, TCloseAction &Action)

{

Form2->Memo1->Lines->Clear ();

}

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

void __fastcall TForm2:: Form1N10Click (TObject *Sender)

{

int i;

if (PrintDialog1->Execute ()) {

Printer () - >BeginDoc ();

Printer () - >Canvas->Font->Pitch=fpFixed;

for (int i = 0; i < Memo1->Lines->Count; i++)

{

Printer () - >Canvas->TextOut (200, 200 +

(i*Printer () - >Canvas->TextHeight (Memo1->Lines->Strings [i])),

IntToStr (i+1) +" "+Memo1->Lines->Strings [i]);

Printer () - >EndDoc ();

}

}

else

{

ShowMessage ("");

}

}

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

void __fastcall TForm2:: N2Click (TObject *Sender)

{

Form2->Close ();

}

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

void __fastcall TForm2:: N1Click (TObject *Sender)

{

if (Form1->SaveDialog1->Execute ())

{

Form2->Memo1->Lines->SaveToFile (Form1->SaveDialog1->FileName+". txt");

}

}

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

#include <vcl. h>

#pragma hdrstop

#include "Unit3. h"

#include "Unit1. h"

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

#pragma package (smart_init)

#pragma resource "*. dfm"

TForm3 *Form3;

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

__fastcall TForm3:: TForm3 (TComponent* Owner)

: TForm (Owner)

{

}

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

void __fastcall TForm3:: N1Click (TObject *Sender)

{

if (Form3->SaveDialog1->Execute ())

{

int i,j;

TStringList*list=new TStringList;

list->Add (Form3->Caption);

list->Add (' ');

for (i=0; i<Form3->StringGrid1->RowCount; i++)

{

for (j=0; j<Form3->StringGrid1->ColCount; j++)

list->Append (Form3->StringGrid1->Cells [j+1] [i+1]);

}

list->SaveToFile (Form3->SaveDialog1->FileName+". txt");

}

}

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

void __fastcall TForm3:: N2Click (TObject *Sender)

{

Form3->Close ();

}

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

#include <vcl. h>

#pragma hdrstop

#include "Unit4. h"

#include "Unit1. h"

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

#pragma package (smart_init)

#pragma resource "*. dfm"

TForm4 *Form4;

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

__fastcall TForm4:: TForm4 (TComponent* Owner)

: TForm (Owner)

{

}

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

void __fastcall TForm4:: N1Click (TObject *Sender)

{

Form4->Close ();

}

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

void __fastcall TForm4:: c1Click (TObject *Sender)

{

if (Form4->SaveDialog1->Execute ())

{

int i,j;

TStringList*list=new TStringList;

list->Add (Form4->Caption);

list->Add (' ');

for (i=0; i<Form4->StringGrid1->RowCount; i++)

{

for (j=0; j<Form4->StringGrid1->ColCount; j++)

list->Append (Form4->StringGrid1->Cells [j+1] [i+1]);

}

list->SaveToFile (Form4->SaveDialog1->FileName+". txt");

}

}

Размещено на Allbest.ru