подскажите где ошибка в программе

@Ksu11 · Регистрация: 16.05.2011

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

помогите найти ошибку

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);
}

cpp_developer · 16.05.2011, 22:32

1. если ошибки есть - хорошо привести их текст с указание строки кода, к которым они относятся
2. используйте тег вставки кода - кнопка С++ в редакторе сообщения - это способствует более быстрому ответу на ваш вопрос

@Ksu11 · 16.05.2011, 22:38 **[ТС]**

ошибки в 1 и 3 строках одинаковы
Unable to open include file "VCL.h"/"unit21.h"

и ошибки в 7 и 9 строке
Declaration syntax error

@Neo_AVE · 16.05.2011, 22:44

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

#include "math.h"

а вот так:

C++
1
#include <math.h>

в таких скобках <> пишется библиотечная функция, а то, что создаешь пишется в "..."

Добавлено через 1 минуту

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

Unable to open include file "VCL.h"/"unit21.h"

Это означает, что Вы не подсоединили файл unit21.h к проекту.

@Ksu11 · 16.05.2011, 22:48 **[ТС]**

спасибо.но по прежнему 4 ошибки.

Добавлено через 1 минуту
где мне взять эти файлы если программа из интернета?и код скопирован из реферата.

cpp_developer · 16.05.2011, 22:53

для начала сделать

C++
1
// #include "Unit21.h"

и посмотреть , что получится

@Ksu11 · 16.05.2011, 23:10 **[ТС]**

если делаю #include "Unit21.h"
то получаются ошибки.как создать этот файл?

Добавлено через 8 минут
помогите!!!!!!!!!!меня из универа выкинут!!!!

Добавлено через 5 минут
спасибо!я поставила теги исчезли 2 ошибки.остались 2 синтаксические!!посмотрите пожалуйста!!

@Neo_AVE · 16.05.2011, 23:21

Этот файл создается File->New->Unit

@Sasha · 16.05.2011, 23:22

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

2 синтаксические!!посмотрите пожалуйста!!

тебе же объяснила Neo_AVE поменяй скобки на на math.h

cpp_developer · 16.05.2011, 23:24

7 и 9 строки

C++
1
2
3
#pragma package(smart_init)
//...
#pragma resource "*.dfm"

если не писаны ручками, ошибок вызывать не могут

@Ksu11 · 16.05.2011, 23:27 **[ТС]**

скобки поменяла и закоментировала Unit21 и VCL.2 ошибки пропали.а в 7 и 9 строчках остались ошибки!

cpp_developer · 16.05.2011, 23:44

Ksu11, вот ваш код - компилится без ошибок "на ура"

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#include "math.h"
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int n=3;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (Edit1->Text != NULL) {
    n=StrToInt(Edit1->Text);
  }
  else
    ShowMessage("Введите число в Edit1");
  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);
}
//---------------------------------------------------------------------------

@Ksu11 · 16.05.2011, 23:45 **[ТС]**

какие еще могут быть причины ошибок??????очень прошу помогите)))

silent_1991 · 16.05.2011, 23:46

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

Ksu11, дубли не плодим, дожидаемся ответа в основной теме.

cpp_developer · 16.05.2011, 23:49

Ksu11, читайте внимательней ответы

- ваш код проверил, все компилится
и обращайте внимание на порядок подключения заголовочных файлов

C++
1
2
3
4
5
6
7
8
#include <vcl.h>
#pragma hdrstop
 
// #include "Unit21.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#include "math.h" // !
#pragma resource "*.dfm"

@Ksu11 · 16.05.2011, 23:51 **[ТС]**

тогда в чем причины того,что я открываю и у меня 4 ошибки??

cpp_developer · 16.05.2011, 23:53

смотрите свой код и мой, который ваш

, и сравнивайте

@Neo_AVE · 16.05.2011, 23:56

Попробуйте, заново создать проект с нуля и затем составьте компоненты как Вам нужно и скопируйте код предыдущего проекта, обратите внимание на имена заголовок, форм и компонентов. Есть такой выход. Пробуйте, мы все учимся

cpp_developer · 16.05.2011, 23:58

Neo_AVE, спасибо, я именно так и сделал - и многому научился

.

@Infinity3000 · 16.05.2011, 23:59

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

Ksu11, вот ваш код - компилится без ошибок "на ура"

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#include "math.h"
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int n=3;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if (Edit1->Text != NULL) {
    n=StrToInt(Edit1->Text);
  }
  else
    ShowMessage("Введите число в Edit1");
  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);
}
//---------------------------------------------------------------------------

Код вполне рабочий! только проверил!! все компилируется без проблем!))

Новые блоги и статьи Все статьи Все блоги /
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 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	16.05.2011, 22:32
	1. если ошибки есть - хорошо привести их текст с указание строки кода, к которым они относятся 2. используйте тег вставки кода - кнопка С++ в редакторе сообщения - это способствует более быстрому ответу на ваш вопрос 0

@Ksu11 1 / 1 / 1 Регистрация: 16.05.2011 Сообщений: 18
	16.05.2011, 22:38 [ТС]
	ошибки в 1 и 3 строках одинаковы Unable to open include file "VCL.h"/"unit21.h" и ошибки в 7 и 9 строке Declaration syntax error 0

@Ksu11 1 / 1 / 1 Регистрация: 16.05.2011 Сообщений: 18
	16.05.2011, 22:48 [ТС]
	спасибо.но по прежнему 4 ошибки. Добавлено через 1 минуту где мне взять эти файлы если программа из интернета?и код скопирован из реферата. 0

@Ksu11 1 / 1 / 1 Регистрация: 16.05.2011 Сообщений: 18
	16.05.2011, 23:10 [ТС]
	если делаю #include "Unit21.h" то получаются ошибки.как создать этот файл? Добавлено через 8 минут помогите!!!!!!!!!!меня из универа выкинут!!!! Добавлено через 5 минут спасибо!я поставила теги исчезли 2 ошибки.остались 2 синтаксические!!посмотрите пожалуйста!! 0

@Neo_AVE 89 / 36 / 5 Регистрация: 04.05.2011 Сообщений: 239
	16.05.2011, 23:21
	Этот файл создается File->New->Unit 0

@Ksu11 1 / 1 / 1 Регистрация: 16.05.2011 Сообщений: 18
	16.05.2011, 23:27 [ТС]
	скобки поменяла и закоментировала Unit21 и VCL.2 ошибки пропали.а в 7 и 9 строчках остались ошибки! 0

@Ksu11 1 / 1 / 1 Регистрация: 16.05.2011 Сообщений: 18
	16.05.2011, 23:45 [ТС]
	какие еще могут быть причины ошибок??????очень прошу помогите))) 0

@Ksu11 1 / 1 / 1 Регистрация: 16.05.2011 Сообщений: 18
	16.05.2011, 23:51 [ТС]
	тогда в чем причины того,что я открываю и у меня 4 ошибки?? 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	16.05.2011, 23:53
	смотрите свой код и мой, который ваш , и сравнивайте 0

@Neo_AVE 89 / 36 / 5 Регистрация: 04.05.2011 Сообщений: 239
	16.05.2011, 23:56
	Попробуйте, заново создать проект с нуля и затем составьте компоненты как Вам нужно и скопируйте код предыдущего проекта, обратите внимание на имена заголовок, форм и компонентов. Есть такой выход. Пробуйте, мы все учимся 1

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	16.05.2011, 23:58
	Neo_AVE, спасибо, я именно так и сделал - и многому научился . 0