Дополнения. #include "Unit2.h"

Исходный код:

Unit1.cpp

#include <vcl.h>

#pragma hdrstop

#include "Unit2.h"

#include "Unit1.h"

#include "Unit3.h"

#include "Unit4.cpp"

#include <fstream>

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

massiv a;

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

void __fastcall TForm1::N11Click(TObject *Sender)

{

Close();

}

void __fastcall TForm1::N2Click(TObject *Sender)

{

Form2->Show();

}

void __fastcall TForm1::N12Click(TObject *Sender)

{

Form3->Show();

}

void __fastcall TForm1::N4Click(TObject *Sender)

{

a.summ();

}

void __fastcall TForm1::N5Click(TObject *Sender)

{

a.mnoj();

}

void __fastcall TForm1::N6Click(TObject *Sender)

{

a.max();

}

void __fastcall TForm1::Button1Click(TObject *Sender)

{

a.stolb();

}

void __fastcall TForm1::N7Click(TObject *Sender)

{

a.start();

}

void __fastcall TForm1::N10Click(TObject *Sender)

{

a.open();

}

void __fastcall TForm1::N9Click(TObject *Sender)

{

a.save();

}

void __fastcall TForm1::N13Click(TObject *Sender)

{

a.min();

}

Unit4.cpp

#pragma hdrstop

#include "Unit4.h"

#include "Unit3.h"

#include "Unit2.h"

#include "Unit1.h"

#include <fstream>

#pragma package(smart_init)

class massiv {

int N,a,i,j;

int **matr;

public:

void add_Value () {

a=StrToInt(Form2->Edit1->Text);

Form3->StringGrid1->RowCount=a;

Form3->StringGrid1->ColCount=a;

Form2->Close();

Form3->Show();

Form1->Memo1->Visible=false;

}

void create(){

matr=new int *[N];

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

{

matr[i]=new int [N];

}

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

{

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

{

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

} }

Form3->Close();

Form1->Memo1->Visible=false;

Form1->Label6->Visible=false;

}

void summ(){

int s;

s=0;

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

{

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

{

s=s+StrToInt(Form3->StringGrid1->Cells[i][j]);

}}

Form1->Label1->Visible=true;

Form1->Edit1->Visible=true;

Form1->Label3->Visible=false;

Form1->Label2->Visible=false;

Form1->Edit1->Text=FloatToStr(s);

Form1->Memo1->Visible=false;

Form1->Label6->Visible=false;

}

void mnoj(){

int s;

s=1;

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

{

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

{

s=s*StrToInt(Form3->StringGrid1->Cells[i][j]);

}}

Form1->Label1->Visible=false;

Form1->Label2->Visible=true;

Form1->Label3->Visible=false;

Form1->Edit1->Visible=true;

Form1->Edit1->Text=FloatToStr(s);

Form1->Memo1->Visible=false;

Form1->Label6->Visible=false;

}

void max(){

Form1->Label1->Visible=false;

Form1->Label2->Visible=false;

Form1->Label3->Visible=true;

Form1->Edit1->Visible=true;

int min;

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

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

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

if (min<StrToInt(Form3->StringGrid1->Cells[i][j])){

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

}

Form1->Edit1->Text=IntToStr(min);

}

}

Form1->Memo1->Visible=false;

Form1->Label6->Visible=false;

}

void stolb(){

int s,m;

s=0;

m=StrToInt(Form1->Edit2->Text)-1;

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

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

if (i==m){

s=s+StrToInt(Form3->StringGrid1->Cells[i][j]);

}

}

}

Form1->Edit1->Visible=false;

Form1->Edit2->Visible=true;

Form1->Edit3->Visible=true;

Form1->Label4->Visible=true;

Form1->Label6->Visible=false;

Form1->Edit3->Text=IntToStr(s);

Form1->Memo1->Visible=false;

}

void start(){

Form1->Edit1->Visible=false;

Form1->Edit2->Visible=true;

Form1->Edit3->Visible=true;

Form1->Label4->Visible=true;

Form1->Button1->Visible=true;

Form1->Label5->Visible=true;

Form1->Memo1->Visible=false;

Form1->Label6->Visible=false;

}

void open(){

Form1-> Memo1->Lines->LoadFromFile("a.txt");

Form1->Memo1->Visible=true;

Form1->Label6->Visible=true;

}

void save(){

i=0;

int b;

b=0;

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

{

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

{

Form1-> Memo1->Lines->Add(Form3->StringGrid1->Cells[i][j]);

Form1-> Memo1->Lines->SaveToFile("a.txt");

Form1->Memo1->Visible=false;

Form1->Label6->Visible=true;

} } }

void min(){

Form1->Label1->Visible=false;

Form1->Label2->Visible=false;

Form1->Label3->Visible=false;

Form1->Edit1->Visible=true;

Form1->Label6->Visible=true;

int min;

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

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

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

if (min>StrToInt(Form3->StringGrid1->Cells[i][j])){

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

}

Form1->Edit1->Text=IntToStr(min);

}

}

Form1->Memo1->Visible=false;

}

};

Project1.cpp

#include <vcl.h>

#pragma hdrstop

USEFORM("Unit1.cpp", Form1);

USEFORM("Unit2.cpp", Form2);

USEFORM("Unit3.cpp", Form3);

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

{

try

{

Application->Initialize();

Application->CreateForm(__classid(TForm1), &Form1);

Application->CreateForm(__classid(TForm2), &Form2);

Application->CreateForm(__classid(TForm3), &Form3);

Application->Run();

}

catch (Exception &exception)

{

Application->ShowException(&exception);

}

catch (...)

{

try

{

throw Exception("");

}

catch (Exception &exception)

{

Application->ShowException(&exception);

}

}

return 0;

}

Литература

1. Kernighan B.W., Ritchie D.M. The C Programming Language. Prentice-Hall, 1978. [Пер. на рус. яз.: Керниган Б., Ритчи Д. Язык программирования Си. М.: Финансы и статистика. 1985].
2. Moylan Peter. The case against C // The ModulaTor. — 1993. — V.3.—N 6.
3. Богатырев Р. Летопись языков. Паскаль // Мир ПК. — 2001. — № 4.
4. Ritchie D.M. The Development of the C Programming Language // History of Programming Languages. ACM-Press, 1996.
5. Ritchie D.M. Writings from the Past. 1997.
6. Ritchie D.M. The evolution of the UNIX time-sharing system // Language Design and Programming Methodology/Ed. by J.Tobbias, Springer, 1980.
7. Ритчи Д. Размышления об исследованиях в области программного обеспечения // Лекции лауреатов премии Тьюринга за первые двадцать лет. 1966–1985. — М.: Мир, 1993.
8. Ritchie D. M., Thompson K. The UNIX Time-Sharing System // Communications of the ACM. — 1974.— V.17. — N7.
9. Калев Д. Будущее по Дэннису Ритчи // Мир ПК. — 2001. — №3.
10. Мосени П. Inferno: ОС для сетевых компьютеров // Мир ПК. — 1997. — №10.

Поиск по сайту: