Необходимо разработать программное средство. Листинг программы присутствует) С++ Builder XE

[Faster_kill]

Необходимо разработать программное средство для решения матричных игр. Вот сам листинг программного кода, нужен исходник, сам не умею пользоваться С++ (помогите чем смогите)

Модуль Mainform.cpp:

//---------------
#include <vcl.h>
#pragma hdrstop
#include "Series.hpp"
#include "Iter.h"
#include "pic.h"
#include "mainform.h"
#include <fstream.h>
#include <iostream>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::RaschetClick(TObject *Sender) // расчёт
{
double MaxMin=0, MinMax=0;
double MinRow[100];
double MaxCol[100];
int i, j, n, m;
double A0[100][100];

n = StrToInt(Edit4->Text);
m = StrToInt(Edit5->Text);

for (i = 0; i < m; i++) {
for (j = 0; j < n; j++) {
//перевод значений из таблицы в массив double матрицы A0:
A0[j][i]=StrToFloat(StringGrid1->Cells[i+1][j+1]);
}
}

//--------------------- расчёт в чистых стратегиях -----------------------------

for (i = 0; i < n; i++) {
MinRow[i]=A0[i][0];
}

for (i = 0; i < m; i++) {
MaxCol[i]=A0[0][i];
}

//очистим стрингриды 2 и 3:
for (register int i = 0; i < StringGrid2->RowCount; i++)
{
StringGrid2->Rows[i]->Clear();
}
for (register int i = 0; i < StringGrid3->RowCount; i++)
{
StringGrid3->Rows[i]->Clear();
}

StringGrid2->Cells[0][0]="Min";
StringGrid3->Cells[0][0]="Max";

// расчёт минимумов и максимумов

for (i = 0; i < n; i++) {
for (j = 0; j < m; j++) {
//поиск минимального значения в строках :
if (A0[i][j] <= MinRow[i]) {
MinRow[i] = A0[i][j];
}
}
//вывод минимумов строк в СтрингГрид2 :
StringGrid2->Cells[0][i+1] = MinRow[i];

}
for (j = 0; j < m; j++) {
for (i = 0; i < n; i++) {

//поиск максимального значения в столбцах :
if (A0[i][j] >= MaxCol[j]){
MaxCol[j] = A0[i][j];
}
}
//вывод максимумов столбцов в СтрингГрид3 :
StringGrid3->Cells[j+1][0] = MaxCol[j];
}

//найдём максимин
MaxMin = MinRow[0];
for (i = 0; i < n; i++) {
if (MinRow[i] >= MaxMin ){MaxMin = MinRow[i];}
}
Edit2->Text=MaxMin;

//найдём минимакс
MinMax = MaxCol[0];
for (i = 0; i < m; i++) {
if (MaxCol[i] <= MinMax ){MinMax = MaxCol[i];}
}
Edit3->Text=MinMax;

if (MinMax == MaxMin) {
ShowMessage("Игра решена в чистых стратегиях");
Edit1->Text = MinMax;
} else {ShowMessage("Игра не решается в чистых стратегиях, попробуете решить её итерационным методом");}
//------------------------------------------------------------------------------

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form2->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int i, j, n, m;
double A0[100][100];

n = StrToInt(Edit4->Text);
m = StrToInt(Edit5->Text);

//очищаем СтрингГрид1:
for (register int i = 0; i < StringGrid1->RowCount; i++){
StringGrid1->Rows[i]->Clear();
}

for (i = 0; i < n; i++) {
StringGrid1->Cells[0][i+1]="A"+String(i+1);
}
for (i = 0; i < m; i++) {
StringGrid1->Cells[i+1][0]="B"+String(i+1);
}

}
//---------------------------------------------------------------------------

void __fastcall TForm1::SaveClick(TObject *Sender)
{
int n,m;

n = StrToInt(Edit4->Text);
m = StrToInt(Edit5->Text);

// сохранение в файл
SaveTextFileDialog1->Execute();
SaveTextFileDialog1->FileName;
ofstream myfile(SaveTextFileDialog1->FileName.t_str());

for (int i = 0; i < n; i++) {
for (int j = 0; j < m; j++) {
myfile << StrToFloat(StringGrid1->Cells[j+1][i+1]);
myfile << " ";
}
myfile << "\n";
}
myfile.close();

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
int n,m;

n = StrToInt(Edit4->Text);
m = StrToInt(Edit5->Text);

//Загрузка файла
int a;

if (OpenDialog1->Execute()){
OpenDialog1->FileName;
ifstream loadfile(OpenDialog1->FileName.c_str());

for(int i=0; i<n; i++){
for(int j=0; j<m; j++){

loadfile >> a;
StringGrid1->Cells[j+1][i+1] = IntToStr(a);

}
//StringGrid1[i+1][j+1]=ch;
}
loadfile.close();

}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
int i, j, n, m;
double A0[100][100];

n = StrToInt(Edit4->Text);
m = StrToInt(Edit5->Text);

//Создаём рандомную матрицу
for (i = 0; i < n; i++) {
for (j = 0; j < m; j++) {
A0[i][j] = RandomRange(1, 10);
}
}
//Матрицу в СтрингГрид1:
for (i = 0; i < n; i++) {
for (j = 0; j < m; j++) {
StringGrid1->Cells[j+1][i+1]=String(A0[i][j]);
}
}
}

[Hacker19_90]

Вот сам листинг программного кода

Ок. Спасибо

нужен исходник

Не понял, а то, что выше это что?

[Faster_kill]

нужна сама программа по этому листингу, что бы курсовую сдать(=

[AlexDark]

А вот этого всего нет?
#include "Series.hpp"
#include "Iter.h"
#include "pic.h"
#include "mainform.h"

[Faster_kill]

вот всё что есть(=

[Faster_kill]

Люди добрые помогите, горю...