Форум программистов, компьютерный форум, киберфорум
C++ Builder
Форум программистов и сисадминов Киберфорум > Форум программистов > C/C++ > C++ > C++ Builder
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
0 / 0 / 0
Регистрация: 08.06.2015
Сообщений: 18
1

Программа зависает

08.06.2015, 15:55. Показов 1311. Ответов 11
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Недавно начал изучать С++ Builder, и вот, выполняя очередную задачу, столкнулся с проблемой, после компеляции при попытке выполнения программы (нажатия на кнопку) она перестает отвечать (виснет). Проблемма где-то в блоке void __fastcall TForm1::Button1Click(TObject *Sender) прошу ткните носом что это вызывает, вот код:
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

//---------------------------------------------------------------------------
 
#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::Edit1Change(TObject *Sender)
{
int n,m,i;
n=StrToInt(Edit1->Text);
if(n>10)
{
ShowMessage("Max -> 10!");
n=10;
Edit1->Text = "10";
}
StringGrid1->ColCount=n+1;
StringGrid2->ColCount=n+1;
for(int i=1; i<=n;i++)
{
StringGrid1->Cells[i][0]=i;
StringGrid2->Cells[i][0]=i;
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit2Change(TObject *Sender)
{
 int n,m;
//Proverka
n=StrToInt(Edit2->Text);
if(n>10)
{
ShowMessage("Max -> 10!");
n=10;
Edit2->Text = "10";
}
StringGrid1->RowCount=n+1;
for(int i=1; i<=n;i++)
{
StringGrid1->Cells[0][i]=i;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
int j,i,n,m;
Edit1->Text=IntToStr(10);
Edit2->Text=IntToStr(10);
n=StrToInt(Edit1->Text);
m=StrToInt(Edit2->Text);
StringGrid1->Cells[0][0] = "Ìàòðèöà";
StringGrid2->Cells[0][0] = "B";
for(i=1; i<n+1;i++)
{
for(j=1; j<m+1;j++)
StringGrid1->Cells[j][i]=IntToStr(random(21)-10);
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
 int n, m, i, j, **a,**b;
n=StrToInt(Edit1->Text);
m=StrToInt(Edit2->Text);
 for(i=0; i<n+1;i++)
     {
     for(j=0; j<m+1;j++)
     a[i][j]=StrToFloat(StringGrid1->Cells[i+1][j+1]);
     }
    for (i=0; i<n;i+1)
     {
     for (j=0; j<m;j+1)
  if (a[i][j]>a[i+1][j+1])
   {
   b[i]=1;
   }
  else
   {
   b[i]=0;
   }
     }
  StringGrid2->Cells[1][j+1]=IntToStr(b[i]);
}
//---------------------------------------------------------------------------
0
Лучшие ответы (1)
Сообщение: #7735668
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 08.06.2015, 15:55
Ответы с готовыми решениями:

Программа зависает при закрытии
Здравствуйте У меня следующая проблема - программа зависает при срабатывании frmMain-&gt;Close() ...

Зависает программа из-за std::vector
void __fastcall TAdministratorForm::RouteButtonClick(TObject *Sender) { HideAll();...

Поток: программа зависает во время парсинга
Всем привет! В общем пишу парсер рамблера на почту. То есть собирает почты со страниц рамблер...

Программа визуально зависает при исполнении
Есть программа - перебор файлов в папке с удалением ненужной информации в файле. Визуально в RAD...

11
Native x86
Эксперт Hardware
5514 / 3273 / 934
Регистрация: 13.02.2013
Сообщений: 10,424
08.06.2015, 15:59 2
Цитата Сообщение от Serikuser Посмотреть сообщение
for (i=0; i<n;i+1)
Вы определитесь, либо i++, либо i=i+1, ну уж никак не i+1.
1
0 / 0 / 0
Регистрация: 08.06.2015
Сообщений: 18
08.06.2015, 16:18  [ТС] 3
Исправил на i=i+1, видимо жара плохо сказывается на внимательности, теперь при попытке выполнить программу выскакивает ошибка [cut] код нынче выглядит так:
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::Edit1Change(TObject *Sender)
{
int n,m,i;
n=StrToInt(Edit1->Text);
if(n>10)
{
ShowMessage("Max -> 10!");
n=10;
Edit1->Text = "10";
}
StringGrid1->ColCount=n+1;
StringGrid2->ColCount=n+1;
for(int i=1; i<=n;i++)
{
StringGrid1->Cells[i][0]=i;
StringGrid2->Cells[i][0]=i;
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit2Change(TObject *Sender)
{
 int n,m;
//Proverka
n=StrToInt(Edit2->Text);
if(n>10)
{
ShowMessage("Max -> 10!");
n=10;
Edit2->Text = "10";
}
StringGrid1->RowCount=n+1;
for(int i=1; i<=n;i++)
{
StringGrid1->Cells[0][i]=i;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
int j,i,n,m;
Edit1->Text=IntToStr(10);
Edit2->Text=IntToStr(10);
n=StrToInt(Edit1->Text);
m=StrToInt(Edit2->Text);
StringGrid1->Cells[0][0] = "Ìàòðèöà";
StringGrid2->Cells[0][0] = "B";
for(i=1; i<n+1;i++)
{
for(j=1; j<m+1;j++)
StringGrid1->Cells[j][i]=IntToStr(random(21)-10);
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
 int n, m, i, j, **a,*b;
n=StrToInt(Edit1->Text);
m=StrToInt(Edit2->Text);
 a=new int *[n];
for(i=0; i<n; i=i+1)
       a[i]=new int[n];
b=new int [n];
 for(i=0; i<n+1;i=i+1)
     {
     for(j=0; j<m+1;j=j+1)
     a[i][j]=StrToFloat(StringGrid1->Cells[i+1][j+1]);
     }
    for (i=0; i<n;i=i+1)
     {
     for (j=0; j<m;j+1)
  if (a[i][j]>a[i+1][j+1])
   {
   b[i]=1;
   }
  else
   {
   b[i]=0;
   }
     }
  StringGrid2->Cells[1][j+1]=IntToStr(b[i]);
}
//---------------------------------------------------------------------------
0
Native x86
Эксперт Hardware
5514 / 3273 / 934
Регистрация: 13.02.2013
Сообщений: 10,424
08.06.2015, 16:21 4
На какой строке возникает ошибка?

Добавлено через 45 секунд
У вас по-прежнему написано for (j=0; j<m;j+1) в строке 89.
1
0 / 0 / 0
Регистрация: 08.06.2015
Сообщений: 18
08.06.2015, 16:28  [ТС] 5
Данная ошибка возникает, уже после компиляции при нажатии на кнопку
0
Native x86
Эксперт Hardware
5514 / 3273 / 934
Регистрация: 13.02.2013
Сообщений: 10,424
08.06.2015, 16:36 6
Цитата Сообщение от Serikuser Посмотреть сообщение
Данная ошибка возникает, уже после компиляции при нажатии на кнопку
При этом активируется редактор кода и в нем выделяется строка. Какая?
0
0 / 0 / 0
Регистрация: 08.06.2015
Сообщений: 18
08.06.2015, 16:41  [ТС] 7
Либо я вас не понял, либо ничего не активируется, приложение просто кидает эту ошибку, при этом оно не закрывается, а продолжает свою "работу"
Миниатюры
Программа зависает  
0
Native x86
Эксперт Hardware
5514 / 3273 / 934
Регистрация: 13.02.2013
Сообщений: 10,424
08.06.2015, 16:45 8
Запускаете из-под IDE, или сам EXE-файл руками? Сборка debug или release?
0
0 / 0 / 0
Регистрация: 08.06.2015
Сообщений: 18
08.06.2015, 18:09  [ТС] 9
Пришел домой, загрузился с WinXP запустил проект в IDE ошибка та же, но уже, как вы говорили выше, редактор кода указал на проблемный участок
C++
1

  a[i][j]=StrToFloat(StringGrid1->Cells[i+1][j+1]);
где-то тут я напортачил
0
Native x86
Эксперт Hardware
5514 / 3273 / 934
Регистрация: 13.02.2013
Сообщений: 10,424
08.06.2015, 18:17 10
Лучший ответ Сообщение было отмечено Serikuser как решение

Решение

Вы инициализировали a как динамический массив int, а записываете в него результат StrToFloat().
1
0 / 0 / 0
Регистрация: 08.06.2015
Сообщений: 18
08.06.2015, 19:11  [ТС] 11
Исправил на StrToInt() ошибка осталась, может подскажите как лучше обыграть данное условие, ибо меня уже замучал мой го№нокод. Вот условие: Из матрицы размером NxM получить вектор B, присвоив его k-му элементу значение 1, если элементы k-й строки матрицы упорядочены по убыванию, иначе 0.
0
0 / 0 / 0
Регистрация: 08.06.2015
Сообщений: 18
08.06.2015, 19:21  [ТС] 12
Программа зависает

Вот так выглядит сама форма
0
08.06.2015, 19:21
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 08.06.2015, 19:21
Помогаю со студенческими работами здесь

Программа зависает при приеме сообщения через com порт
создал один виртуальный порт.Написал программу для чтения и записи по этому порту, но при приёме...

Не получается заполнить StringGrid рандомными разными числами, зависает программа
После нажатия кнопки заполняет 34 ячейки из 36 а дальше программа зависает, есть предположение, что...

VCL Forms Application, программа зависает при вечном цикле
Здравствуйте, мне надо в программе выполнять функции пока она работает, в консольной программе я...

Xerox WorkCentre 3550. При попытке напечатать текст (без разницы какая программа) программа из которой идет печать зависает. Картинки печатаются норм.
Вот такая вот байда. Кто сталкивался? Подскажите где тут собака зарыта :) з.ы. никогда не...


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

Или воспользуйтесь поиском по форуму:
12
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru