Ошибка с алгоритмом

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit4.h"
#include "Unit2.h"
#include "Unit3.h"
#include "string.h"
#include <Math.hpp>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
 
//----- Начало процедуры -----
 
void Formula(AnsiString& Vivod, AnsiString Gl_massiv[]) {
    AnsiString Sk_massiv[101];
    int Tmp_st, st; // Переменная степени
    int i_sk;       // Номер ячейки c начала массива скобки
    int j_sk;       // Переменная по перемещению по массиву скобки
    int z;          // Номер ячейки от конца гл. массива
    int i;          // Номер ячейки c начала гл. массива
    int j;          // Переменная по перемещению по гл. массиву
    bool Y, Ysk;    // Булевые типы (Ложь) или (Истина) для гл. массива и скобки
    float ch;       // Число
    float Itog;     // Переменная значений вычислений
 
    //---- Вычисление значений в скобках -----
    for(z = 0; z  <= 100; z++) {  // Чтение то конца гл. массива
        if(Gl_massiv[100 - z] == "(") { // Если левая скобка найдена
            i = 100 - z;
            j = 0;
            Y = false;
            do {
                if(Gl_massiv[i + 1] != ")") {  // Найдена след.закрывающая скобка
                    Sk_massiv[j] = Gl_massiv[i + 1];
                    Gl_massiv[i + 1] = "#"; // Скрываем чило использованное для вычисления
                    j++; i++;
                } else {
                    Gl_massiv[i + 1] = "#";
                    Y = true;
                }
            } while(Y != true);
            Y = false;
            //--------- Вычисление в скобках ---------------
            for (i_sk = 0; i_sk <= 100; i_sk++) {
                Ysk = false;
                //-------------- Косинус---------------
                if (Sk_massiv[i_sk] == "cos") {
                    j_sk = 1;
                    Ysk = false;
                    do {
                       if(Sk_massiv[i_sk + j_sk] != "#") {
                        Itog = Cos(StrToFloat(Sk_massiv[i_sk + j_sk])); //
                        Sk_massiv[i_sk] = FloatToStr(Itog);
                        Sk_massiv[i_sk + j_sk] = "#"; Ysk = true;
                       } else j_sk++;
                    } while(Ysk != true);
                    Ysk = false;
                }
                //-------------- Синус ---------------
                if(Sk_massiv[i_sk] == "sin") {
                    j_sk = 1;
                    Ysk = false;
                    do {
                        if(Sk_massiv[i_sk + j_sk] != "#") {
                            Itog = Sin(StrToFloat(Sk_massiv[i_sk + j_sk]));
                            Sk_massiv[i_sk] = FloatToStr(Itog);
                            Sk_massiv[i_sk + j_sk] = "#"; Ysk = true;
                        } else j_sk++;
                    } while(Ysk != true);
                    Ysk = false;
                }
            }
            //-------------- ^ степень ---------------
            for (i_sk = 0; i_sk <= 100; i_sk++) {
                Ysk = false;
                if(Sk_massiv[i_sk] == "^") {
                    j_sk = 1;
                    Ysk = false;
                    do {
                        if(Sk_massiv[i_sk - j_sk] != "#") {
                            Itog = StrToFloat(Sk_massiv[i_sk - j_sk]);
                            Sk_massiv[i_sk - j_sk] = "#";
                            Ysk = true;
                        } else j_sk++;
                    } while(Ysk != true);
                    Tmp_st = StrToInt(Sk_massiv[i_sk + 1]);
                    ch = Itog;
                    for(st = 2; st <= Tmp_st; st++) {
                        Itog *= ch;
                    }
                    Sk_massiv[i_sk] = FloatToStr(Itog);
                }
            }
            //-------------- Умножение / Деление ---------------
            for(i_sk = 0; i_sk <= 100; i_sk++) {
                Ysk = false;
                //-------------- Умножение---------------
                if(Sk_massiv[i_sk] == "*") {
                    j_sk = 1;
                    Ysk  = false;
                    do {
                          if(Sk_massiv[i_sk - j_sk] != "#") {
                              Itog = StrToFloat(Sk_massiv[i_sk - j_sk]);
                              Sk_massiv[i_sk - j_sk] = "#";
                              Ysk = True;
                          } else j_sk++;
                    } while(Ysk != true);
                    j_sk = 1;
                    Ysk = false;
                    do {
                        if(Sk_massiv[i_sk + j_sk] != "#") {
                            Itog *= StrToFloat(Sk_massiv[i_sk + j_sk]);
                            Sk_massiv[i_sk] = FloatToStr(Itog);
                            Sk_massiv[i_sk + j_sk] = "#";
                            Ysk = true;
                        } else j_sk++;
                    } while(Ysk != true);
                } Ysk = false;
                //-------------- Деление ---------------
                if(Sk_massiv[i_sk] == "/") {
                    j_sk = 1; Ysk = false;
                    do {
                        if(Sk_massiv[i_sk - j_sk] != "#") {
                            Itog = StrToFloat(Sk_massiv[i_sk - j_sk]);
                            Sk_massiv[i_sk - j_sk] = "#";
                            Ysk = true;
                        } else j_sk++;
                    } while(Ysk != true);
                    j_sk = 1;
                    Ysk = false;
                    do {
                        if(Sk_massiv[i_sk + j_sk] != "#") {
                            Itog /= StrToFloat(Sk_massiv[i_sk + j_sk]);
                            Sk_massiv[i_sk] = FloatToStr(Itog);
                            Sk_massiv[i_sk + j_sk] = "#";
                            Ysk = true;
                        } else j_sk++;
                    } while(Ysk != true);
                } Ysk = false;
            }
            //-------------- cложение/вычитание -----------------
            for(i_sk = 0; i_sk <= 100; i_sk++) {
                Ysk = false;
                //-------------- сложение---------------
                if(Sk_massiv[i_sk] == "+") {
                    j_sk = 1;
                    Ysk  = false;
                    do {
                          if(Sk_massiv[i_sk - j_sk] != "#") {
                              Itog = StrToFloat(Sk_massiv[i_sk - j_sk]);
                              Sk_massiv[i_sk - j_sk] = "#";
                              Ysk = True;
                          } else j_sk++;
                    } while(Ysk != true);
                    j_sk = 1;
                    Ysk = false;
                    do {
                        if(Sk_massiv[i_sk + j_sk] != "#") {
                            Itog += StrToFloat(Sk_massiv[i_sk + j_sk]);
                            Sk_massiv[i_sk] = FloatToStr(Itog);
                            Sk_massiv[i_sk + j_sk] = "#";
                            Ysk = true;
                        } else j_sk++;
                    } while(Ysk != true);
                } Ysk = false;
                //-------------- вычитание---------------
                if(Sk_massiv[i_sk] == "-") {
                    j_sk = 1; Ysk = false;
                    do {
                        if(Sk_massiv[i_sk - j_sk] != "#") {
                            Itog = StrToFloat(Sk_massiv[i_sk - j_sk]);
                            Sk_massiv[i_sk - j_sk] = "#";
                            Ysk = true;
                        } else j_sk++;
                    } while(Ysk != true);
                    j_sk = 1;
                    Ysk = false;
                    do {
                        if(Sk_massiv[i_sk + j_sk] != "#") {
                            Itog -= StrToFloat(Sk_massiv[i_sk + j_sk]);
                            Sk_massiv[i_sk] = FloatToStr(Itog);
                            Sk_massiv[i_sk + j_sk] = "#";
                            Ysk = true;
                        } else j_sk++;
                    } while(Ysk != true);
                } Ysk = false;
            }
            //-------------- Натуральный логарифм --------------
            for(i_sk = 0; i_sk <= 100; i_sk++) {
                Ysk = false;
                if(Sk_massiv[i_sk] == "ln"){
                    j_sk = 1;
                    Ysk  = false;
                    do {
                          if(Sk_massiv[i_sk + j_sk] != "#") {
                              ch = StrToFloat(Sk_massiv[i_sk + j_sk]);
                              if(ch > 0) {
                                  Itog = Ln(StrToFloat(Sk_massiv[i_sk + j_sk]));
                                  Sk_massiv[i_sk] = FloatToStr(Itog);
                                  Sk_massiv[i_sk + j_sk] = "#";
                                  Ysk = true;
                              } else {
                                  MessageBox(HWND_DESKTOP, "Натуральний логарифм менше нуля!", "Повідомлення", MB_ICONEXCLAMATION|MB_OK);
                                  Sk_massiv[i_sk] = "0";
                                  Ysk = true;
                              }
                          } else j_sk++;
                    } while(Ysk != true);
                    Ysk = false;
                }
                //-------------- Корень кв.--------------
                if(Sk_massiv[i_sk] == "sqrt") {
                    j_sk = 1;
                    Ysk = false;
                    do {
                    if(Sk_massiv[i_sk + j_sk] != "#") {
                        ch = StrToFloat(Sk_massiv[i_sk + j_sk]);
                        if(ch > 0) {
                            Itog = Sqrt(StrToFloat(Sk_massiv[i_sk + j_sk]));
                            Sk_massiv[i_sk] = FloatToStr(Itog);
                            Sk_massiv[i_sk + j_sk] = "#";
                            Ysk = true;
                        } else {
                            MessageBox(HWND_DESKTOP, "Значення квадратного кореня менше нуля!","Повідомлення", MB_ICONEXCLAMATION|MB_OK);
                            Sk_massiv[i_sk] = 0;
                            Ysk = true;
                        }
                    } else j_sk++;
                } while(Ysk != true);
                Ysk = false;
                }
            }
            Ysk = false;
 
            j_sk = 0;
            do {
                if(Sk_massiv[j_sk] != "#") {
                    Gl_massiv[100 - z] = Sk_massiv[j_sk];   // Запись в гл. массив значение скобки
                    Ysk = true;
                } else j_sk++;
            }  while(Ysk != true);
        }
    }
    //----- Вычиcление значения в скобках закончено -----
    Vivod = Gl_massiv[0];
 
 
}   //----- Конец процедуры -----
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button_ItogoClick(TObject *Sender)
{
    if ((Edit_B->Text=="") || (Edit_A->Text=="") || (Edit_F->Text=="")||
    (Edit_Int->Text==""))
    {
    MessageBox(HWND_DESKTOP, "Заповніть всі поля!", "Повідомлення",MB_ICONEXCLAMATION|MB_OK);
 
    return;}
 
    float a, b, h;                    // Отрезок а, b и шаг h
    float Fx, Fa, Fb;                 // Результат и суммы значений F(xi)
    AnsiString My_vivod;              // Значение F(xi)
    int mas, z, j;                    // Номер ячейки массива
    int i;                            // Номер символа в строке формул
    AnsiString s, st, ch;             // Символ
    bool Bool;
    AnsiString My_massiv[101];        // Массив символов формулы
 
    //----- Присвоение к переменным значений отрезка а,b и шага h -----
    h = StrToFloat(Edit_Int->Text);
    a = StrToFloat(Edit_A->Text);
    b = StrToFloat(Edit_B->Text);
 
     z = 0;
        //----- Вычисление значений Xi на отрезке a,b с шагом h -----
        do {
                // Вывод в массив значения Xi
                SG->Cells[0][z+1] = FloatToStrF(a, ffNumber, 5, 1);
                z++;  // Переход на ячейку ниже
 
                a = RoundTo(a + h, -2);  // Шаг
        }
        while(!(a > b));  // Продолжение цикла до конца отрезка [a,b]
    mas = 0;
    // Вывод всех значений F(xi) в массив
    do {
        i = 1;
        j = 1;
        // Вычисление F(xi) и вывод в массив
        do {
            s = Edit_F->Text[i]; // Копировать i-й символ в строке формул
            // Проверка на значение натурального логарифма
            if(s == "l") {
                s = "ln";
                i++;
            }
            // Проверка на значение косинуса
            if(s == "c") {
                s = "cos";
                i += 2;
            }
            // Проверка на значение синуса или корня
            if(s == "s") {
                i++;
                st = Edit_F->Text[i];
                if(st == "i") {
                    i++;
                    s = "sin";
                } else {
                    s = "sqrt";
                    i += 2;
                }
            }
            // ----- Проверка на значение цифры -----
            if((s == "0")|| (s == "1")||(s == "2")||(s == "3")||(s == "4")
                ||(s == "5")||(s == "6")||(s == "7")||(s == "8")||(s == "9")) {
                    ch = s;
                    Bool = false;
                    do {
                        i++; // Перемещение к след. символу
                        s = Edit_F->Text[i];  // Копировать i-й символ в строке формул
                        // Проверка на значение цифры
                        if((s == "0")|| (s == "1")||(s == "2")||(s == "3")||(s == "4")
                            ||(s == "5")||(s == "6")||(s == "7")||(s == "8")||(s == "9")) {
                                // Если Да
                                ch += s;   // Обьединение нескольких цифр подряl
                            } else Bool = true; // Если нет Bool - Истина
                    } while(Bool != true); // Выход, если Bool - Истина
                    My_massiv[j] = ch;   // Запись значений цифр в массив
                    j++;
            }
             // Если значение не цифра - запись в массив текущего символа
            else {
                My_massiv[j] = s; j++; i++;
            }
        }
        // Продолжение цикла до конца количества символов в строке формул
        while (i <= Edit_F->Text.Length());
        // Взять формулу в массиве в скобки
        My_massiv[0] = "(";
        My_massiv[Edit_F->Text.Length()+1] = ")";
        // Присвоение значению х - значения xi в массиве
        for(i = 0; i <= 100; i++) {
            if(My_massiv[i] == "x") {
                My_massiv[i] = SG->Cells[0][mas+1];
            }
            }
            Formula(My_vivod, My_massiv);
            SG->Cells[1][mas+1] = My_vivod; // Вывод F(xi) в массив
            mas++;       // Перемешение в массиве на строку ниже
        // Продолжение цикла до последнего значения xi
    } while(mas <= z - 1);
    Fa = i = 0; // Обнуление переменных
    // Суммирование значений F(x2,x4..xn-2)
    do {
        Fa += StrToFloat(SG->Cells[1][i+1]);
        i += 2;
    } while(i < z);
    i = 0;
    // Суммирование значений F(x1,x3..xn-1)
    do {
        Fb += StrToFloat(SG->Cells[1][i+2]);
        i += 2;
    } while(i < z - 1);
 
    // ----- Вычисление значения F(x) -----
    Fx = (float)(StrToFloat(h)/3)*(StrToFloat(SG->Cells[1][1]) + 4*Fb + 2*Fa);
 
    // ----- Вывод результата -----
    Form2->Label3->Caption = FloatToStrF(h, ffNumber, 5, 1) + "/3 *  (" + SG->Cells[1][1] +
        " + 4*(" +FloatToStr(Fb)  + ") +  2*(" + FloatToStr(Fa) + ")) = " +FloatToStr(Fx) + " ";
    Label13->Caption = "Результат: " + FloatToStr(Fx);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Label5Click(TObject *Sender)
{
    Form_help->ShowModal();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Form_help->ShowModal();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N4Click(TObject *Sender)
{
WinHelp(Handle, "../myHelp.hlp", HELP_CONTEXT, 1);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N6Click(TObject *Sender)
{
exit(0);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N5Click(TObject *Sender)
{
Edit_A->Clear();
Edit_B->Clear();
Edit_F->Clear();
Edit_Int->Clear();
Label13->Caption="";
Form2->Label3->Caption="";
 
for(int j=0;j<SG->RowCount-1;j++)
for(int i=0;i<SG->ColCount; i++)
{
    SG->Cells[i][j] = ' ';
 }
 
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
TStringList *MyCom=new TStringList; // Создаем дополнительный объект
String sp = "            ";
MyCom->Add("X(i)                 F(Xi)");
 
 
for(int j=0;j<SG->RowCount-1;j++)
        {
        MyCom->Add(SG->Cells[0][j+1] + sp + SG->Cells[1][j+1]);
        }
 
MyCom->SaveToFile("..\\MyFile.txt"); // Записываем в файл, все что у нас получилось в файл c:\\MyFile.txt
 
if (SaveDialog1->Execute())
  MyCom->SaveToFile(SaveDialog1->FileName);
  delete MyCom;// Удаляем вспомогательный объект
    // MessageBox(HWND_DESKTOP, "Дані успішно записані!", "Повідомлення",MB_ICONINFORMATION|MB_OK);
        }
 
 
void __fastcall TForm1::Edit_BKeyPress(TObject *Sender, wchar_t &Key)
{
 
if ((Key>='0') && (Key<='9'))
 return;
 
if ((Key=='.') || (Key==','))
{
 Key = DecimalSeparator;
 if   ( (((TEdit*)Sender)->Text).Pos (DecimalSeparator) !=0)
 Key=0;
 return;
 
}
 
switch  (Key)
{
 case'-':
 if (Edit_B->SelStart !=0)
 Key=0;
 break;
}
 
if (Key== '-')
 return;
if (Key== VK_BACK)
 return;
if (Key==VK_RETURN)
{
if (((TEdit*)Sender)->Name == "Edit_B")
 Edit_A->SetFocus();
 
}
Key=0;
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::N9Click(TObject *Sender)
{
Edit_B->CopyToClipboard();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N10Click(TObject *Sender)
{
Edit_B->PasteFromClipboard();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N8Click(TObject *Sender)
{
Edit_B->CutToClipboard();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N7Click(TObject *Sender)
{
 Edit_B->SelectAll();
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::N3Click(TObject *Sender)
{
MessageBox(HWND_DESKTOP, "Дана програма була написана студентом 471 гр. КІСіТ ДВНЗ КНЕУ Михайловським О.Є., на мові програмування C++","Повідомлення",MB_ICONINFORMATION|MB_OK);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N12Click(TObject *Sender)
{
Form4->ShowModal();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Label13Click(TObject *Sender)
{
Form2->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
SG->Cells[0][0] = "              F(Xi)";
SG->Cells[1][0] = "                (Xi)";
}
//---------------------------------------------------------------------------