Загальні відомості про мову програмування С++

// розрахунок  значень у в степені а2

          yc =yc*y0;

// розрахунок  факторіала

          tc *= rc;

// розрахунок  суми членів ряду без першого,  що дорівнює 1

          ec += yc/(y0*tc);

// обчислювання  значення е в заданої степені

          xc=ec+ 1;

// обчислювання  значення останнього  члена ряду

          dd = yc/(y0*tc);

// вивід  результатів розрахунку на форму

Label9->Caption = "Результат :" + FloatToStrF(xc,ffGeneral,7,2);

// Завершення циклу, перевірка виконання умови: допустимого числа ітерацій

// та  точності розрахунку

      } while (dc <= b ^ dd <= d);

w = (x + xc)/y0*y0*y0*y0;

Label10->Caption = "Результат :" + FloatToStrF(w,ffGeneral,7,2);

}

//--------------------------------------------------------------------------- 

      void __fastcall TForm1::Button2Click(TObject *Sender)

       {

      // Процедура запису і читання даних в і з файлу Test.txt

      float d1, y1, x1; // Вводимо додаткові змінні

      char s[10], s1[10];   // Оголошення рядка довжиною 10 символів

      strcpy(s,"Raschet");// Додавання до рядка  s слова  "Raschet"

      int handle; // запис в файл

      // Якщо кнопка Button2 натиснута 1 раз

      switch (Button2->Tag)

        {

  case 0:

  Button2->Tag = 1;     // значенню Tag привласнюється значення 1

 if ((handle = open("Test.txt", O_WRONLY | O_CREAT | O_BINARY)) == -1)

 {

  // Повідомлення  при помилці створення файлу:

  ShowMessage("Файл  не вдається створити");

  return;

}

write(handle,&d,sizeof(int)); //запис d

write(handle,&y0,sizeof(int)); //запис y0

write(handle,&x,sizeof(int)); //запис x

write(handle,s,strlen(s)+1); //запис рядка s

close(handle);

Button2->Caption = " Читати ";// висновок на кнопці Button2 напису "Читати"

break;

  case 1:  // Якщо Button2 нажати повторно

// процедура читання з файлу

  if ((handle = open("Test.txt", O_RDONLY | O_BINARY)) == -1)

{

// Повідомлення при помилці читання файлу

ShowMessage("Файл не вдається відкрити");

return;

}

read(handle, &d1, sizeof(int)); // читання d

read(handle, &y1, sizeof(int)); // читання y

read(handle, &x1, sizeof(int)); // читання x

read(handle, s1, strlen(s)+1); // читання рядка

// активація  відображень на формі елементів  Label1,2,3

   Label1->Visible = true;

   Label2->Visible = true;

 Label3->Visible = true;

   // висновок прочитаної інформації на форму

 Label1->Caption ="Записане число точність:" + FloatToStrF(d1,ffGeneral,7,2);

 Label2->Caption = "Записане число ступінь:" + FloatToStrF(y1,ffGeneral,7,2);

 Label3->Caption = "Записане число результат:" + FloatToStrF(x,ffGeneral,7,2);

 close(handle);

  break;

}

 }

//---------------------------------------------------------------------------

// Процедури  обробки події "клік" мишки  у вікні Edit1 або Edit2

// Кнопка Button2 і висновок результатів повинні стати недоступні

// Для Edit2:

void __fastcall TForm1::Edit2Change(TObject *Sender)

{ 

Button2->Enabled = false;

Label1->Visible = false;

Label2->Visible = false;

Label3->Visible = false;

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Edit1Change(TObject *Sender)

{

Button2->Enabled = false;

Label1->Visible = false;

Label2->Visible = false;

Label3-> Visible = false;

}

//--------------------------------------------------------------------------- 
 
 
 

      Додаток А

     

       Рисунок ДА 1. – Вид вікна програми до початку обчислень

     

       Рисунок ДА 2. – Вид вікна програми після обчислення

     

       Рисунок ДА 3. – Вид вікна програми після читання з файлу результатів обчислень