Проверьте правильность кода (обработка значений матрицы)

@Sailarn · Регистрация: 14.03.2016

Author24 — интернет-сервис помощи студентам

Задание ниже:
1) Вычислить матрицу по формуле.
$https://www.cyberforum.ru/cgi-bin/latex.cgi?{a}_{ij}=2({2}^{i+1})(i-3,9)(j\left|2-\frac{3}{i+1} \right|)$ , где i=0,...,4; j=0,...,5.
2) Найти максимальное значение в каждой строке и составить из них вектор.
x_i - наибольший элемент i-той строки матрицы a.
3) Рассчитать по формуле используя полученный вектор.
$https://www.cyberforum.ru/cgi-bin/latex.cgi?G=\sqrt{\frac{\sum_{i=0}^{n}{{x}_{i}}^{2}}{\left|\ln \left|\prod_{i=0}^{n}{x}_{i} \right| \right|}}$
Вот код:

C++

// Объявление глобальных переменных
typedef float matr[ 5 ][ 6 ];
typedef float vect[ 5 ];
int i, j;
 
// Вычисление матрицы с помощью формулы (подпрограмма)
void elem_matr( matr a )
{
    for ( i = 0; i < 5; i++ )
    {
        for ( j = 0; j < 6; j++ )
        {
            a[ i ][ j ] = 2 * ( pow( 2, i + 1 ) ) * ( i - 3.9 ) * ( j * fabs( 2 - ( 3 / ( 1 + i ) ) ) );
        }
    }
}
 
// Вычисление вектора (подпрограмма) x=max
void elem_vect( matr a, vect & x )
{
    for ( i = 0; i < 5; i++ )
    {
        x[ i ] = a[ i ][ 0 ];
        for ( j = 0; j < 6; j++ )
        {
            if ( a[ i ][ j ] > x[ i ] )
            {
                x[ i ] = a[ i ][ j ];
            }
        }
    }
}
 
// Вычисление функции G
void function( vect x )
{
    float S = 0;
    for ( i = 0; i < 5; i++ )
    {
        S += pow( x[ i ], 2 );
    }
    float P = 1;
    for ( i = 0; i < 5; i++ )
    {
        P *= x[ i ];
    }
    double s = s + sqrt( S / fabs( P ) );
}
 
// Закрытие Программы
void __fastcall TForm1::Ex_itClick( TObject * Sender )
{
    Close( );
}
 
// ---------------------------------------------------------------------------
// Очистка всех ячеек
void __fastcall TForm1::Cle_arClick( TObject * Sender )
{
    for ( i = 0; i < 5; i++ )
    {
        for ( j = 0; j < 6; j++ )
        {
            StringGrid1->Cells[ j ][ i ] = "";
        }
    }
    for ( i = 0; i < 5; i++ )
    {
        for ( j = 0; j < 6; j++ )
        {
            StringGrid2->Cells[ j ][ i ] = "";
        }
    }
    Edit1->Clear( );
}
// ---------------------------------------------------------------------------
 
// Информация об авторе
void __fastcall TForm1::AvtorClick( TObject * Sender )
{
    AboutBox->ShowModal( );
 
}
 
// ---------------------------------------------------------------------------
// Информация о задаче
void __fastcall TForm1::ZadachaClick( TObject * Sender )
{
    AboutBox1->ShowModal( );
}
// ---------------------------------------------------------------------------
 
// Вывод матрицы в StringGrid1
void __fastcall TForm1::Mat_ricClick( TObject * Sender )
{
    matr( a );
    for ( i = 0; i < 5; i++ )
    {
        for ( j = 0; j < 6; j++ )
        {
            StringGrid1->Cells[ j ][ i ] = FloatToStr( a[ i ][ j ] );
        }
    }
 
}
// ---------------------------------------------------------------------------
 
// Вывод вектора в StringGrid2
void __fastcall TForm1::Vec_torClick( TObject * Sender )
{
    matr a;
    vect x;
    elem_vect( a, x );
    for ( i = 0; i < 5; i++ )
    {
        StringGrid2->Cells[ 0 ][ i ] = FloatToStr( x[ i ] );
    }
 
}
// ---------------------------------------------------------------------------
 
// Вывод значения функции в Edit1
void __fastcall TForm1::FuncClick( TObject * Sender )
{
    vect max;
    float s;
    Edit1->Text = FloatToStr( s );
 
}
// ---------------------------------------------------------------------------

Поправьте, если не правильно, пожалуйста.

