Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 0
Регистрация: 03.12.2011
Сообщений: 65

Ошибка в i<st.Length()

23.11.2016, 10:26. Показов 2445. Ответов 25
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Вообщем есть готовая программа, она работает, но при компиляции выдаёт ошибку вот на этой строке: i<st.Length().
Написать программу по обработке динамических массивов. Размеры массивов вводить с клавиатуры. При создании оконного приложения скалярный (про-стой) результат выводить в виде компоненты Label, а массивы вводить и выводить с помощью компонент StringGrid, в которых 0-й столбец и 0-ю строку использовать для отображения индексов массивов.
1. Из матрицы размером NM получить вектор B, присвоив его k-му элементу значение 0, если все элементы k-го столбца матрицы нулевые, иначе 1.

Скрин ошибки прилагаю: Строка 94

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
        int n = 3, m=4;
        double **a, *b;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
int i,j;
        Edit1->Text=IntToStr(n);
        Edit2->Text=IntToStr(m);
        StringGrid1->ColCount = m+1;        StringGrid1->RowCount = n+1;
        StringGrid2->RowCount = 1;
        StringGrid2->ColCount = m+1;
        StringGrid1->Cells[0][0] = "Матрица A";
        StringGrid2->Cells[0][0] = "Вектор B";
        for(int i=1; i<=n;i++)
                StringGrid1->Cells[0][i]="i="+IntToStr(i);
        for(int i=1; i<=m;i++)
                StringGrid1->Cells[i][0]="j="+IntToStr(i);
 
        for(i=1; i<=n;i++)
        {
                for(j=1; j<=m;j++)
                {
                        StringGrid1->Cells[j][i]=IntToStr(random(3)-1);
                }
        }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
        int i,j;
        n=StrToInt(Edit1->Text);
        StringGrid1->ColCount = m+1;        StringGrid1->RowCount = n+1;
        StringGrid2->RowCount = 1;
        StringGrid2->ColCount = m+1;
        StringGrid1->Cells[0][0] = "Матрица A";
        StringGrid2->Cells[0][0] = "Вектор B";
        for(int i=1; i<=n;i++)
                StringGrid1->Cells[0][i]="i="+IntToStr(i);
 
        for(int i=1; i<=m;i++)
                StringGrid1->Cells[i][0]="j="+IntToStr(i);
 
        for(i=1; i<=n;i++)
        {
                for(j=1; j<=m;j++)
                {
                        StringGrid1->Cells[j][i]=IntToStr(random(3)-1);
                }
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        int i,j,s;
        a = new double*[n];
        for(i=0; i<n;i++)
                a[i] = new double[m];
        b = new double[m];
        for(i=0; i<n;i++)
        {
                for(j=0; j<m;j++)
                        a[i][j]=StrToFloat(StringGrid1->Cells[j+1][i+1]);
        }
        for(j=0; j<m; j++)
        {
                s=0;
                for (i=0;i<n;i++)
                {
                        if (a[i][j]!=0)
                        {
                                s=1;
                                break;
                        }
                }
                StringGrid2->Cells[j+1][0] = IntToStr(s);
    }
        for(i=1; i<st.Length(); i++)
if(a[i] !=1 || a[i] !=0 || a[i] !=' ' )
Edit2->Text = "Не правильно";
else Edit2->Text = "Правильно";
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
delete []a;        
delete []b;
ShowMessage("Память освобождена!");
Close();
        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit2Change(TObject *Sender)
{
        int i,j;
        m=StrToInt(Edit2->Text);
        StringGrid1->ColCount = m+1;        StringGrid1->RowCount = n+1;
        StringGrid2->RowCount = 1;
        StringGrid2->ColCount = m+1;
        StringGrid1->Cells[0][0] = "Матрица A";
        StringGrid2->Cells[0][0] = "Вектор B";
        for(int i=1; i<=n;i++)
                StringGrid1->Cells[0][i]="i="+IntToStr(i);
 
        for(int i=1; i<=m;i++)
                StringGrid1->Cells[i][0]="j="+IntToStr(i);
 
        for(i=1; i<=n;i++)
        {
                for(j=1; j<=m;j++)
                {
                        StringGrid1->Cells[j][i]=IntToStr(random(3)-1);
                }
        }
}
//---------------------------------------------------------------------------
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
23.11.2016, 10:26
Ответы с готовыми решениями:

Ошибка incompatible types в length
Вот код: var ran,r,lenran:integer; begin repeat randomize; ran:=random(r); lenran:=length(ran); until lenran=6;

БД interbase ошибка trying to store of length 41 into a field that can only contain 40
Решил свою программу переписать, все дополнительные значения перенести в базу данных До этого брал из txt таким образом ...

Ошибка: libpng warning: Incorrect bKGD chunk length
Добрый день! при запуске приложения вылезает ошибка libpng warning: Incorrect bKGD chunk length но приложение запускается и работает,...

25
управление сложностью
 Аватар для Почтальон
1693 / 1306 / 259
Регистрация: 22.03.2015
Сообщений: 7,545
Записей в блоге: 5
25.11.2016, 11:01
Студворк — интернет-сервис помощи студентам
И чо ?
0
0 / 0 / 0
Регистрация: 03.12.2011
Сообщений: 65
25.11.2016, 14:44  [ТС]
ну хотелось бы услышать - какие ошибки.
0
управление сложностью
 Аватар для Почтальон
1693 / 1306 / 259
Регистрация: 22.03.2015
Сообщений: 7,545
Записей в блоге: 5
25.11.2016, 14:56
Это у вас нужно спросить, какие ошибки выдает при компиляции.

Добавлено через 1 минуту
Может у вас фигурные скобки пропущены, или еще что
0
0 / 0 / 0
Регистрация: 03.12.2011
Сообщений: 65
25.11.2016, 18:03  [ТС]
Ну вот такие вот ошибки.
0
28 / 24 / 10
Регистрация: 26.04.2015
Сообщений: 307
25.11.2016, 21:01
Wodelectro, я не совсем понял почему там конфликт int с double, но вот сравнивать дробное со строкой - там сразу видно, что даст ошибку, нельзя делать a[i]!=' ' - т.к. a[i] - динамич. массив дробных чисел, а сравнение идёт с единичным символом, в данном случае пробелом.
Цитата Сообщение от Почтальон Посмотреть сообщение
Потому что не читаете и не понимаете что делаете.
эта конструкция i<st.Length() работает только в том случае, если st - это строковый тип, а у вас - целочисленный. Вам говорят что нужно привести целочисленный тип к строковому, вы же упорно это игнорируете. Все, больше мне нечего сказать.
мне кажется, Почтальон, это вы не читаете код, и не видите, что ваши намёки на глупость использования неприведённого типа переменной st в цикле автора темы, затмевают главную суть - переменная st объявляется автором, но не инициализируется ничем, далее эта же переменная запихивается в ячейку грида (мусор с памяти), а потом же эта переменная пытается быть конечным числом работы цикла Оо
Тут вообще или переменная st не нужна, и автор должен объяснить что хочет сделать в том куске кода, или использовать её нужно с умом.
Если это размер для цикла и он зависит от размеров StringGrid'a - то проще делать всякие StringGrid1->RowCount или ColCount.
Если это счётчик действий проведенных выше по коду - то бессмысленно юзать ф-цию Length()
А вы прикопались к конвертации типов.
1
0 / 0 / 0
Регистрация: 03.12.2011
Сообщений: 65
28.11.2016, 10:52  [ТС]
Это код на кнопку Выполнить, в данном коде это размер для цикла.

Добавлено через 15 минут
Не пойму, где ошибка вот похожая тема. но у его иначе 0.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
28.11.2016, 10:52

Ошибка g++: error: argument to '-fmessage-length=' should be a non-negative integer
11:09:29 **** Incremental Build of configuration Debug for project GO **** Info: Internal Builder is used for build g++ -O0 -g3 -Wall...

Ошибка при выполнении запроса Trying to store a string of length 30 into field that can only contain 20
Добрый день! Возникла проблема с IBQ... with IBQSPRED do begin close; SQL.Clear; SQL.Add('select (case when...

Ошибка выдаваемая компилятором на олимпиадном сайте. ArgumentOutOfRange: Must be greater than length of string
Всем привет. На одном сайте в качестве олимпиадной задачи, ну или что то около того потребовалось написать метод проверки палиндромов Вот...

Ошибка Warning: fread() [function.fread]: Length parameter must be greater than 0
Есть строка кода if(!preg_match('/'.$user.&quot;/&quot;,fread($fusers,filesize(&quot;user/users.txt&quot;))) &amp;&amp; fread($fusers, 1) == 1){ Почему-то он...

Ошибка MSB6001: Invalid command line switch for "link.exe". Length cannot be less than zero
Добрый день! Работаю в visual studio 2017. Решил подключить графику SFML, но когда запускаю выдает ошибку. 1&gt;C:\Program Files...


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

Или воспользуйтесь поиском по форуму:
26
Ответ Создать тему
Новые блоги и статьи
Локальный http сервер
Argus19 17.10.2026
Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .
Копировать Windows на новый диск на UEFI
damix 17.10.2026
https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .
ИИ не может найти нужный язык в списке
Supersumestria 05.10.2026
Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO
zorxor 05.10.2026
Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части
Maks 13.09.2026
Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru