Название
процедурыОписание
|
|
void
__fastcall TForm1:: N1Click (TObject *Sender)
|
Выполняет сохранение
в текстовый файл
|
void
__fastcall TForm1:: N2Click (TObject *Sender)
|
Выполняет
закрытия формы
|
4.
Программа тестирования и методика испытаний
4.1 Цель и
объект проведения испытаний
Цель найти ошибки в коде программы, выявить слабые места программы,
проверить на оптимальность интерфейса для пользователя при вводе информации
которая в дальнейшем будет обрабатываться, на правильность выполнения
выполнений функций и методов программы, на универсальность и оптимальность кода
программы. Объектом испытаний является программа представленная в данном
курсовом проекте.
4.2 Порядок
проведения испытаний
В первую очередь испытания будут проходиться самим
разработчиком, в первую очередь проведем проверку функций и методов выполним
поочередно все функции и сравним результаты полученные с нужными нам если все
верно то допустим программу к следующему этапу тестирования, если же нет то
придется исправлять все ошибки и опять тем же методом тестировать приложение,
следующий этап предполагает специально вводить не правильные типы данных или же
выполнять действия до выполнения условия и обратить внимание на сбои и ошибки
программы если же таких нет то приступить к следующему этапу проверки если же
есть то необходимо ограничить пользователя от ошибок ввода. Следующим этапом
будет проверка ошибок кода на логическую целостность это определяется
программистом по синтаксису кода языка. После того как программист убедился что
код полностью верный он при необходимости попытается его оптимизировать то есть
убрать все лишние не использующиеся переменные классы структуры так и лишние
строки кода которые ни чего не выполняют, так же программист может
оптимизировать код за счет сокращения функций только при этом не должна
нарушится быстрота и точность выполнения функции так же она должна выполнять
туже задачу что и раньше. После проведения всех испытаний и отладки можно
оформлять прикладную документацию.
4.3 Протокол
испытаний
В результате тестирования программы ни каких ошибок в коде
программы не было обнаружено все функции и методы выполняют сваи действия верно
без каких либо отклонений логичность кода верна и пунктуация кода верна,
оптимизация не потребовалась ни каких не использованных полей не обнаружено
простоя кода нет функции максимально просты и оптимизированы максимально быстро
выполняют свои действия, В ходе провидений испытаний над интерфейсом все ошибки
которые мог бы допустить пользователь устранены система полностью устойчива к
ошибкам пользователя.
5.
Руководство пользователя
При входе в программу мы видим окно приветствия в котором
кратко описываются все возможности программы так же мы можем открыть справку
при нажатии на кнопку справка в системном меню и почитать о программе, если же
пользователя не устраивает данное ПО мы можем выйти из программы, если пользователя
устраивает то необходимо нажать на кнопку начать работу как на рисунке 5.1
Рисунок - 5.1
При этом увидим форму выбора размерности массива при этом мы
должны выбрать все N и M то есть количество строк и столбцов и после того как все
размерности выбраны появиться кнопка выполнить которая создаст матрицы этих
размеров так же массив можно открыть из файла при этом нужно выполнить команду
файл открыть из файла и при каждом из этих действий перейдем к форме обработки матрицы
как на рисунке 5.3
Рисунок - 5.2
Рисунок - 5.3
Пользователь может приступить к обработке массива ввод
массива с клавиатуры рандомам заполнение случайными числами и с файла когда все
элементы массива заполнены можно выполнить обработку если же не все то
приложение выдаст соответствующую ошибку
Пользователь может сохранить данные в файл через вкладку
файл. Во вкладке обработка присутствуют полностью все действия которые можно производить
с массивами при чем действия можно применять как к одному массиву отдельно так
и к обоим сразу.
При этом быстрые кнопки которые выделены выполняют действия
сразу с 2 массивами.
При нажатии на кнопку найти мин макс увидим результат как на
рисунке 5.4
Рисунок - 5.4
При выполнении расчета среднего арифметического появиться
отчет как на рисунке 5.5 этот отчет можно сохранить в файл распечатать и
закрыть действие выбирается кликам правой кнопкой мыши по отчету.
Рисунок - 5.5
При выполнении транспортировки матрицы увидим результат в
отдельном окне его тоже можно закрыть или сохранить правой кнопкой мыши рисунок
5.6.
Рисунок - 5.6
Список
использованных источников
Заключение
Данный программный продукт был разработан в среде
программирования С++Builder6, так как эта среда наиболее понятна и проста из известных мне
языков программирования.
Эта программа предназначена для более удобной работы c операторами языка C++.
Цель и задача были выполнены.
На данной стадии программный продукт завершён, но он может
быть доработан и изменён по желанию пользователя.
Приложения
Приложение А
Листинг программы
#include <vcl. h>
#pragma hdrstop
#include "Unit1. h"
#include "Unit2. h"
#include "Unit3. h"
#include "Unit4. h"
//
---------------------------------------------------------------------------
#pragma package (smart_init)
#pragma resource "*.
dfm"*Form1;i,j;h,a;**A;**B;**C;k,l;n,m;arif,sum;min,max;d,s;str;st;gh;lk;
//
---------------------------------------------------------------------------
__fastcall TForm1:: TForm1 (TComponent* Owner)
: TForm (Owner)
{
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: FormCreate (TObject *Sender)
{->N1->Enabled=false;->N2->Enabled=false;(i=0;
i<30; i++)
{->ComboBox1->Items->Add
(i+1);->ComboBox2->Items->Add (i+1);->ComboBox3->Items->Add
(i+1);->ComboBox4->Items->Add (i+1);
}
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: BitBtn1Click (TObject *Sender)
{->N1->Enabled=true;->N7->Enabled=true;->N8->Enabled=false;->Label1->Visible=false;->Label2->Visible=false;->BitBtn1->Visible=false;->BitBtn1->Enabled=false;->Label9->Visible=true;->Label3->Visible=true;->Label4->Visible=true;->Label5->Visible=true;->Label6->Visible=true;->Label7->Visible=true;->Label8->Visible=true;->ComboBox1->Visible=true;->ComboBox2->Visible=true;->ComboBox3->Visible=true;->ComboBox4->Visible=true;
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: Timer1Timer (TObject *Sender)
{->Label3->Caption=" =
"+Form1->ComboBox1->Text+" x
"+Form1->ComboBox2->Text;->Label4->Caption="Ìàññèâ B =
"+Form1->ComboBox3->Text+" x
"+Form1->ComboBox4->Text;( (Form1->ComboBox1->ItemIndex! =-1)
&& (Form1->ComboBox2->ItemIndex! =-1) &&
(Form1->ComboBox3->ItemIndex! =-1) &&
(Form1->ComboBox4->ItemIndex!
=-1))->BitBtn2->Visible=true;->BitBtn2->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: BitBtn2Click (TObject *Sender)
{->Timer1->Enabled=false;=StrToInt (Form1->ComboBox1->Text);=StrToInt
(Form1->ComboBox2->Text);=StrToInt
(Form1->ComboBox3->Text);=StrToInt
(Form1->ComboBox4->Text);->Label10->Caption=" =
"+Form1->ComboBox1->Text+" x "+Form1->ComboBox2->Text;->Label11->Caption="Ìàññèâ B =
"+Form1->ComboBox3->Text+" x
"+Form1->ComboBox4->Text;->Label9->Visible=true;->Label3->Visible=false;->Label4->Visible=false;->Label5->Visible=false;->Label6->Visible=false;->Label7->Visible=false;->Label8->Visible=false;->Label9->Visible=false;
//
Form1->BitBtn2->Enabled=false;->ComboBox1->Visible=false;->ComboBox2->Visible=false;->ComboBox3->Visible=false;->ComboBox4->Visible=false;->StringGrid1->Visible=true;->StringGrid2->Visible=true;->Label10->Visible=true;->Label11->Visible=true;->Button1->Visible=true;->BitBtn2->Visible=false;->StringGrid1->ColCount=m+1;->StringGrid1->RowCount=n+1;->StringGrid2->ColCount=l+1;->StringGrid2->RowCount=k+1;->StringGrid1->Cells
[0] [0] ="i / j";->StringGrid2->Cells [0] [0] ="i /
j";->StringGrid1->FixedCols=1;->StringGrid1->FixedRows=1;->StringGrid2->FixedCols=1;->StringGrid2->FixedRows=1;->BitBtn6->Visible=true;(i=1;
i<n+1; i++)
{->StringGrid1->Cells [0] [i] =StrToInt
(i);
}(j=1; j<m+1; j++)
{->StringGrid1->Cells [j] [0] =StrToInt
(j);
}(i=1; i<k+1; i++)
{->StringGrid2->Cells [0] [i] =StrToInt
(i);
}(j=1; j<l+1; j++)
{->StringGrid2->Cells [j] [0] =StrToInt
(j);
}->N7->Enabled=false;->N8->Enabled=true;->N2->Enabled=true;->BitBtn3->Visible=true;->BitBtn4->Visible=true;->BitBtn5->Visible=true;
}
// ---------------------------------------------------------------------------__fastcall
TForm1:: BitBtn4Click (TObject *Sender)
{=false;=
(int**) calloc (n,sizeof (int*));(i=0; i<n; i++)[i] = (int*) calloc
(m,sizeof (int));= (int**) calloc (k,sizeof (int*));(j=0; j<k; j++)[j] =
(int*) calloc (l,sizeof (int));(i=0; i<n; i++)(j=0; j<m; j++)
{(Form1->StringGrid1->Cells
[j+1] [i+1] =="")=true;
}(d==false)
{(i=0;
i<n; i++)(j=0; j<m; j++)
{[i]
[j] =StrToInt (Form1->StringGrid1->Cells [j+1] [i+1]);
}=A
[0] [0];(i=0; i<n; i++)(j=0; j<m; j++)
{(A
[i] [j] <min)=A [i] [j];
}->Label12->Visible=true;->Label12->Caption="Ìèíåìàëüíîå ÷èñëî = "+IntToStr (min);
}
{("");
}
//
-----------------------------------------------------------------------=false;(i=0;
i<k; i++)(j=0; j<l; j++)
{(Form1->StringGrid2->Cells
[j+1] [i+1] =="")=true;;
}
//
/*(s==false)
{(i=0;
i<k; i++)(j=0; j<l; j++)
{[i]
[j] =StrToInt (Form1->StringGrid2->Cells [j+1] [i+1]);
}=B
[0] [0];(i=0; i<k; i++)(j=0; j<l; j++)
{(B
[i] [j] <min)=B [i] [j];
}->Label13->Visible=true;->Label13->Caption="B
= "+IntToStr (min);
}
{("B");
}
//
-------------------------------------------------------------------------(i=0;
i<n; i++)(j=0; j<m; j++)
{(Form1->StringGrid1->Cells
[j+1] [i+1] =="")=true;
}(d==false)
{(i=0;
i<n; i++)(j=0; j<m; j++)
{[i]
[j] =StrToInt (Form1->StringGrid1->Cells [j+1] [i+1]);
}=A
[0] [0];(i=0; i<n; i++)(j=0; j<m; j++)
{(A
[i] [j] >max)=A [i] [j];
}->Label14->Visible=true;->Label14->Caption="
= "+IntToStr (max);
}
//
-----------------------------------------------------------------------=false;(i=0;
i<k; i++)(j=0; j<l; j++)
{(Form1->StringGrid2->Cells
[j+1] [i+1] =="")=true;;
}
//
/*(s==false)
{(i=0;
i<k; i++)(j=0; j<l; j++)
{[i]
[j] =StrToInt (Form1->StringGrid2->Cells [j+1] [i+1]);
}=B
[0] [0];(i=0; i<k; i++)(j=0; j<l; j++)
{(B
[i] [j] >max)=B [i] [j];
}->Label15->Visible=true;->Label15->Caption="
B = "+IntToStr (max);
}
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: BitBtn6Click (TObject *Sender)
{->Memo1->Lines->Clear
();(i=1; i<n+1; i++)(j=1; j<m+1; j++)
{->StringGrid1->Cells
[j] [i] ="";
}(i=1;
i<k+1; i++)(j=1; j<l+1; j++)
{->StringGrid2->Cells
[j] [i] ="";
}->Label12->Caption="";->Label13->Caption="";->Label14->Caption="";->Label15->Caption="";->Label12->Visible=false;->Label13->Visible=false;->Label14->Visible=false;->Label15->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: N17Click (TObject *Sender)
{(Form1->StringGrid1->Cells
[j+1] [i+1] =="")=true;
}(d==false)
{(i=0;
i<n; i++)(j=0; j<m; j++)
{[i]
[j] =StrToInt (Form1->StringGrid1->Cells [j+1] [i+1]);
}=A
[0] [0];(i=0; i<n; i++)(j=0; j<m; j++)
{(A
[i] [j] <min)=A [i] [j];
}->Label12->Visible=true;->Label12->Caption="
= "+IntToStr (min);
}
{("");
}
//
-----------------------------------------------------------------------=false;(i=0;
i<k; i++)(j=0; j<l; j++)
{(Form1->StringGrid2->Cells
[j+1] [i+1] =="")=true;;
}
//
/*(s==false)
{(i=0;
i<k; i++)(j=0; j<l; j++)
{[i]
[j] =StrToInt (Form1->StringGrid2->Cells [j+1] [i+1]);
}=B
[0] [0];(i=0; i<k; i++)(j=0; j<l; j++)
{(B
[i] [j] <min)=B [i] [j];
}->Label13->Visible=true;->Label13->Caption="
B = "+IntToStr (min);
}
{("B");
}
//
-------------------------------------------------------------------------(i=0;
i<n; i++)(j=0; j<m; j++)
{(Form1->StringGrid1->Cells
[j+1] [i+1] =="")=true;
}(d==false)
{(i=0;
i<n; i++)(j=0; j<m; j++)
{[i]
[j] =StrToInt (Form1->StringGrid1->Cells [j+1] [i+1]);
}=A
[0] [0];(i=0; i<n; i++)(j=0; j<m; j++)
{(A
[i] [j] >max)=A [i] [j];
}->Label14->Visible=true;->Label14->Caption="
= "+IntToStr (max);
}
//
-----------------------------------------------------------------------=false;(i=0;
i<k; i++)(j=0; j<l; j++)
{(Form1->StringGrid2->Cells
[j+1] [i+1] =="")=true;;
}(s==false)
{(i=0;
i<k; i++)(j=0; j<l; j++)
{[i]
[j] =StrToInt (Form1->StringGrid2->Cells [j+1] [i+1]);
}=B
[0] [0];(i=0; i<k; i++)(j=0; j<l; j++)
{(B
[i] [j] >max)=B [i] [j];
}->Label15->Visible=true;->Label15->Caption="B
= "+IntToStr (max);
}
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: N18Click (TObject *Sender)
{=false;=
(int**) calloc (n,sizeof (int*));(i=0; i<n; i++)[i] = (int*) calloc
(m,sizeof (int));(i=0; i<n; i++)(j=0; j<m; j++)
{(Form1->StringGrid1->Cells
[j+1] [i+1] =="")=true;
}(d==false)
{(i=0;
i<n; i++)(j=0; j<m; j++)
{[i]
[j] =StrToInt (Form1->StringGrid1->Cells [j+1] [i+1]);
}=A
[0] [0];(i=0; i<n; i++)(j=0; j<m; j++)
{(A
[i] [j] <min)=A [i] [j];
}=A
[0] [0];(i=0; i<n; i++)(j=0; j<m; j++)
{(A
[i] [j] >max)=A [i] [j];
}->Label14->Visible=true;->Label14->Caption="=
"+IntToStr
(max);->Label12->Visible=true;->Label12->Caption=" =
"+IntToStr (min);
}
{("");
}
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: inMax1Click (TObject *Sender)
{=
(int**) calloc (k,sizeof (int*));(j=0; j<k; j++)[j] = (int*) calloc
(l,sizeof (int));=false;(i=0; i<k; i++)(j=0; j<l; j++)
{(Form1->StringGrid2->Cells
[j+1] [i+1] =="")=true;;
}
//
/*(s==false)
{(i=0;
i<k; i++)(j=0; j<l; j++)
{[i]
[j] =StrToInt (Form1->StringGrid2->Cells [j+1] [i+1]);
}=B
[0] [0];(i=0; i<k; i++)(j=0; j<l; j++)
{(B
[i] [j] <min)=B [i] [j];
}->Label13->Visible=true;->Label13->Caption="
B = "+IntToStr (min);
}
{("B");
}=false;(i=0;
i<k; i++)(j=0; j<l; j++)
{(Form1->StringGrid2->Cells
[j+1] [i+1] =="")=true;;
}(s==false)
{(i=0;
i<k; i++)(j=0; j<l; j++)
{[i]
[j] =StrToInt (Form1->StringGrid2->Cells [j+1] [i+1]);
}=B
[0] [0];(i=0; i<k; i++)(j=0; j<l; j++)
{(B
[i] [j] >max)=B [i] [j];
}->Label15->Visible=true;->Label15->Caption="
B = "+IntToStr (max);
}
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: BitBtn5Click (TObject *Sender)
{->Memo1->Lines->Clear
();= (int**) calloc (n,sizeof (int*));(i=0; i<n; i++)[i] = (int*) calloc
(m,sizeof (int));= (int**) calloc (k,sizeof (int*));(j=0; j<k; j++)[j] =
(int*) calloc (l,sizeof (int));
//
------------------------------------------------------------------------=false;(i=0;
i<n; i++)(j=0; j<m; j++)
{(Form1->StringGrid1->Cells
[j+1] [i+1] =="")=true;;
}(s==false)
{(i=0;
i<n; i++)(j=0; j<m; j++)
{[i]
[j] =StrToInt (Form1->StringGrid1->Cells [j+1] [i+1]);
}->Memo1->Lines->Add
("");->Memo1->Lines->Add ("");(i=0; i<n; i++)
{=0;(j=0;
j<m; j++)+=A [i] [j];=sum/m;->Memo1->Lines->Add
(""+IntToStr (i+1) +"= "+FloatToStr (sum));
}->Memo1->Lines->Add
(" // -------------------------------");->Memo1->Lines->Add
("");(j=0; j<m; j++)
{=0;(i=0;
i<n; i++)+=A [i] [j];=sum/n;->Memo1->Lines->Add
(""+IntToStr (j+1) = "+FloatToStr (sum));
}
}
{("A");
}
//
--------------------------------------------------------------------------------->Memo1->Lines->Add
(" ");->Memo1->Lines->Add ("Ìàññèâ Â");->Memo1->Lines->Add
("Còðîêè");=false;(i=0; i<k; i++)(j=0;
j<l; j++)
{(Form1->StringGrid2->Cells
[j+1] [i+1] =="")=true;
}(d==false)
{(i=0;
i<k; i++)(j=0; j<l; j++)
{[i]
[j] =StrToInt (Form1->StringGrid2->Cells [j+1] [i+1]);
}(i=0;
i<k; i++)
{=0;(j=0;
j<l; j++)+=B [i] [j];=sum/l;->Memo1->Lines->Add
(""+IntToStr (i+1) +"= "+FloatToStr (sum));
}->Memo1->Lines->Add
(" // ----------------------------------------------");->Memo1->Lines->Add
("");(j=0; j<l; j++)
{=0;(i=0;
i<k; i++)+=B [i] [j];=sum/n;->Memo1->Lines->Add ("¹"+IntToStr
(j+1) +"= "+FloatToStr (sum));
}
}
{("B");
}(
(s==false) && (d==false))->Show ();
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: N16Click (TObject *Sender)
{->Memo1->Lines->Clear
();= (int**) calloc (n,sizeof (int*));(i=0; i<n; i++)[i] = (int*) calloc
(m,sizeof (int));= (int**) calloc (k,sizeof (int*));(j=0; j<k; j++)[j] =
(int*) calloc (l,sizeof (int));
//
------------------------------------------------------------------------=false;(i=0;
i<n; i++)(j=0; j<m; j++)
{(Form1->StringGrid1->Cells
[j+1] [i+1] =="")=true;;
}(s==false)
{(i=0;
i<n; i++)(j=0; j<m; j++)
{[i]
[j] =StrToInt (Form1->StringGrid1->Cells [j+1] [i+1]);
}->Memo1->Lines->Add
("");->Memo1->Lines->Add ("");(i=0; i<n; i++)
{=0;(j=0;
j<m; j++)+=A [i] [j];=sum/m;->Memo1->Lines->Add
(""+IntToStr (i+1) +"= "+FloatToStr (sum));
}->Memo1->Lines->Add
(" // -------------------------------");->Memo1->Lines->Add
("Ñòîëáöû");(j=0; j<m; j++)
{=0;(i=0;
i<n; i++)+=A [i] [j];=sum/n;->Memo1->Lines->Add ("¹"+IntToStr
(j+1) +"= "+FloatToStr (sum));
}
}
{("A");
}
//
--------------------------------------------------------------------------------->Memo1->Lines->Add
(" ");->Memo1->Lines->Add
("");->Memo1->Lines->Add ("");=false;(i=0; i<k;
i++)(j=0; j<l; j++)
{(Form1->StringGrid2->Cells
[j+1] [i+1] =="")=true;
}(d==false)
{(i=0;
i<k; i++)(j=0; j<l; j++)
{[i]
[j] =StrToInt (Form1->StringGrid2->Cells [j+1] [i+1]);
}(i=0;
i<k; i++)
{=0;(j=0;
j<l; j++)+=B [i] [j];=sum/l;->Memo1->Lines->Add
(""+IntToStr (i+1) +" = "+FloatToStr (sum));
}->Memo1->Lines->Add
(" // ---------------------------------------------------------------------");->Memo1->Lines->Add
("");(j=0; j<l; j++)
{=0;(i=0;
i<k; i++)+=B [i] [j];=sum/n;->Memo1->Lines->Add ("¹"+IntToStr
(j+1) +" = "+FloatToStr (sum));
}
}
{("B");
}(
(s==false) && (d==false))->Show ();
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: N14Click (TObject *Sender)
{->Memo1->Lines->Clear
();= (int**) calloc (n,sizeof (int*));(i=0; i<n; i++)[i] = (int*) calloc
(m,sizeof (int));=false;(i=0; i<n; i++)(j=0; j<m; j++)
{(Form1->StringGrid1->Cells
[j+1] [i+1] =="")=true;;
}(s==false)
{(i=0;
i<n; i++)(j=0; j<m; j++)
{[i]
[j] =StrToInt (Form1->StringGrid1->Cells [j+1] [i+1]);
}->Memo1->Lines->Add
("");->Memo1->Lines->Add ("");(i=0; i<n; i++)
{=0;(j=0;
j<m; j++)+=A [i] [j];=sum/m;->Memo1->Lines->Add
(""+IntToStr (i+1) +" = "+FloatToStr (sum));
}->Memo1->Lines->Add
(" // -------------------------------");->Memo1->Lines->Add
("");(j=0; j<m; j++)
{=0;(i=0;
i<n; i++)+=A [i] [j];=sum/n;->Memo1->Lines->Add ("¹"+IntToStr
(j+1) +" = "+FloatToStr (sum));
}->Show
();
}
{("A");
}
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: N15Click (TObject *Sender)
{->Memo1->Lines->Clear
();= (int**) calloc (k,sizeof (int*));(j=0; j<k; j++)[j] = (int*) calloc
(l,sizeof (int));->Memo1->Lines->Add
("");->Memo1->Lines->Add ("");=false;(i=0; i<k;
i++)(j=0; j<l; j++)
{(Form1->StringGrid2->Cells
[j+1] [i+1] =="")=true;
}(d==false)
{(i=0;
i<k; i++)(j=0; j<l; j++)
{[i]
[j] =StrToInt (Form1->StringGrid2->Cells [j+1] [i+1]);
}(i=0;
i<k; i++)
{=0;(j=0;
j<l; j++)+=B [i] [j];=sum/l;->Memo1->Lines->Add
(""+IntToStr (i+1) +"= "+FloatToStr (sum));
}->Memo1->Lines->Add
(" //
----------------------------------------------");->Memo1->Lines->Add
("");(j=0; j<l; j++)
{=0;(i=0;
i<k; i++)+=B [i] [j];=sum/n;->Memo1->Lines->Add ("¹"+IntToStr
(j+1) +" = "+FloatToStr (sum));
}->Show
();
}
{("B");
}
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: N5Click (TObject *Sender)
{->Memo1->Lines->Clear
();(i=1; i<n+1; i++)(j=1; j<m+1; j++)
{->StringGrid1->Cells
[j] [i] ="";
}(i=1;
i<k+1; i++)(j=1; j<l+1; j++)
{->StringGrid2->Cells
[j] [i] ="";
}->Label12->Caption="";->Label13->Caption="";->Label14->Caption="";->Label15->Caption="";->Label12->Visible=false;->Label13->Visible=false;->Label14->Visible=false;->Label15->Visible=false;
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: BitBtn3Click (TObject *Sender)
{=
(int**) calloc (n,sizeof (int*));(i=0; i<n; i++)[i] = (int*) calloc
(m,sizeof (int));(i=0; i<n; i++)(j=0; j<m; j++)
{[i]
[j] =rand () %100;
}(i=0;
i<n; i++)(j=0; j<m; j++)
{->StringGrid1->Cells
[j+1] [i+1] =IntToStr (A [i] [j]);
}= (int**)
calloc (k,sizeof (int*));(i=0; i<k; i++)[i] = (int*) calloc (l,sizeof
(int));(i=0; i<k; i++)(j=0; j<l; j++)
{[i]
[j] =rand () %100;
}(i=0;
i<k; i++)(j=0; j<l; j++)
{->StringGrid2->Cells
[j+1] [i+1] =IntToStr (B [i] [j]);
}
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: N9Click (TObject *Sender)
{=
(int**) calloc (n,sizeof (int*));(i=0; i<n; i++)[i] = (int*) calloc
(m,sizeof (int));(i=0; i<n; i++)(j=0; j<m; j++)
{[i]
[j] =rand () %100;
}(i=0;
i<n; i++)(j=0; j<m; j++)
{->StringGrid1->Cells
[j+1] [i+1] =IntToStr (A [i] [j]);
}=
(int**) calloc (k,sizeof (int*));(i=0; i<k; i++)[i] = (int*) calloc
(l,sizeof (int));(i=0; i<k; i++)(j=0; j<l; j++)
{[i]
[j] =rand () %100;
}(i=0;
i<k; i++)(j=0; j<l; j++)
{->StringGrid2->Cells
[j+1] [i+1] =IntToStr (B [i] [j]);
}
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: N13Click (TObject *Sender)
{=
(int**) calloc (n,sizeof (int*));(i=0; i<n; i++)[i] = (int*) calloc
(m,sizeof (int));(i=0; i<n; i++)(j=0; j<m; j++)
{[i]
[j] =rand () %10;
}(i=0;
i<n; i++)(j=0; j<m; j++)
{->StringGrid1->Cells
[j+1] [i+1] =IntToStr (A [i] [j]);
}=
(int**) calloc (k,sizeof (int*));(i=0; i<k; i++)[i] = (int*) calloc (l,sizeof
(int));(i=0; i<k; i++)(j=0; j<l; j++)
{[i]
[j] =rand () %10;
}(i=0;
i<k; i++)(j=0; j<l; j++)
{->StringGrid2->Cells
[j+1] [i+1] =IntToStr (B [i] [j]);
}
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: N12Click (TObject *Sender)
{=
(int**) calloc (k,sizeof (int*));(i=0; i<k; i++)[i] = (int*) calloc
(l,sizeof (int));(i=0; i<k; i++)(j=0; j<l; j++)
{[i]
[j] =rand () %10;
}(i=0;
i<k; i++)(j=0; j<l; j++)
{->StringGrid2->Cells
[j+1] [i+1] =IntToStr (B [i] [j]);
}
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: N11Click (TObject *Sender)
{=
(int**) calloc (n,sizeof (int*));(i=0; i<n; i++)[i] = (int*) calloc
(m,sizeof (int));(i=0; i<n; i++)(j=0; j<m; j++)
{[i] [j]
=rand () %10;
}(i=0;
i<n; i++)(j=0; j<m; j++)
{->StringGrid1->Cells
[j+1] [i+1] =IntToStr (A [i] [j]);
}
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: N6Click (TObject *Sender)
{->ComboBox1->ItemIndex=-1;->ComboBox2->ItemIndex=-1;->ComboBox3->ItemIndex=-1;->ComboBox4->ItemIndex=-1;->Timer1->Enabled=true;->Button1->Visible=false;->Close
();->Memo1->Lines->Clear ();(i=1; i<n+1; i++)(j=1; j<m+1; j++)
{->StringGrid1->Cells
[j] [i] ="";
}(i=1;
i<k+1; i++)(j=1; j<l+1; j++)
{->StringGrid2->Cells
[j] [i] ="";
}->Label12->Caption="";->Label13->Caption="";->Label14->Caption="";->Label15->Caption="";->Label12->Visible=false;->Label13->Visible=false;->Label14->Visible=false;->Label15->Visible=false;->BitBtn3->Visible=false;->BitBtn4->Visible=false;->BitBtn5->Visible=false;->BitBtn6->Visible=false;->StringGrid1->Visible=false;->StringGrid2->Visible=false;->Label10->Visible=false;->Label11->Visible=false;->N8->Enabled=false;->N2->Enabled=false;->N7->Enabled=true;->BitBtn2->Visible=true;->ComboBox1->Visible=true;->ComboBox2->Visible=true;->ComboBox3->Visible=true;->ComboBox4->Visible=true;->Label13->Visible=true;->Label14->Visible=true;->Label9->Visible=true;->Label3->Visible=true;->Label4->Visible=true;->Label5->Visible=true;->Label6->Visible=true;->Label7->Visible=true;->Label8->Visible=true;
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: StringGrid1KeyPress (TObject *Sender, char &Key)
{(Key=='!
') Key=0;(Key=='~') Key=0;(Key=='@') Key=0;(Key=='#') Key=0;(Key=='$')
Key=0;(Key=='%') Key=0;(Key=='^') Key=0;(Key=='&') Key=0;(Key=='*')
Key=0;(Key==' (') Key=0;(Key==') ') Key=0;(Key=='-') Key=0;(Key=='_')
Key=0;(Key=='=') Key=0;(Key=='+') Key=0;(Key=='"') Key=0;(Key=='¹') Key=0;(Key=='; ') Key=0;(Key==': ') Key=0;(Key=='? ')
Key=0;(Key=='{') Key=0;(Key=='}') Key=0;(Key==' [') Key=0;(Key=='] ')
Key=0;(Key==' ') Key=0;(Key==',') Key=0;(Key=='. ') Key=0;(Key=='<')
Key=0;(Key=='>') Key=0;(Key=='/') Key=0;(Key=='|') Key=0;(Key=='/') Key=0;(Key=='é') Key=0;(Key=='ö') Key=0;(Key=='ó') Key=0;(Key=='ê') Key=0;(Key=='å') Key=0;(Key=='í') Key=0;(Key=='ã') Key=0;(Key=='ø') Key=0;(Key=='ù') Key=0;(Key=='ç') Key=0;(Key=='õ') Key=0;(Key=='ú') Key=0;(Key=='¸') Key=0;(Key=='ô') Key=0;(Key=='û') Key=0;(Key=='â') Key=0;(Key=='à') Key=0;(Key=='ï') Key=0;(Key=='ð') Key=0;(Key=='î') Key=0;(Key=='ë') Key=0;(Key=='ä') Key=0;(Key=='æ') Key=0;(Key=='ý') Key=0;(Key=='ÿ') Key=0;(Key=='÷') Key=0;(Key=='ñ') Key=0;(Key=='ì') Key=0;(Key=='è') Key=0;(Key=='ò') Key=0;(Key=='ü') Key=0;(Key=='á') Key=0;(Key=='þ') Key=0;(Key=='¨') Key=0;(Key=='É') Key=0;(Key=='Ö') Key=0;(Key=='Ó') Key=0;(Key=='Ê') Key=0;(Key=='Å') Key=0;(Key=='Í') Key=0;(Key=='Ã') Key=0;(Key=='Ø') Key=0;(Key=='Ù') Key=0;(Key=='Õ') Key=0;(Key=='Ú') Key=0;(Key=='Ô') Key=0;(Key=='Û') Key=0;(Key=='Â') Key=0;(Key=='À') Key=0;(Key=='Ï') Key=0;(Key=='Ð') Key=0;(Key=='Î') Key=0;(Key=='Ë') Key=0;(Key=='Ä') Key=0;(Key=='Æ') Key=0;(Key=='Ý') Key=0;(Key=='ß') Key=0;(Key=='×') Key=0;(Key=='Ñ') Key=0;(Key=='Ì') Key=0;(Key=='È') Key=0;(Key=='Ò') Key=0;(Key=='Ü') Key=0;(Key=='Á') Key=0;(Key=='Þ') Key=0;(Key=='q') Key=0;(Key=='w') Key=0;(Key=='e')
Key=0;(Key=='r') Key=0;(Key=='t') Key=0;(Key=='y') Key=0;(Key=='u')
Key=0;(Key=='i') Key=0;(Key=='o') Key=0;(Key=='p') Key=0;(Key=='a')
Key=0;(Key=='s') Key=0;(Key=='d') Key=0;(Key=='f') Key=0;(Key=='g')
Key=0;(Key=='h') Key=0;(Key=='j') Key=0;(Key=='k') Key=0;(Key=='l')
Key=0;(Key=='z') Key=0;(Key=='x') Key=0;(Key=='c') Key=0;(Key=='v')
Key=0;(Key=='b') Key=0;(Key=='n') Key=0;(Key=='m') Key=0;(Key=='Q')
Key=0;(Key=='W') Key=0;(Key=='E') Key=0;(Key=='R') Key=0;(Key=='T')
Key=0;(Key=='Y') Key=0;(Key=='U') Key=0;(Key=='I') Key=0;(Key=='O')
Key=0;(Key=='P') Key=0;(Key=='A') Key=0;(Key=='S') Key=0;(Key=='D') Key=0;(Key=='F')
Key=0;(Key=='G') Key=0;(Key=='H') Key=0;(Key=='J') Key=0;(Key=='K')
Key=0;(Key=='L') Key=0;(Key=='Z') Key=0;(Key=='X') Key=0;(Key=='C')
Key=0;(Key=='V') Key=0;(Key=='B') Key=0;(Key=='N') Key=0;(Key=='M') Key=0;(Key=='Ç') Key=0;(Key=='`') Key=0;(Key=='\'') Key=0;(Key=='\\') Key=0;
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: StringGrid2KeyPress (TObject *Sender, char &Key)
{(Key=='\\')
Key=0;(Key=='\'') Key=0;(Key=='! ') Key=0;(Key=='~') Key=0;(Key=='@')
Key=0;(Key=='#') Key=0;(Key=='$') Key=0;(Key=='%') Key=0;(Key=='^')
Key=0;(Key=='&') Key=0;(Key=='*') Key=0;(Key==' (') Key=0;(Key==') ')
Key=0;(Key=='-') Key=0;(Key=='_') Key=0;(Key=='=') Key=0;(Key=='+')
Key=0;(Key=='"') Key=0;(Key=='¹') Key=0;(Key=='; ')
Key=0;(Key==': ') Key=0;(Key=='? ') Key=0;(Key=='{') Key=0;(Key=='}')
Key=0;(Key==' [') Key=0;(Key=='] ') Key=0;(Key==' ') Key=0;(Key==',')
Key=0;(Key=='. ') Key=0;(Key=='<') Key=0;(Key=='>') Key=0;(Key=='/')
Key=0;(Key=='|') Key=0;(Key=='/') Key=0;(Key=='é') Key=0;(Key=='ö') Key=0;(Key=='ó') Key=0;(Key=='ê') Key=0;(Key=='å') Key=0;(Key=='í') Key=0;(Key=='ã') Key=0;(Key=='ø') Key=0;(Key=='ù') Key=0;(Key=='ç') Key=0;(Key=='õ') Key=0;(Key=='ú') Key=0;(Key=='¸') Key=0;(Key=='ô') Key=0;(Key=='û') Key=0;(Key=='â') Key=0;(Key=='à') Key=0;(Key=='ï') Key=0;(Key=='ð') Key=0;(Key=='î') Key=0;(Key=='ë') Key=0;(Key=='ä') Key=0;(Key=='æ') Key=0;(Key=='ý') Key=0;(Key=='ÿ') Key=0;(Key=='÷') Key=0;(Key=='ñ') Key=0;(Key=='ì') Key=0;(Key=='è') Key=0;(Key=='ò') Key=0;(Key=='ü') Key=0;(Key=='á') Key=0;(Key=='þ') Key=0;(Key=='¨') Key=0;(Key=='É') Key=0;(Key=='Ö') Key=0;(Key=='Ó') Key=0;(Key=='Ê') Key=0;(Key=='Å') Key=0;(Key=='Í') Key=0;(Key=='Ã') Key=0;(Key=='Ø') Key=0;(Key=='Ù') Key=0;(Key=='Õ') Key=0;(Key=='Ú') Key=0;(Key=='Ô') Key=0;(Key=='Û') Key=0;(Key=='Â') Key=0;(Key=='À') Key=0;(Key=='Ï') Key=0;(Key=='Ð') Key=0;(Key=='Î') Key=0;(Key=='Ë') Key=0;(Key=='Ä') Key=0;(Key=='Æ') Key=0;(Key=='Ý') Key=0;(Key=='ß') Key=0;(Key=='×') Key=0;(Key=='Ñ') Key=0;(Key=='Ì') Key=0;(Key=='È') Key=0;(Key=='Ò') Key=0;(Key=='Ü') Key=0;(Key=='Á') Key=0;(Key=='Þ') Key=0;(Key=='q')
Key=0;(Key=='w') Key=0;(Key=='e') Key=0;(Key=='r') Key=0;(Key=='t')
Key=0;(Key=='y') Key=0;(Key=='u') Key=0;(Key=='i') Key=0;(Key=='o') Key=0;(Key=='p')
Key=0;(Key=='a') Key=0;(Key=='s') Key=0;(Key=='d') Key=0;(Key=='f')
Key=0;(Key=='g') Key=0;(Key=='h') Key=0;(Key=='j') Key=0;(Key=='k')
Key=0;(Key=='l') Key=0;(Key=='z') Key=0;(Key=='x') Key=0;(Key=='c')
Key=0;(Key=='v') Key=0;(Key=='b') Key=0;(Key=='n') Key=0;(Key=='m')
Key=0;(Key=='Q') Key=0;(Key=='W') Key=0;(Key=='E') Key=0;(Key=='R')
Key=0;(Key=='T') Key=0;(Key=='Y') Key=0;(Key=='U') Key=0;(Key=='I')
Key=0;(Key=='O') Key=0;(Key=='P') Key=0;(Key=='A') Key=0;(Key=='S')
Key=0;(Key=='D') Key=0;(Key=='F') Key=0;(Key=='G') Key=0;(Key=='H')
Key=0;(Key=='J') Key=0;(Key=='K') Key=0;(Key=='L') Key=0;(Key=='Z')
Key=0;(Key=='X') Key=0;(Key=='C') Key=0;(Key=='V') Key=0;(Key=='B')
Key=0;(Key=='N') Key=0;(Key=='M') Key=0;(Key=='Ç') Key=0;(Key=='`') Key=0;
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: N8Click (TObject *Sender)
{=false;=false;(i=0;
i<n; i++)(j=0; j<m; j++)
{(Form1->StringGrid1->Cells
[j+1] [i+1] =="")=true;
}(i=0;
i<k; i++)(j=0; j<l; j++)
{(Form1->StringGrid2->Cells
[j+1] [i+1] =="")=true;
}(
(s==false) && (d==false))
{=
(int**) calloc (n,sizeof (int*));(i=0; i<n; i++)[i] = (int*) calloc
(m,sizeof (int));(i=0; i<n; i++)(j=0; j<m; j++)
{[i]
[j] =StrToInt (Form1->StringGrid1->Cells [j+1] [i+1]);
}=
(int**) calloc (k,sizeof (int*));(i=0; i<k; i++)[i] = (int*) calloc
(l,sizeof (int));(i=0; i<k; i++)(j=0; j<l; j++)
{[i]
[j] =StrToInt (Form1->StringGrid2->Cells [j+1] [i+1]);
}(Form1->SaveDialog1->Execute
())
{*File=new
TStringList;>Add (Form1->ComboBox1->Text);>Add
(Form1->ComboBox2->Text);(i=0; i<n; i++)(j=0; j<m; j++)>Add (A
[i] [j]);>Add (Form1->ComboBox3->Text);>Add
(Form1->ComboBox4->Text);(i=0; i<k; i++)(j=0; j<l; j++)>Add (B
[i] [j]);>SaveToFile (Form1->SaveDialog1->FileName+". txt");
}
{;
}
}
{("");;
}
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: N7Click (TObject *Sender)
{(Form1->OpenDialog1->Execute
())
{->Memo1->Lines->Clear
();(i=1; i<n+1; i++)(j=1; j<m+1; j++)
{->StringGrid1->Cells
[j] [i] ="";
}(i=1;
i<k+1; i++)(j=1; j<l+1; j++)
{->StringGrid2->Cells
[j] [i] ="";
}->Label12->Caption="";->Label13->Caption="";->Label14->Caption="";->Label15->Caption="";->Label12->Visible=false;->Label13->Visible=false;->Label14->Visible=false;->Label15->Visible=false;*File=new
TStringList;>LoadFromFile (Form1->OpenDialog1->FileName);=File [0]
[0];=File [0] [1];=StrToInt (str);=StrToInt (st);= (n*m)
+2;=1;->StringGrid1->ColCount=n;->StringGrid1->RowCount=m;(i=0;
i<n; i++)(j=0; j<m; j++)
{
h++;->StringGrid1->Cells [j+1] [i+1] =File [0] [h];
}->StringGrid1->Visible=true;=File
[0] [a];=File [0] [a+1];=StrToInt (gh);=StrToInt
(lk);->StringGrid1->ColCount=m+1;->StringGrid1->RowCount=n+1;->StringGrid1->FixedCols=1;->StringGrid1->FixedRows=1;->StringGrid2->ColCount=l+1;->StringGrid2->RowCount=k+1;->StringGrid2->FixedCols=1;->StringGrid2->FixedRows=1;->StringGrid1->Cells
[0] [0] ="i / j";->StringGrid2->Cells [0] [0] ="i /
j";(i=1; i<n+1; i++)
{->StringGrid1->Cells
[0] [i] =StrToInt (i);
}(j=1;
j<m+1; j++)
{->StringGrid1->Cells
[j] [0] =StrToInt (j);
}(i=1;
i<k+1; i++)
{->StringGrid2->Cells
[0] [i] =StrToInt (i);
}(j=1;
j<l+1; j++)
{->StringGrid2->Cells
[j] [0] =StrToInt (j);
}->StringGrid2->Visible=true;=a+1;(i=0;
i<k; i++)(j=0; j<l; j++)
{ a++;->StringGrid2->Cells
[j+1] [i+1] =File [0] [a];
}->StringGrid2->Visible=true;->Label9->Visible=false;->Label10->Visible=true;->Label11->Visible=true;->BitBtn3->Visible=true;->BitBtn4->Visible=true;->BitBtn5->Visible=true;->BitBtn6->Visible=true;->N7->Enabled=false;->N8->Enabled=true;->N2->Enabled=true;->Label10->Caption="
= "+IntToStr (n) +" x "+IntToStr
(m);->Label11->Caption="B = "+IntToStr (k) +" x
"+IntToStr (l);
}
{;
}
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: N4Click (TObject *Sender)
{(Handle,"Open","sprawka.
chm",NULL,NULL,SW_RESTORE);
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: Button1Click (TObject *Sender)
{her=false;het=false;(i=0;
i<n; i++)(j=0; j<m; j++)
{(Form1->StringGrid1->Cells
[j+1] [i+1] =="")=true;
}(i=0;
i<k; i++)(j=0; j<l; j++)
{(Form1->StringGrid2->Cells
[j+1] [i+1] =="")=true;
}(
(her==false) && (het==false))
{=
(int**) calloc (n,sizeof (int*));(i=0; i<n; i++)[i] = (int*) calloc
(m,sizeof (int));(i=0; i<n; i++)(j=0; j<m; j++)
{[i]
[j] =StrToInt (Form1->StringGrid1->Cells [j+1] [i+1]);
}->Caption=""+IntToStr
(m) +" x "+IntToStr
(n);->StringGrid1->RowCount=m+1;->StringGrid1->ColCount=n+1;->StringGrid1->Cells
[0] [0] ="i /
j";->StringGrid1->FixedRows=1;->StringGrid1->FixedCols=1;(i=1;
i<m+1; i++)
{->StringGrid1->Cells
[0] [i] =StrToInt (i);
}(j=1;
j<n+1; j++)
{->StringGrid1->Cells
[j] [0] =StrToInt (j);
}(i=0;
i<n; i++)(j=0; j<m; j++)
{->StringGrid1->Cells
[i+1] [j+1] =IntToStr (A [i] [j]);
}->Show
();= (int**) calloc (k,sizeof (int*));(i=0; i<k; i++)[i] = (int*) calloc
(l,sizeof (int));(i=0; i<k; i++)(j=0; j<l; j++)
{[i]
[j] =StrToInt (Form1->StringGrid2->Cells [j+1] [i+1]);
}->Caption=""+IntToStr
(l) +" x "+IntToStr
(k);->StringGrid1->RowCount=l+1;->StringGrid1->ColCount=k+1;->StringGrid1->Cells
[0] [0] ="i /
j";->StringGrid1->FixedRows=1;->StringGrid1->FixedCols=1;(i=1;
i<l+1; i++)
{->StringGrid1->Cells
[0] [i] =StrToInt (i);
}(j=1;
j<k+1; j++)
{->StringGrid1->Cells
[j] [0] =StrToInt (j);
}(i=0;
i<k; i++)(j=0; j<l; j++)
{->StringGrid1->Cells
[i+1] [j+1] =IntToStr (B [i] [j]);
}->Show
();
}
{("!!!");
}
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: n3Click (TObject *Sender)
{her=false;(i=0;
i<n; i++)(j=0; j<m; j++)
{(Form1->StringGrid1->Cells
[j+1] [i+1] =="")=true;
}(her==false)
{=
(int**) calloc (n,sizeof (int*));(i=0; i<n; i++)[i] = (int*) calloc
(m,sizeof (int));(i=0; i<n; i++)(j=0; j<m; j++)
{[i]
[j] =StrToInt (Form1->StringGrid1->Cells [j+1] [i+1]);
}->Caption=""+IntToStr
(m) +" x "+IntToStr
(n);->StringGrid1->RowCount=m+1;->StringGrid1->ColCount=n+1;->StringGrid1->Cells
[0] [0] ="i /
j";->StringGrid1->FixedRows=1;->StringGrid1->FixedCols=1;(i=1;
i<m+1; i++)
{->StringGrid1->Cells
[0] [i] =StrToInt (i);
}(j=1;
j<n+1; j++)
{->StringGrid1->Cells
[j] [0] =StrToInt (j);
}(i=0;
i<n; i++)(j=0; j<m; j++)
{->StringGrid1->Cells
[i+1] [j+1] =IntToStr (A [i] [j]);
}->Show
();
}
{("!!!");
}
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: N10Click (TObject *Sender)
{het=false;(i=0;
i<k; i++)(j=0; j<l; j++)
{(Form1->StringGrid2->Cells
[j+1] [i+1] =="")=true;
}(het==false)
{=
(int**) calloc (k,sizeof (int*));(i=0; i<k; i++)[i] = (int*) calloc
(l,sizeof (int));(i=0; i<k; i++)(j=0; j<l; j++)
{[i]
[j] =StrToInt (Form1->StringGrid2->Cells [j+1] [i+1]);
}->Caption=""+IntToStr
(l) +" x "+IntToStr
(k);->StringGrid1->RowCount=l+1;->StringGrid1->ColCount=k+1;->StringGrid1->Cells
[0] [0] ="i /
j";->StringGrid1->FixedRows=1;->StringGrid1->FixedCols=1;(i=1;
i<l+1; i++)
{->StringGrid1->Cells
[0] [i] =StrToInt (i);
}(j=1;
j<k+1; j++)
{->StringGrid1->Cells
[j] [0] =StrToInt (j);
}(i=0;
i<k; i++)(j=0; j<l; j++)
{->StringGrid1->Cells
[i+1] [j+1] =IntToStr (B [i] [j]);
}->Show
();
}
{("!!!");
}
}
//
---------------------------------------------------------------------------__fastcall
TForm1:: N19Click (TObject *Sender)
{her=false;het=false;(i=0;
i<n; i++)(j=0; j<m; j++)
{(Form1->StringGrid1->Cells
[j+1] [i+1] =="")=true;
}(i=0;
i<k; i++)(j=0; j<l; j++)
{(Form1->StringGrid2->Cells
[j+1] [i+1] =="")=true;
}(
(her==false) && (het==false))
{=
(int**) calloc (n,sizeof (int*));(i=0; i<n; i++)[i] = (int*) calloc
(m,sizeof (int));(i=0; i<n; i++)(j=0; j<m; j++)
{[i]
[j] =StrToInt (Form1->StringGrid1->Cells [j+1] [i+1]);
}->Caption=""+IntToStr
(m) +" x "+IntToStr
(n);->StringGrid1->RowCount=m+1;->StringGrid1->ColCount=n+1;->StringGrid1->Cells
[0] [0] ="i / j";->StringGrid1->FixedRows=1;->StringGrid1->FixedCols=1;(i=1;
i<m+1; i++)
{->StringGrid1->Cells
[0] [i] =StrToInt (i);
}(j=1;
j<n+1; j++)
}(i=0;
i<n; i++)(j=0; j<m; j++)
{->StringGrid1->Cells
[i+1] [j+1] =IntToStr (A [i] [j]);
}->Show
();= (int**) calloc (k,sizeof (int*));(i=0; i<k; i++)[i] = (int*) calloc
(l,sizeof (int));(i=0; i<k; i++)(j=0; j<l; j++)
{[i]
[j] =StrToInt (Form1->StringGrid2->Cells [j+1] [i+1]);
}->Caption=""+IntToStr
(l) +" x "+IntToStr (k);->StringGrid1->RowCount=l+1;->StringGrid1->ColCount=k+1;->StringGrid1->Cells
[0] [0] ="i /
j";->StringGrid1->FixedRows=1;->StringGrid1->FixedCols=1;(i=1;
i<l+1; i++)
{->StringGrid1->Cells
[0] [i] =StrToInt (i);
}(j=1; j<k+1;
j++)
{
Form4->StringGrid1->Cells
[j] [0] =StrToInt (j);
}(i=0;
i<k; i++)(j=0; j<l; j++)
{->StringGrid1->Cells
[i+1] [j+1] =IntToStr (B [i] [j]);
}->Show
();
}
{("!!!");
}
}
//
-----------------------------------------------------------------------------------------
#include
<vcl. h>
#pragma
hdrstop
#include
"Unit2. h"
#include
"Unit1. h"
//
---------------------------------------------------------------------------
#pragma
package (smart_init)
#pragma
resource "*. dfm"*Form2;
//
---------------------------------------------------------------------------
__fastcall
TForm2:: TForm2 (TComponent* Owner)
:
TForm (Owner)
{
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: FormClose (TObject *Sender, TCloseAction &Action)
{->Memo1->Lines->Clear
();
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: Form1N10Click (TObject *Sender)
{i;(PrintDialog1->Execute
()) {() - >BeginDoc ();() - >Canvas->Font->Pitch=fpFixed;(int i =
0; i < Memo1->Lines->Count; i++)
{() -
>Canvas->TextOut (200, 200 +
(i*Printer
() - >Canvas->TextHeight (Memo1->Lines->Strings [i])),(i+1) +"
"+Memo1->Lines->Strings [i]);() - >EndDoc ();
}
}
{("");
}
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: N2Click (TObject *Sender)
{->Close
();
}
//
---------------------------------------------------------------------------__fastcall
TForm2:: N1Click (TObject *Sender)
{(Form1->SaveDialog1->Execute
())
{->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"*Form3;
//
---------------------------------------------------------------------------
__fastcall
TForm3:: TForm3 (TComponent* Owner)
:
TForm (Owner)
{
}
//
---------------------------------------------------------------------------__fastcall
TForm3:: N1Click (TObject *Sender)
{(Form3->SaveDialog1->Execute
())
{i,j;*list=new
TStringList;>Add (Form3->Caption);>Add (' ');(i=0;
i<Form3->StringGrid1->RowCount; i++)
{(j=0;
j<Form3->StringGrid1->ColCount; j++)>Append
(Form3->StringGrid1->Cells [j+1] [i+1]);
}>SaveToFile
(Form3->SaveDialog1->FileName+". txt");
}
}
//
---------------------------------------------------------------------------__fastcall
TForm3:: N2Click (TObject *Sender)
{->Close
();
}
//
---------------------------------------------------------------------------
#include
<vcl. h>
#pragma
hdrstop
#include
"Unit4. h"
#include
"Unit1. h"
//
---------------------------------------------------------------------------
#pragma
package (smart_init)
#pragma
resource "*. dfm"*Form4;
//
---------------------------------------------------------------------------
__fastcall
TForm4:: TForm4 (TComponent* Owner)
:
TForm (Owner)
{
}
//
---------------------------------------------------------------------------__fastcall
TForm4:: N1Click (TObject *Sender)
{->Close
();
}
//
---------------------------------------------------------------------------__fastcall
TForm4:: c1Click (TObject *Sender)
{(Form4->SaveDialog1->Execute
())
{i,j;*list=new
TStringList;>Add (Form4->Caption);>Add (' ');(i=0;
i<Form4->StringGrid1->RowCount; i++)
{(j=0;
j<Form4->StringGrid1->ColCount; j++)>Append
(Form4->StringGrid1->Cells [j+1] [i+1]);
}>SaveToFile
(Form4->SaveDialog1->FileName+". txt");
}
}