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

@Wodelectro · Регистрация: 03.12.2011

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

Вообщем есть готовая программа, она работает, но при компиляции выдаёт ошибку вот на этой строке: 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);
                }
        }
}
//---------------------------------------------------------------------------

@Почтальон · 25.11.2016, 11:01

И чо ?

@Wodelectro · 25.11.2016, 14:44 **[ТС]**

ну хотелось бы услышать - какие ошибки.

@Почтальон · 25.11.2016, 14:56

Это у вас нужно спросить, какие ошибки выдает при компиляции.

Добавлено через 1 минуту
Может у вас фигурные скобки пропущены, или еще что

@Wodelectro · 25.11.2016, 18:03 **[ТС]**

Ну вот такие вот ошибки.

@Wolver · 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()
А вы прикопались к конвертации типов.

@Wodelectro · 28.11.2016, 10:52 **[ТС]**

Это код на кнопку Выполнить, в данном коде это размер для цикла.

Добавлено через 15 минут
Не пойму, где ошибка вот похожая тема. но у его иначе 0.

Новые блоги и статьи Все статьи Все блоги /
Алиса нашла кучу ошибок компиляции и запуска в проекте, который без проблем компилировался и запускался))) anaschu 30.06.2026 Я пока посмеюся, но завтра проверю. А вообще интерсно. Дал алисе файл, в котором точно нет ошибок компиляции и запуска, и попросил их найти. Нашла кучу))) Критические ошибки, мешающие компиляции и. . .	сукцессия 16. Общий обзор, в основном что бы другие ии поняли anaschu 29.06.2026 # Передаточный документ: модель микоризной сукцессии (для нового чата) Этот документ предназначен для того, чтобы новый чат Claude мог продолжить работу без необходимости заново разбираться в. . .	сукцессия 15 неявная схема anaschu 29.06.2026 Алиса Калибровка параметров симбиотической модели: технический обзор Содержание: Введение Постановка проблемы Технические аспекты реализации Процесс внедрения изменений	сукцессия 14. Обновленная схема модели anaschu 28.06.2026 ГЛОБАЛЬНАЯ ОПИСАТЕЛЬНАЯ СПЕЦИФИКАЦИЯ ЭКОСИСТЕМНОЙ МОДЕЛИ «SOIL CHEMISTRY & MYCORRHIZA 2. 0» https:/ / ibb. co/ NnkGpfMd Представленная интегрированная схема описывает непрерывную нелинейную. . .
сукцессия 13. Питон модель трехзонного мицелия, пока что в основном арбускулярного anaschu 28.06.2026 ## Разработка агентной модели микоризной сукцессии: от выявления артефактов к созданию комплексной системы ### Аннотация Представлено исследование по разработке агентной модели микоризной. . .	сукцессия 12. краткий список проверок модели перед запуском. anaschu 27.06.2026 Скрытые отказы в моделях систем динамики (SD-models) экологических систем: два случая из практики Контекст Разбирался прототип модели систем динамики (SD-модели) микоризной сукцессии: пять. . .	Сукцессия 11. Проверка орудий перед войной: разработка через тестирование anaschu 27.06.2026 Как не дать модели соврать самой себе: проверки для симуляции микоризной сукцессии Введение Когда вы строите математическую модель живой системы — грибов, растений, почвы — главная опасность. . .	10 сукцессия. Питон код войны грибов и растений anaschu 27.06.2026 import numpy as np class PlantAgent: def __init__(self, name, strategy, initial_biomass): self. name = name self. strategy = strategy # "greedy" (широколиственные) или. . .

@Почтальон управление сложностью 1693 / 1306 / 259 Регистрация: 22.03.2015 Сообщений: 7,545 Записей в блоге: 5
	25.11.2016, 11:01
	И чо ? 0

@Wodelectro 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

@Wodelectro 0 / 0 / 0 Регистрация: 03.12.2011 Сообщений: 65
	25.11.2016, 18:03 [ТС]
	Ну вот такие вот ошибки. 0

@Wodelectro 0 / 0 / 0 Регистрация: 03.12.2011 Сообщений: 65
	28.11.2016, 10:52 [ТС]
	Это код на кнопку Выполнить, в данном коде это размер для цикла. Добавлено через 15 минут Не пойму, где ошибка вот похожая тема. но у его иначе 0. 0