не понятное значчение в ячейке StringGrid - C++ Builder - Ответ 12466183

@Sergey1111 · Регистрация: 17.12.2012

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

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

C++

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
double S (double R[3]);
double S1 (double R1[3][3]);
double S2 (double R2[3]);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormActivate(TObject *Sender)
{
StringGrid1->Cells[0][0]="Реш./Усл.";
StringGrid2->Cells[0][0]="Реш./Усл.";
 
StringGrid1->Cells[0][1]="E1";
StringGrid1->Cells[0][2]="E2";
StringGrid1->Cells[0][3]="E3";
 
StringGrid1->Cells[1][0]="F1";
StringGrid1->Cells[2][0]="F2";
StringGrid1->Cells[3][0]="F3";
 
StringGrid2->Cells[0][1]="E1";
StringGrid2->Cells[0][2]="E2";
StringGrid2->Cells[0][3]="E3";
 
StringGrid2->Cells[1][0]="F1";
StringGrid2->Cells[2][0]="F2";
StringGrid2->Cells[3][0]="F3";
 
StringGrid2->Cells[4][0]=" ";
 StringGrid2->Visible = false;
}
//---------------------------------------------------------------------------
  double S1 (double R1[3][3])
{
double max;
max=R1[0][0];
for ( int i = 0; i<3; i++)
for ( int j = 0; j<3; j++)
if (R1[i][j]>max) max=R1[i][j];
return max;
}
 
