Из Pasacal в C++

@Виктор27 · Регистрация: 21.11.2013

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

Здравствуйте уважаемые форумчане. Выручите пожалуйста кодиком. Есть код на Pascal надо его переписать на С++. Я с паскалем не дружу. Прошу Вашей помощи:

Pascal

Pascal

CONST
    CMaxInp     = 20;
    CMaxOut     = 10;
    CMaxImages  = 200;
    CEta        = 0.75;
  
TYPE
    TMatrix     = ARRAY[0..CMaxInp,1..CMaxOut] OF REAL;
                    (* Нулевой столбец содержит значения порогов *)
    TInpVector  = ARRAY[1..CMaxInp] OF REAL;
    TOutVector  = ARRAY[1..CMaxOut] OF REAL;
 
    TPerceptron = RECORD   
        NInp : INTEGER;     (* Число входов *)
        NOut : INTEGER;     (* Число выходов *)
        Inp  : TInpVector;  (* Текущий вектор входов *)
        Out  : TOutVector;  (* Текущий вектор выходов *)
        W    : Tmatrix;     (* Матрица связей *)
    END;
 
    TBaseRecord = RECORD
        X    : TInpVector;
        Y    : TOutVector;
    END;

Начало то понятно:

C++

const int CMaxInp = 20;
const int CMaxOut = 10; 
const int CMaxImages = 200; 
const double CEta = 0.75;
int main()
{
    
    return 0;
}

А как дальше?

@Selot · 23.10.2016, 13:43

C++

    const int CMaxInp      = 20;
    const int CMaxOut     = 10;
    const int CMaxImages = 200;
    const double CEta       = 0.75;
  
using TMatrix = double[CMaxInp+1][CMaxOut];
using TInpVector = double[CMaxInp];
using TOutVector = double[CMaxOut];
 
struct TPerceptron
{
        int            NInp;    // Число входов
        int            NOut;    // Число выходов
        TInpVector Inp;     // Текущий вектор входов
        TOutVector Out;     // Текущий вектор выходов
        Tmatrix     W;       // Матрица связей
};
 
struct TBaseRecor
{
        TInpVector X;
        TOutVector Y ;
};

@Виктор27 · 23.10.2016, 14:52 **[ТС]**

Selot, Спасибо))) А ка быть с этим?

Pascal

 TBase = RECORD
        NImages : INTEGER;  (* Число обучающих образов *)
        Images  : ARRAY[1..CMaxImages] OF TBaseRecord;
    END;

Если так:

C++

using TBaseRecord = double[CMaxImages];
struct TBase
{
    int NImages;
    TBaseRecord Images;
};

то компилятор говорит: error C2371: TBaseRecord: переопределение; различные базовые типы

@Selot · 23.10.2016, 15:04

Виктор27, тип TBaseRecord уже где-то определен. Попробуйте изменить имя TBaseRecord. К примеру на TBaseRecord1.

@nmcf · 23.10.2016, 15:06

C++

struct TBase
{
    int NImages;
    TBaseRecord Images[CMaxImages];
};

@Виктор27 · 23.10.2016, 15:53 **[ТС]**

Я опять застрял

Pascal

PROCEDURE InitAll;
VAR
    Li, Lj, Lk : INTEGER;
BEGIN
    WITH VNet, VBase DO
    BEGIN
        NInp := 10;
        NOut := 1;
        FOR Li := 0 TO NInp DO
            FOR Lj := 1 TO NOut DO
                 W[Li,Lj] := CInitWeight*(RANDOM-0.5);
    END;
    VOK := TRUE;
END;

Помогите пожалуйста.

@nmcf · 23.10.2016, 17:09

Примерно так:

C++

void InitAll()
{
    //...
 
    for (int Li = 0; Li <= NInp; ++Li)
        for (int Lj = 0; Lj < NOut; ++Lj)
            W[Li][Lj] = CInitWeight * (static_cast<double>(rand()) / RAND_MAX - 0.5);
 
    VOK = true;
}

Индексы проверь и допиши строки 7-8. Не видно, к чему эти поля относятся.

@Selot 192 / 128 / 52 Регистрация: 19.01.2010 Сообщений: 518
	23.10.2016, 15:04	4
	Виктор27, тип TBaseRecord уже где-то определен. Попробуйте изменить имя TBaseRecord. К примеру на TBaseRecord1. 1

	23.10.2016, 17:09

Из Pasacal в C++

Решение