Однослойный персептрон

@batenka94 · Регистрация: 26.06.2014

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

Не работает программа в этом месте:

C++
1
2
3
4
5
6
if(h==100){
                        if(Application->MessageBox(0,"Прошло 100 циклов корекции весов.\nЖелаете Прекратить процесс обученя?", "Обучение", MB_YESNO|MB_ICONWARNING)==IDYES){
                                break;
                    }
                        h=0;
                }

Помогите разобраться, пожалуйста!!! Очень срочно!
Весь листинг:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//        if(CheckBox1->Checked = false){
                RadioButton6->Checked = R(w[0]*(RadioButton1->Checked?0:1)+w[1]*(RadioButton3->Checked?0:1));
                RadioButton5->Checked = RadioButton6->Checked?false:true;
//        }
//      else
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        for(int i=0, h=14; i<=3;i++){
                for(int k=0; k<=2;k++){
                        teach[i][k]=(bool)((TComboBox*)Components[h])->ItemIndex;
                        h++;
                }
        }
        h=0;
        while(1){
                f=true;                                                         // проверяем правильность реакции нейронной сети
                for(k=0;k<=3;k++){
                        a=w[0]*(int)teach[k][0] +w[1]*(int)teach[k][1];
                        b=teach[k][2];
                        if(R(a)!=b){
                                f=false;
                                break;
                        }
                }
                if(f){
                        break;
                }else{                                                             // коррекция весов
                        yd=R(w[0]*teach[k][0] +w[1]*teach[k][1]);                  // y действительное
                        yj=teach[k][2];                                            // y желаемое
                        Dy= (int)fabs((int)yd-(int)yj);                            // дельта y
                        w[0]=w[0]+ Dy*(int)teach[k][0];
                        w[1]=w[1]+ Dy*(int)teach[k][1];
 
                }
                Label1->Caption = w[0];
                Label2->Caption = w[1];
                h++;
                if(h==100){
                        if(Application->MessageBox(0,"Прошло 100 циклов корекции весов.\nЖелаете Прекратить процесс обученя?", "Обучение", MB_YESNO|MB_ICONWARNING)==IDYES){
                                break;
                    }
                        h=0;
                }
        }
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
New();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
        f=false;
        New();
        for(int i=0; i<=4;i++){
                for(int j=0; j<=3;j++)
                        teach[i][j]=false;
        }
 
 /*       teach[0][0]=false;                        //обучающая последовательность
        teach[0][1]=false;
        teach[0][2]=false;
 
        teach[1][0]=false;
        teach[1][1]=true;
        teach[1][2]=false;
 
        teach[2][0]=true;
        teach[2][1]=false;
        teach[2][2]=false;
 
        teach[3][0]=true;
        teach[3][1]=true;
        teach[3][2]=true;*/
}
//---------------------------------------------------------------------------

@SatanaXIII · 19.11.2014, 16:41

Сообщение от batenka94

Не работает программа в этом месте:

Опишите хоть как она не работает в этом месте. Может быть ошибки какие пишет (приведите их), просто зависает, что?

@batenka94 · 19.11.2014, 18:39 **[ТС]**

вот ошибки

@VTsaregorodtsev · 19.11.2014, 22:10

batenka94, первый аргумент (нолик) в той строке уберите. Он там лишний.
Этот аргумент нужен для ВинАПИшной МессаджБокс (причём лучше совать не нолик, а хэндл окна программы).

@batenka94 · 22.11.2014, 23:57 **[ТС]**

всё равно не работает, что дальше?

@BRcr · 23.11.2014, 11:14

Сообщение от batenka94

всё равно не работает, что дальше?

Принести вам меню, сэр?

Компилятор же ясно и однозначно говорит, дайте мне указатель на wchar_t, а указатель на char можете себе оставить.

C++
1
Application->MessageBox( L"Прошло 100 циклов корекции весов.\nЖелаете Прекратить процесс обученя?", L"Обучение", MB_YESNO|MB_ICONWARNING )==IDYES)

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@batenka94 0 / 0 / 0 Регистрация: 26.06.2014 Сообщений: 11
	19.11.2014, 18:39 [ТС]
	вот ошибки Миниатюры 0

@VTsaregorodtsev 2629 / 1641 / 266 Регистрация: 19.02.2010 Сообщений: 4,356
	19.11.2014, 22:10
	batenka94, первый аргумент (нолик) в той строке уберите. Он там лишний. Этот аргумент нужен для ВинАПИшной МессаджБокс (причём лучше совать не нолик, а хэндл окна программы). 0

@batenka94 0 / 0 / 0 Регистрация: 26.06.2014 Сообщений: 11
	22.11.2014, 23:57 [ТС]
	всё равно не работает, что дальше? 0