По коду необходимо создать EXE-файл...

@supreme1992 · Регистрация: 24.12.2010

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

Здравствуйте! У меня есть программный код на Си++. По коду должен быть создан EXE-файл в программной среде C++ Builder. Можете помочь?

Вот, собственно, и сам код:

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
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
 #include <vcl.h>   //необходимые директивы
#pragma hdrstop
#include "Main.h"
#include <stdio.h>
#pragma package(smart_init)
#pragma resource "*.dfm"
TF_Main *F_Main;    //указатель на форму
int numev=0;    //счетчик, необходимый для смены состояний построения графа
int xy[2][50];  //массив для хранения координат вершин на экране
int kv = 0; //количество вершин
int line;   //переменная, необходимая для формирования матрицы смежности
bool select=false;  
char **matrix;      //выделение памяти для будущей матрицы смежности
AnsiString way; //строка для вывода результатов в файл и на экран
int *buf;   //указатель на буфер
bool mark=false;
int kvdel=0;
FILE *F;    //указатель на файл для вывода промежуточных результатов
//---------------------------------------------------------------------------
__fastcall TF_Main::TF_Main(TComponent* Owner)
        : TForm(Owner)
{     Status->Caption="Статус:\n\n...отмечаем вершины..."; //начальный статус
}
//---------------------------------------------------------------------------
// функция построения графа на компоненте TImage
void __fastcall TF_Main::DeskClick(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
        if (numev==0)   //если нажатий на кнопку «Далее» не производилось, то
        {
 
                Desk->Canvas->Pen->Color=clBlack;   //цвет=черный
                Desk->Canvas->Pen->Width=10;    //толщина пера=10 пикселей
                Desk->Canvas->MoveTo(X,Y);  //ставится точка
                Desk->Canvas->LineTo(X,Y);
                xy[0][kv]=X; //координаты вершины заносятся в массив
                xy[1][kv]=Y;
                Desk->Canvas->TextOutA(X+10, Y+10, AnsiString(kv=kv+1));
        //рядом выводится номер вершины
        }
        if (numev==1) //построение ребер
        {
            for (int i=0; i<kv; i++)
            {
                if ((X>(xy[0][i]-5))&&(X<(xy[0][i]+5)))
                {
                    if ((Y>(xy[1][i]-5))&&(Y<(xy[1][i]+5)))
                    {
                        if (select==false) //если вершина отмечена первой
                        {
                            Desk->Canvas->Pen->Color=clGray; //отметить ее серым цветом
                            Desk->Canvas->Pen->Width=7;
                            Desk->Canvas->MoveTo(xy[0][i],xy[1][i]);
                            Desk->Canvas->LineTo(xy[0][i],xy[1][i]);
                            line=i; //занести в переменную номер вершины
                            select=true; //поставить отметку, что одна вершина уже выделена
                        }
                        else //иначе
                        {
                            Desk->Canvas->Pen->Color=clBlack;
                            Desk->Canvas->Pen->Width=10;
                            Desk->Canvas->MoveTo(xy[0][line],xy[1][line]);
                            Desk->Canvas->LineTo(xy[0][line],xy[1][line]);
                            Desk->Canvas->Pen->Width=3;
                            Desk->Canvas->LineTo(xy[0][i],xy[1][i]); //провести линию
                            matrix[line][i]=1; //поставить отметку о ребре в матрице смежности
                            matrix[i][line]=1;
                            select=false; //ребро построено, выделенных вершин нет
                        }
                        break; 
                    }
                }
            }
        }
}    
//---------------------------------------------------------------------------
//Функция обработки события кнопки «Далее»
void __fastcall TF_Main::BNextClick(TObject *Sender)
{
if (numev==0) //если нажатие производится в первый раз
{
    matrix=new char* [kv];  //создать массив для матрицы смежности
    for (int i=0; i<kv; i++) //обнулить этот массив
    {
        matrix[i]=new char [kv];
        for (int j=0; j<kv; j++)
        {
            matrix[i][j]=0;
        }
    }
    Status->Caption="Статус:\n\n...отмечаем ребра..."; //сменить статус
} 
if (numev==1) //повторное нажатие на кнопку
{
    Status->Caption="Статус:\n\n Готово!"; //смена статуса
    BNext->Enabled=false;
    ResCap->Caption="Результаты:";
    Gamilton(); //вывов функции Gamilton
}
numev++; //увеличение счетчика событий на единицу
}
//---------------------------------------------------------------------------
//Функция поиска гамильтоновых циклов
void __fastcall TF_Main::Gamilton(void)
{
    buf=new int[kv]; //создание буфера
    buf[0]=0;
    for (int i=0; i<kv; i++) //обнуление буфера
    {
        buf[i]=NULL;
    }
    
    F=fopen("Process.txt","wt"); //создание файла для записи
    Ways(0, 1); //вызов функции для поиска новых вершин в цепи
    
}
//---------------------------------------------------------------------------
// Функция для поиска новых вершин в цепи
void __fastcall TF_Main::Ways(int ver, int num)
{
    select=false;
    if (mark==true) //если вершины уже удалялись
    {
        kvdel=buf[num]; //начинать отсчет вершин с
    }
    else kvdel=0; //иначе обнулить этот счетчик
    mark=false;
    for (int i=kvdel; i<kv; i++)    //цикл поиска возможных вершин
    {
        if (matrix[ver][i]==0) continue; //если нет ребра, следующий
        if (Repeat(i,num)) continue;    //если вершина уже была, следующий
        if (i==buf[num]) continue;
        ver=i;
        select=true; //отметка, что вершину нашли
        break;
    }
    if (select==true)   //если вершина найдена
    {
        buf[num]=ver;   //добавить ее в цепь
            num++;  //увеличить счетчик
            Ways(ver, num); //рекурсивно вызвать с новыми параметрами
     }
    else    //если вершина не найдена
    {
        if (num==kv)    //если длина цепи равна количеству вершин
        {
            way=buf[0]+1;   
            for (int i=1; i<kv; i++)
            {
                way+=',';
                    way+=buf[i]+1;
            }
            if (matrix[buf[kv-1]][0]!=0) way+=",1";
            Results->Items->Add(way);   //вывод результата на экран
            way+='\n';
            fprintf(F,way.c_str()); //вывод в файл
        }
       way=buf[0]+1; 
        for (int i=1; i<num; i++)
            {
                way+=',';
                way+=buf[i]+1;
 
            }
            way+='\n';
             fprintf(F,way.c_str());   //вывод промежуточных результатов в файл
        num--;  //уменьшаем счетчик
        mark=false;
        if (num!=0) //если счетчик вершины не равен 0
        {
if (num!=kv-1) buf[num+1]=NULL; //и не равен количеству вершин, то обнулить
// следующую ячейку буфера
            mark=true;  //отметка о удалении вершины
            Ways(buf[num-1], num);  //поиск следующей вершины
        }
        else fclose(F); //все циклы найдены, закрыть файл
    }
}
//---------------------------------------------------------------------------
// Функция проверки на повторы вершин в цепи
int __fastcall TF_Main::Repeat(int i, int num)
{
    for (int j=0; j<num; j++)   //цикл поиска такой же вершины
    {
        if (buf[j]==i) return 1;    //если  такая найдена, то повтор есть
        }
    }
    return 0;   //нет повтора
}

