Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual C++
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
KingSli090108
0 / 0 / 0
Регистрация: 26.06.2012
Сообщений: 12
1

Как заставить эту программу работать в VC++ форм

26.06.2012, 20:31. Просмотров 504. Ответов 3
Метки нет (Все метки)

Уважаемые программисты помогите, срочно нужен ответ
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
#include <vcl.h>
#pragma hdrstop
 
#include «Unit21.h»
// –
#pragma package (smart_init)
#include «math.h»
#pragma resource «*.dfm»
TForm1 *Form1;
int n=3;
// –
__fastcall TForm1:TForm1 (TComponent* Owner)
: TForm(Owner)
{
}
// –
void __fastcall TForm1: Button1Click (TObject *Sender)
{
n=StrToInt (Edit1->Text);
StringGrid1->ColCount=n;
StringGrid1->RowCount=n;
StringGrid2->ColCount=n;
StringGrid2->RowCount=n;
StringGrid1->Visible=true;
BitBtn1->Enabled=true;
Button1->Enabled=false;
}
// –
void __fastcall TForm1: BitBtn1Click (TObject *Sender)
{
BitBtn2->Enabled=true;
BitBtn1->Enabled=false;
Button1->Enabled=false;
StringGrid2->Visible=true;
int a[10] [10];
int mas[3] [10];
int kmas=0;
int versh[10];
for (int i=0; i<n; i++)
versh[i]=0;
versh[1]=1;
for (int i=0; i<n; i++)
for (int j=0; j<n; j++)
a[i] [j]=1000;
// *******
for (int i=0; i<n; i++)
for (int j=0; j<n; j++)
if (StringGrid1->Cells[i] [j]!=»») a[i] [j]=StrToInt (StringGrid1->Cells[i] [j]);
// **********
int k=n-1;
 
while (k!=0)
{
int buf=1000;
int x, y;
for (int i=1; i<n; i++)
for (int j=0; j<i; j++)
{
if ((a[i] [j]<buf) && ((versh[i]==1) || (versh[j]==1)) && (versh[i]!=versh[j]))
{buf=a[i] [j]; x=i; y=j;}
}
if (versh[x]==1) versh[y]=1; else versh[x]=1;
a[x] [y]=1000;
mas[0] [kmas]=x;
mas[1] [kmas]=y;
mas[2] [kmas]=buf;
kmas++;
// *****
k –;
}
/// ***********************
for (int i=0; i<kmas; i++)
StringGrid2->Cells [mas[0] [i]] [mas[1] [i]]=IntToStr (mas[2] [i]);
// **********
// рисование
int krug[2] [10];
Form1->Canvas->Pen->Color=clBlack;
for (int i=0; i<n; i++)
{
krug[0] [i]=400+100*sin (6.28*i/n);
krug[1] [i]=400+100*cos (6.28*i/n);
}
for (int i=0; i<kmas; i++)
{
Form1->Canvas->MoveTo (krug[0] [mas[0] [i]], krug[1] [mas[0] [i]]);
Form1->Canvas->LineTo (krug[0] [mas[1] [i]], krug[1] [mas[1] [i]]);
}
}
// –
void __fastcall TForm1: BitBtn2Click (TObject *Sender)
{
Button1->Enabled=true;
StringGrid1->Visible=false;
StringGrid2->Visible=false;
BitBtn2->Enabled=false;
Form1->Canvas->Pen->Color=clBtnFace;
Form1->Canvas->Rectangle (295, 295,505, 505);
}
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.06.2012, 20:31
Ответы с готовыми решениями:

Как заставить программу работать с консолью?
Как сделать что бы моя прога работала с консолью(то есть могла посылать запросы в консоль и читать...

Как заставить программу работать постоянно?
Здравствуйте! Мне нужно сделать так, что бы программа работала постоянно. Я уже попытался...

Как заставить программу работать через прокси?
Кто нибудь имеет примерчик как заставить готовую прогу (типа чата) работать с возможностью прокси?...

Как заставить программу работать без остановки?
Здравствуйте, недавно начал изучать objective-c. И вот вопрос, например есть код и как его работать...

Как заставить программу работать на одном порту?
Вообщем вопрос такой. Есть программа, которая работает по сети, например браузер. При запросе...

3
Jupiter
Каратель
Эксперт С++
6580 / 4001 / 400
Регистрация: 26.03.2010
Сообщений: 9,273
Записей в блоге: 1
Завершенные тесты: 2
26.06.2012, 22:43 2
Цитата Сообщение от KingSli090108 Посмотреть сообщение
Как заставить эту программу работать в VC++ форм
никак, нужно полность все переписывать
0
KingSli090108
0 / 0 / 0
Регистрация: 26.06.2012
Сообщений: 12
26.06.2012, 22:49  [ТС] 3
А вы не могли бы в этом помочь, очень нужно
0
Jupiter
Каратель
Эксперт С++
6580 / 4001 / 400
Регистрация: 26.03.2010
Сообщений: 9,273
Записей в блоге: 1
Завершенные тесты: 2
26.06.2012, 22:52 4
Цитата Сообщение от KingSli090108 Посмотреть сообщение
А вы не могли бы в этом помочь, очень нужно
я - нет, выкладывайте задание мб кто-то и напишет
1
26.06.2012, 22:52
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.06.2012, 22:52

Как заставить программу, написанную на VB6 работать вэ VB5?
Esli kto znaet kak zastavit' programmu, napisanuu na VB6 rabotat' v VB5, prishlite pozaluista otvet...

Как заставить программу работать при старте системы?
Здравствуйте! Сразу скажу что я уже пытался закинуть программу в автозагрузку как просто -...

Как заставить работать программу на Фортране 77 в Windows 10 x64?
Как заставить работать программу на Фортране 77 в Windows 10 x64 ? Программа отлично работала в ХР....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.