Ошибка " " is not a valid floating point value "

@Gan4Gale · Регистрация: 16.01.2016

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

Задание: Из матрицы размером NхM получить вектор B, присвоив его k-му элементу значение 1, если k-я строка матрицы симметрична, иначе значение 0.

Не получается вычислить, помогите пожалуйста.

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int n,m,**a,*b,i,j,pr,tp1,tp2;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Edit1->Text="0";
Edit2->Text="0";
StringGrid1->ColCount=n+1;
StringGrid1->RowCount=m+1;
StringGrid1->Cells[0][0]="Матрица N*M";
for(i=1;i<=n;i++)
{
StringGrid1->Cells[0][i]="i="+IntToStr(i);
StringGrid1->Cells[i][0]="j="+IntToStr(i);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
if(Edit1->Text=="")
{
ShowMessage("Ошибка! Требуется ввести числовое значение!");
Edit1->Text="0";}
n=StrToInt(Edit1->Text);
m=StrToInt(Edit2->Text);
StringGrid1->ColCount=n+1;
StringGrid1->RowCount=m+1;
StringGrid2->RowCount=m;
StringGrid1->Cells[0][0]="Матрица N*M";
for(i=1;i<=n+1;i++)
StringGrid1->Cells[0][i]="i="+IntToStr(i);
for(i=1;i<=m+1;i++)
StringGrid1->Cells[i][0]="j="+IntToStr(i);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
for (i=0;i<n+1;i++)
{Form1->StringGrid2->Cells[0][i]="k=";}
pr=0;
for (i=1;i<n;i++)
for (j=1;j<m;j++)
if (Form1->StringGrid1->Cells[i][j]=="")
pr=1;
b=new int[n];
a=new int*[m];
for(i=0;i<m;i++)
a[i]=new int[n];
for (i=0;i<m;i++)
for (j=0;j<n;j++)
{
tp2=StrToInt(Form1->StringGrid1->Cells[j+1][i+1]);
a[i][j]=tp2;
{
tp1=a[i][j];
}
}
for (i=0;i<m;i++)
{
for (j=0;j<n/2;j++)
{
tp1=a[i][j];
tp2=a[i][n-j-1];
if (tp1==tp2){
b[i]=1 ;
StringGrid2->Cells[1][i]=IntToStr(b[i]);}
else {
b[i]=0 ;
StringGrid2->Cells[1][i]=IntToStr(b[i]);
break;
}}}        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit2Change(TObject *Sender)
{
if(Edit2->Text=="")
{ShowMessage("Ошибка! Требуется ввести числовое значение!");
Edit2->Text="";
}
n=StrToInt(Edit1->Text);
m=StrToInt(Edit2->Text);
StringGrid1->ColCount=n+1;
StringGrid1->RowCount=m+1;
StringGrid2->RowCount=m;
StringGrid1->Cells[0][0]="Матрица N*M";
for(i=1;i<=n+1;i++)
StringGrid1->Cells[0][i]="i="+IntToStr(i);
for(i=1;i<=m+1;i++)
StringGrid1->Cells[i][0]="j="+IntToStr(i);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
for(i=0;i<n;i++)
delete[]a[i];
delete[]a;
 
//delete []b;
ShowMessage("Очищено!");
exit(0);
}
//---------------------------------------------------------------------------

@Gan4Gale · 25.10.2016, 13:59 **[ТС]**

При запуске программы требует несколько файлов(

Добавлено через 4 минуты
Спасибо большое за помощь, попробую разобраться

Новые блоги и статьи Все статьи Все блоги /
сукцессия 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" (широколиственные) или. . .	сукцессия 9. Математика подлости: как растения предали грибных друзей anaschu 27.06.2026 Статья 2. Глобальная фосфорная война: эволюционно-экономические механизмы распределения биомов Земли Введение: Экологический рынок как игра с нулевой суммой Традиционная экология долгое время. . .	сукцессия 8. Как я спорил с ИИ, которые - агенты растений и ненавистники грибов! anaschu 27.06.2026 Статья 1. Хроники грибного восстания: как Сократов диалог разрушил академические догмы ИИ Введение: Синдром «цифрового учебника» Современные большие языковые модели (LLM) обладают колоссальным. . .

@Gan4Gale 0 / 0 / 0 Регистрация: 16.01.2016 Сообщений: 31
	25.10.2016, 13:59 [ТС]
	При запуске программы требует несколько файлов( Добавлено через 4 минуты Спасибо большое за помощь, попробую разобраться 0