@Flyer · 26.12.2011, 11:39

кроме кода Main.cpp еще бы не плохо было кинуть Main.h & Main.dfm. хотя бы. Но, что мешает самому скомпилировать?

@supreme1992 · 26.12.2011, 12:13 **[ТС]**

к сожалению, нет Main.h & Main.dfm.
самому? не особо разбираюсь, как организовать функцию построения графа на компоненте TImage.

mimicria · 26.12.2011, 13:42

Как-то так
123.ZIP

Прикольно, даже работает чё-то

@supreme1992 · 26.12.2011, 17:09 **[ТС]**

mimicria, спасибо огромное))
выручил)

@softonet · 26.12.2011, 17:35

Комментарий модератора

Всякое общение на форуме - публично.

@иван_пропал · 04.12.2012, 20:10

я его изменил и хотел добавить кнопки ДОБАВИТЬ ВЕРШИНУ и ДОБАВИТЬ РЕБРО. Они как то через раз работают но после нажатия ОК ищет уже не правильно. Почему?
загружайте вложения на форум
ошибки часто случаются на 165 строке

C++
1
matrix[line][i]=1;

вот весь код

Кликните здесь для просмотра всего текста

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
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <stdio.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "about.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
int numev=0;    //счетчик, необходимый для смены состояний построения графа
int xy[2][50];  //массив для хранения координат вершин на экране
int kv = 0;     //количество вершин
int line;       //переменная, необходимая для формирования матрицы смежности
bool select=false;    // отметка что вершину нашли
char **matrix;          //выделение памяти для будущей матрицы смежности
AnsiString way; //строка для вывода результатов в файл и на экран
int *buf;       //указатель на буфер
bool mark=false;     // удаление вершины
int kvdel=0;
 
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 Status->Caption="Статус:\n\n...отмечаем вершины...";      //начальный статус
}
//---------------------------------------------------------------------------
 
// Функция проверки на повторы вершин в цепи
int __fastcall Repeat(int i, int num)
{
        for (int j=0; j<num; j++)       //цикл поиска такой же вершины
        {
        if (buf[j]==i) return 1;        //если  такая найдена, то повтор есть
        }
    return 0;   //нет повтора
}
// Функция для поиска новых вершин в цепи
 
void __fastcall Ways(int ver, int num)
{       select=false;
    if (mark==true) //если вершины уже удалялись
    {
        kvdel=buf[num]; //начинать отсчет вершин с
    }
    else kvdel=0; //иначе обнулить этот счетчик
    mark=false;
    for (int i=kvdel; i<kv; i++)        //цикл поиска возможных вершин
    {
        if (matrix[ver][i]==0) continue; //если нет ребра, следующий
        if (Repeat(i,num)) continue;    //если вершина уже была, следующий
        if (i==buf[num]) continue;
        ver=i;
        select=true; //отметка, что вершину нашли
        break;
    }
 
    if (select==true)   //если вершина найдена
    {
        buf[num]=ver;   //добавить ее в цепь
                num++;  //увеличить счетчик
                Ways(ver, num); //рекурсивно вызвать с новыми параметрами
     }
    else        //если вершина не найдена
    {
        if (num==kv)    //если длина цепи равна количеству вершин
        {
                way=buf[0]+1;
            for (int i=1; i<kv; i++)
            {
                way+=',';
                        way+=buf[i]+1;
            }
            if (matrix[buf[kv-1]][0]!=0) {way+=",1";
            Form1->Results->Items->Add(way); }  //вывод результата на экран
 
 
        }
       way=buf[0]+1;
        for (int i=1; i<num; i++)
            {
                way+=',';
                way+=buf[i]+1;
 
            }
            way+='\n';
        num--;  //уменьшаем счетчик
        mark=false;
        if (num!=0)     //если счетчик вершины не равен 0
        {
if (num!=kv-1) buf[num+1]=NULL; //и не равен количеству вершин, то обнулить
// следующую ячейку буфера
            mark=true;  //отметка о удалении вершины
            Ways(buf[num-1], num);      //поиск следующей вершины
        }
 
    }
 
}
 
 //----------------------------------------------------------------------------
