Разработка проекта для обработки матриц

Разработка проекта для обработки матриц Дано: матрица A(N, M) N=3, M=4 Определить: N B(j) = A(i, j) min. B = min B(j) j= 1, N i=1 j jmin = ind j | min. B = B(j)

Требуемый интерфейс

Размещаем объект String. Grid

Результат установления свойств Fixed. Cols=0, Fixed. Rows =0 Col. Count = 4, Row. Count = 3

Установлены все объекты

Чтобы в объект String. Grid можно было вводить информацию с в окне редактора объектов клавиатуры необходимо установить свойство Options->Go. Editing , равное true.

Текст модуля “Unit 1” для события “Button 1 Click” Заголовочная часть • #include • #include • #include • #pragma hdrstop • #include "Unit 1. h" • //-------------------------------------- • #pragma package(smart_init) • #pragma resource "*. dfm" • TForm 1 *Form 1; • //-------------------------------------- • __fastcall TForm 1: : TForm 1(TComponent* Owner) • : TForm(Owner) • { • } • //--------------------------------------

Текст модуля часть 1 • void __fastcall TForm 1: : Button 1 Click(TObject *Sender) • { • int i, j, jmin ; • Ansi. String z; • double x, sum; • char s[81]; • for(j=0; j<4; j++) • { • sum=0; • for(i=0; i<3; i++) • { • z=String. Grid 1 ->Cells[j][i]; • x=Str. To. Float(z); • sum+=x; • } •

Текст модуля часть 2 • z=Float. To. Str. F(sum, ff. Fixed, 7, 2); • String. Grid 2 ->Cells[j][0]=z; • } • min=Str. To. Float(String. Grid 2 ->Cells[0][0]); • jmin=0; • for (j=1; j<4 ; j++) • { • x=Str. To. Float(String. Grid 2 ->Cells[j][0]); • if (xItems->Clear(); • List. Box 1 ->Items->Add(z); • } • //--------------------------------------