double S (double R[3])
{
double min;
min=R[0];
for ( int i = 0; i<4; i++)
if (R[i]<min) min=R[i];
return min;
}
double S2 (double R2[3])
{
double max;
max=R2[0];
for ( int i = 0; i<3; i++)
if (R2[i]>max) max=R2[i];
return max;
}
 
 
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
WideString str;
TStringList *sl = new TStringList;
for(int i = 0 ; i<4;++i)
{
for(int j = 0; j<4;++j)
str += StringGrid1->Cells[j][i]+ "\t";
sl->Add(Trim(str));
str = "\n\r" ;
}
str +="q[j]="+Edit1->Text+ "\t";
sl->Add(Trim(str));
str = "\n\r" ;
sl->SaveToFile("Soh_usl.xls");
MessageBox(0,"Экспорт произведен!","Готово",MB_OK|MB_ICONINFORMATION);
delete sl;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{
WideString str1;
TStringList *s2 = new TStringList;
for(int i = 0 ; i<5;++i)
{
for(int j = 0; j<5;++j)
str1 += StringGrid2->Cells[j][i]+ "\t";
s2->Add(Trim(str1));
str1 = "\n\r" ;
}
str1 += Label1->Caption+ "\t";
s2->Add(Trim(str1));
str1 = "\n\r" ;
s2->SaveToFile("Soh_resh.xls");
MessageBox(0,"Экспорт произведен!","Готово",MB_OK|MB_ICONINFORMATION);
delete s2;
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
double m1,m2,m3;
double A[3],B[3],C[3];
double q=StrToFloat(Edit1->Text);
double M[3][3], D[3], E[3], F[3];
double z1,z2,z3, r;
r=0;
StringGrid2->Visible = false;
    for (int i=1;i<4;i++)
{
for (int j=1;j<4;j++)
{
  if( StringGrid1->Cells[i][j].IsEmpty() )
    {
    r++;
    }
}
 }
   if( r>0)
    {
        StringGrid2->Visible = false;
    MessageBox(0,"Матрица решений не заполнена!","Ошибка",MB_OK|MB_ICONERROR);
    Label1->Caption="Ошибка";
    z1=0;
    z2=0;
    z3=0;
    }
 
   if(ComboBox1->ItemIndex==-1)
  {
   StringGrid2->Visible = false;
   MessageBox(0,"Критерий не выбран!","Ошибка",MB_OK|MB_ICONERROR);
     Label1->Caption="Ошибка";
       z1=0;
    z2=0;
    z3=0;
  }
      if (q>1)
{
StringGrid2->Visible = false;
MessageBox(0,"Вероятность q[j] не может быть больше 1","Ошибка",MB_OK|MB_ICONERROR);
  Label1->Caption="Ошибка";
     z1=0;
    z2=0;
    z3=0;
}
 
switch(ComboBox1->ItemIndex)
{
case 0:
{
 StringGrid2->Visible = true;
   for (int i=1;i<4;i++)
{
for (int j=1;j<4;j++)
{
StringGrid2->Cells[i][j]=StringGrid1->Cells[i][j];
}
}
for (int i=1;i<4;i++)
{
A[i-1]=StrToFloat(StringGrid2->Cells[i][1]);
}
for (int i=1;i<4;i++)
{
B[i-1]=StrToFloat(StringGrid2->Cells[i][2]);
}
for (int i=1;i<4;i++)
{
C[i-1]=StrToFloat(StringGrid2->Cells[i][3]);
}
z1=S(A);
StringGrid2->Cells[4][1]=FloatToStr(z1);
z2=S(B);
StringGrid2->Cells[4][2]=FloatToStr(z2);
z3=S(C);
StringGrid2->Cells[4][3]=FloatToStr(z3);
break;
 
}
 case 1:
{
    StringGrid2->Visible = true;
 for (int i=1;i<4;i++)
{
for (int j=1;j<4;j++)
{
M[i-1][j-1]=StrToFloat(StringGrid1->Cells[i][j]);
}
}
double n=S1(M);
for ( int i = 0; i<3; i++)
for ( int j = 0; j<3; j++)
M[i][j]=M[i][j]-(n+1);
for (int i=0;i<3;i++)
{
for (int j=0;j<3;j++)
{
StringGrid2->Cells[i+1][j+1]=FloatToStr(M[i][j]);
}
}
for (int i=1;i<4;i++)
{
D[i-1]=StrToFloat(StringGrid2->Cells[i][1]);
D[i-1]=D[i-1]*q;
}
for (int i=1;i<4;i++)
{
E[i-1]=StrToFloat(StringGrid2->Cells[i][2]);
E[i-1]=E[i-1]*q;
}
for (int i=1;i<4;i++)
{
F[i-1]=StrToFloat(StringGrid2->Cells[i][3]);
F[i-1]=F[i-1]*q;
}
z1=S(D);
StringGrid2->Cells[4][1]=FloatToStr(z1);
z2=S(E);
StringGrid2->Cells[4][2]=FloatToStr(z2);
z3=S(F);
StringGrid2->Cells[4][3]=FloatToStr(z3);
break;
}
 
}
 
 
 
if (z1>z2 && z1>z3)
{
Label1->Caption="Оптимальное решение - проект E0={Е1}= "+FloatToStr(z1);
}
if (z2>z1 && z2>z3)
{
Label1->Caption="Оптимальное решение - проект E0={Е2}= "+FloatToStr(z2);
}
if (z3>z1 && z3>z2)
{
Label1->Caption="Оптимальное решение - проект E0={Е3}= "+FloatToStr(z3);
}
 if (z1==z2)
{
Label1->Caption="Ошибка";
}
 if (z1==z3)
{
Label1->Caption="Ошибка";
}
 if (z2==z3)
{
Label1->Caption="Ошибка";
}
 if (z2==z1)
{
Label1->Caption="Ошибка";
}
 if (z3==z1)
{
Label1->Caption="Ошибка";
}
 if (z3==z2)
{
Label1->Caption="Ошибка";
}
 
}

в место того чтобы там была 18 получается какая-то не понятная цифра.

Вернуться к обсуждению:
не понятное значчение в ячейке StringGrid C++ Builder

Следующий ответ