//Функция поиска гамильтоновых циклов
void __fastcall Gamilton(void)
{
    buf=new int[kv]; //создание буфера
    buf[0]=0;
    for (int i=0; i<kv; i++) //обнуление буфера
    {
        buf[i]=NULL;
    }
    Ways(0, 1); //вызов функции для поиска новых вершин в цепи
 
}
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
void __fastcall TForm1::DeskMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{               Label2->Visible=false;
        if (numev==0)   //если нажатий на кнопку «Далее» не производилось, то ставятся вершины
        {
 
                Desk->Canvas->Pen->Color=clGreen;       //цвет вершины = зеленный
                Desk->Canvas->Pen->Width=10;    //толщина пера=10 пикселей
                Desk->Canvas->MoveTo(X,Y);      //ставится точка
                Desk->Canvas->LineTo(X,Y);
                xy[0][kv]=X; //координаты вершины заносятся в массив
                xy[1][kv]=Y;
                Desk->Canvas->TextOutA(X+10, Y+10, AnsiString(kv=kv+1));
                //рядом выводится номер вершины
        }
        if (numev==1) //построение ребер
        {
                for (int i=0; i<kv; i++)
            {
                if ((X>(xy[0][i]-5))&&(X<(xy[0][i]+5)))
                {
                        if ((Y>(xy[1][i]-5))&&(Y<(xy[1][i]+5)))
                    {
                        if (select==false) //если вершина отмечена первой
                        {
                            Desk->Canvas->Pen->Color=clRed; //отметить ее красным цветом
                            Desk->Canvas->Pen->Width=7;
                            Desk->Canvas->MoveTo(xy[0][i],xy[1][i]);
                            Desk->Canvas->LineTo(xy[0][i],xy[1][i]);
                            line=i; //занести в переменную номер вершины
                            select=true; //поставить отметку, что одна вершина уже выделена
                        }
                        else //иначе
                        {
                            Desk->Canvas->Pen->Color=clBlack;
                            Desk->Canvas->Pen->Width=10;
                            Desk->Canvas->MoveTo(xy[0][line],xy[1][line]);
                            Desk->Canvas->LineTo(xy[0][line],xy[1][line]);
                            Desk->Canvas->Pen->Width=3;
                            Desk->Canvas->LineTo(xy[0][i],xy[1][i]); //провести линию
  /*постоянно тут ошибка*/    matrix[line][i]=1; //поставить отметку о ребре в матрице смежности
                            matrix[i][line]=1;
                            select=false; //ребро построено, выделенных вершин нет
                        }
                        break;
                    }
                }
            }
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BNextClick(TObject *Sender)
{
if (numev==0) //если нажатие производится в первый раз
{
    matrix=new char* [kv];      //создать массив для матрицы смежности
    for (int i=0; i<kv; i++) //обнулить этот массив
    {
        matrix[i]=new char [kv];
        for (int j=0; j<kv; j++)
        {
                matrix[i][j]=0;
        }
    }
        Status->Caption="Статус:\n\n...отмечаем ребра..."; //сменить статус
 
}
if (numev==1) //повторное нажатие на кнопку
{
    Status->Caption="Статус:\n\n Готово!"; //смена статуса
    BNext->Enabled=false;
    Gamilton(); //вывов функции Gamilton
            //если нет циклов
      if (Form1->Results->Items->Count == 0)   Form1->Results->Items->Add(" циклов нет");
}
numev++; //увеличение счетчика событий на единицу
 
 
}
//---------------------------------------------------------------------------
// новый граф
void __fastcall TForm1::Button1Click(TObject *Sender)
{     //очистка компонента
 Desk->Picture->Bitmap->FreeImage();
 Desk->Picture->Bitmap = NULL;
 Label2->Visible=true;
 // нулевые значения
 numev=0; // кол нажатий кнопки нехт
 BNext->Enabled=true; // видимость кнопки
 Status->Caption="Статус:\n\n...отмечаем вершины...";      //начальный статус
kv=0;
select=false;
char **matrix;          //выделение памяти для будущей матрицы смежности
AnsiString way; //строка для вывода результатов в файл и на экран
int *buf;       //указатель на буфер
mark=false;
kvdel=0;
Results->Items->Clear();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
// окно о программе
Form2->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
// кнопка ДОБАВИТЬ ВЕРШИНУ
numev=0;
        Status->Caption="Статус:\n\n...отмечаем вершины..."; //сменить статус
 
        matrix=new char* [kv];      //создать массив для матрицы смежности
    for (int i=0; i<kv; i++) //обнулить этот массив
    {
        matrix[i]=new char [kv];
        for (int j=0; j<kv; j++)
        {
                matrix[i][j]=0;
        }
    }
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
// кнопка ДОБАВИТЬ РЕБРО
numev=1;
Status->Caption="Статус:\n\n ...отмечаем ребра...!"; //смена статуса
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button7Click(TObject *Sender)
{
// кнопка ОК
    Status->Caption="Статус:\n\n Готово!"; //смена статуса
     Results->Items->Clear();// очищаем старый список
    Gamilton(); //вывов функции Gamilton
     if (Form1->Results->Items->Count == 0)   Form1->Results->Items->Add(" циклов нет");
}
//---------------------------------------------------------------------------

Новые блоги и статьи Все статьи Все блоги /
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Рецензия / Мнение Это мой обзор планшета X220 с точки зрения школьника. Недавно я решила попытаться уменьшить свой. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .

@Flyer wtf!? 750 / 281 / 25 Регистрация: 21.05.2010 Сообщений: 732
	26.12.2011, 11:39
	кроме кода Main.cpp еще бы не плохо было кинуть Main.h & Main.dfm. хотя бы. Но, что мешает самому скомпилировать? 0

@supreme1992 1 / 1 / 0 Регистрация: 24.12.2010 Сообщений: 9
	26.12.2011, 12:13 [ТС]
	к сожалению, нет Main.h & Main.dfm. самому? не особо разбираюсь, как организовать функцию построения графа на компоненте TImage. 0

mimicria return (true); 1977 / 1112 / 221 Регистрация: 19.04.2011 Сообщений: 2,346
	26.12.2011, 13:42
	Как-то так 123.ZIP Прикольно, даже работает чё-то 2

@supreme1992 1 / 1 / 0 Регистрация: 24.12.2010 Сообщений: 9
	26.12.2011, 17:09 [ТС]
	mimicria, спасибо огромное)) выручил) 0