@D1973 · 19.03.2016, 11:25

Sailarn, программа не считает? Выпадают какие-то ошибки? В чем вопрос-то?

@Sailarn · 19.03.2016, 13:19 **[ТС]**

Все работает, ошибок нет. Но работает неправильно. В вектор он должен вбивать максимальные значения с каждой
строки, но работает только с двумя. Да и сомнения у меня по поводу формулы. Числа какие-то не очень. Так и должно быть?

@Sailarn · 19.03.2016, 14:06 **[ТС]**

Значения:

@gunslinger · 20.03.2016, 14:42

Может в пункте 1) индексация начинается не с 0, а с 1?
В строке 47 не учитывается логарифм.

C++

1	sqrt( S / fabs( log ( fabs ( P ) ) ) )

"Общий" код:

C++

// Объявление глобальных переменных
float a[ 5 ][ 6 ];
float x[ 5 ];
int i, j;
 
// Вычисление матрицы с помощью формулы (подпрограмма)
void elem_matr( )
{
    for ( i = 1; i <= 5; i++ )
    {
        for ( j = 1; j <= 6; j++ )
        {
            a[ i-1 ][ j-1 ] = 2 * ( pow( 2, i + 1 ) ) * ( i - 3.9 ) * ( j * fabs( 2 - ( 3. / ( 1 + i ) ) ) );
        }
    }
}
 
// Вычисление вектора (подпрограмма) x=max
void elem_vect( )
{
    for ( i = 0; i < 5; i++ )
    {
        x[ i ] = a[ i ][ 0 ];
        for ( j = 0; j < 6; j++ )
        {
            if ( a[ i ][ j ] > x[ i ] )
            {
                x[ i ] = a[ i ][ j ];
            }
        }
    }
}
 
// Вычисление функции G
float function( )
{
    float S = 0;
    for ( i = 0; i < 5; i++ )
    {
        S += pow( x[ i ], 2 );
    }
    float P = 1;
    for ( i = 0; i < 5; i++ )
    {
        P *= x[ i ];
    }
    double g = sqrt( S / fabs( log ( fabs ( P ) ) ) );
    return g;
}
 
// Вывод матрицы в StringGrid1
void __fastcall TForm1::Mat_ricClick( TObject * Sender )
{
    elem_matr( );
    for ( i = 0; i < 5; i++ )
    {
        for ( j = 0; j < 6; j++ )
        {
            StringGrid1->Cells[ j ][ i ] = FloatToStr( a[ i ][ j ] );
        }
    }
}
// ---------------------------------------------------------------------------
 
// Вывод вектора в StringGrid2
void __fastcall TForm1::Vec_torClick( TObject * Sender )
{
    elem_vect( );
    for ( i = 0; i < 5; i++ )
    {
        StringGrid2->Cells[ 0 ][ i ] = FloatToStr( x[ i ] );
    }
 
}
// ---------------------------------------------------------------------------
 
// Вывод значения функции в Edit1
void __fastcall TForm1::FuncClick( TObject * Sender )
{
    float s = function( );
    Edit1->Text = FloatToStr( s );
}
// ---------------------------------------------------------------------------

@Sailarn · 20.03.2016, 16:10 **[ТС]**

Огромное спасибо. Прям глаза открыл на некоторые вещи. Серьёзно.

@D1973 Модератор 9270 / 6048 / 2380 Регистрация: 21.01.2014 Сообщений: 25,828 Записей в блоге: 3
	19.03.2016, 11:25	2
	Sailarn, программа не считает? Выпадают какие-то ошибки? В чем вопрос-то? 0

@Sailarn 0 / 0 / 0 Регистрация: 14.03.2016 Сообщений: 6
	19.03.2016, 13:19 [ТС]	3
	Все работает, ошибок нет. Но работает неправильно. В вектор он должен вбивать максимальные значения с каждой строки, но работает только с двумя. Да и сомнения у меня по поводу формулы. Числа какие-то не очень. Так и должно быть? 0

@Sailarn 0 / 0 / 0 Регистрация: 14.03.2016 Сообщений: 6
	19.03.2016, 14:06 [ТС]	4
	Значения: Миниатюры 0

@Sailarn 0 / 0 / 0 Регистрация: 14.03.2016 Сообщений: 6
	20.03.2016, 16:10 [ТС]	6
	Огромное спасибо. Прям глаза открыл на некоторые вещи. Серьёзно. 0

Проверьте правильность кода (обработка значений матрицы)

Решение