Другие темы раздела
C++ Builder Использование библиотеки BASS: Unresolved external при сборке проекта https://www.cyberforum.ru/ cpp-builder/ thread2262253.html Всем привет! Пишу медиа плеер на C++ Builder, подключаю библиотеку bass для эквалайзера: fx = BASS_ChannelSetFX(stream, BASS_FX_DX8_PARAMEQ, 1); fx = BASS_ChannelSetFX(stream, BASS_FX_DX8_PARAMEQ, 1); fx = BASS_ChannelSetFX(stream, BASS_FX_DX8_PARAMEQ, 1); fx = BASS_ChannelSetFX(stream, BASS_FX_DX8_PARAMEQ, 1); fx = BASS_ChannelSetFX(stream, BASS_FX_DX8_PARAMEQ, 1); fx =...	Как отследить какая кнопка мыши отпускается в событии OnMouseUp? C++ Builder Код приведенный ниже не срабатывает: void __fastcall TForm1::Chart1MouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y) { if(Shift.Contains(ssLeft)) { Label2->Color = clRed; Label3->Color = clBtnFace; } if(Shift.Contains(ssRight))
C++ Builder Открыть указанный файл в проводнике https://www.cyberforum.ru/ cpp-builder/ thread2262139.html Добрый день! Нужно открыть папку, в которой будет выделен указанный файл. Пытался так, но он открывает саму папку, в которой лежит этот файл. #include "ShellAPI.h" void __fastcall TForm1::N1Click(TObject *Sender) { String put = L"c:\\windows\\explorer.exe"; ShellExecute(Handle, L"open", ExtractFilePath(put).c_str(), 0, 0, SW_SHOWNORMAL);	C++ Builder Функция для преобразования позиции и размеров компонента в экранные координаты Всем здравствуйте. На форме размещён компонент имеющий свойства Left, Top, Width, Height. Нужно получить занимаемый им прямоугольник RECT, но уже в экранных координатах, с учётом того, что в различных Windows используются различные метрики (ширина границ, высота заголовка и т.д.). https://www.cyberforum.ru/ cpp-builder/ thread2262044.html
C++ Builder Калькулятор в различных системах счисления Хелп! Срочно нужна прога на С++ которая сможет переводить числа с 2 и 16 систем счисления и обратно, с функциями +,-,/,% Буду очень благодарен!	C++ Builder TChart, изменить цвет уже нарисованной линии https://www.cyberforum.ru/ cpp-builder/ thread2261585.html Почему не срабатывает: // Изменить цвет уже нарисованной линии Series1->SeriesColor = clLime; Series1->Repaint();
C++ Builder TChart, нарисовать нулевую горизонтальную ось Всем здравствуйте. Рисуем в событии OnAfterDraw нулевую горизонталь, если Minimum по вертикальной оси отрицательный: void __fastcall TForm1::FormCreate(TObject Sender) { Chart1->LeftAxis->Maximum = 100; Chart1->LeftAxis->Minimum = -50; } void __fastcall TForm1::Chart1AfterDraw(TObject Sender) https://www.cyberforum.ru/ cpp-builder/ thread2261582.html	Посторонние логической задачи C++ Builder Нужна помощь, выручайте ребята) Если модно то код программы в скриншотах кидайте) Буду очень благодарен!)
C++ Builder Модель спама https://www.cyberforum.ru/ cpp-builder/ thread2260889.html Помогите правильно написать условие. Есть спам и получатель. У получателя есть три варианта действий: клюнуть на спам, пропустить и оштрафовать. Нужно сделать так чтобы была нумерация спама и получателя на каждый лог. void MSystem::sell(TMemo *memo){ int numberP = std:: rand()%countOfLicense; int numberS = std:: rand()%countOfCounterfeit;	C++ Builder Заменить 20 строк одной Идея очень простая, ничего сложного нет. Но сам додуматься все равно не могу, за что очень стыдно... Есть вот такие строки: world = 3; world = 3; world = 3; world = 3; world = 3; world = 3; world = 3; world = 3; https://www.cyberforum.ru/ cpp-builder/ thread2260384.html
C++ Builder TColor и цветовые константы Windows Всем здравствуйте. Как привести clBtnFace к TColor? Есть два компьютера: 1 - Win8.1, видеокарта Radeon R270, 2 - WinXP 32-битный цвет, видеокарта встроенная Если указываю цвет элемента как clBtnFace, то на обоих компьютерах он визуально одинаковый. Но мне нужен цвет в формате 0x00RRGGBB. (Это нужно для правильной работы некоторой функции) Если указываю цвет элемента в формате TColor...	C++ Builder TChart, горизонтальная линия сетки рисуется поверх горизонтальной оси Всем здравствуйте. Если ось Y начинается от нуля то на нижней оси видна пунктирная линия сетки. Это справедливо и для правой и для верхней границ. А вот с левой осью - всё в порядке: вертикальный пунктир скрыт левой осью. https://www.cyberforum.ru/ cpp-builder/ thread2259806.html

	10.06.2018, 21:19