Как реализовать функцию в форме?

@a_lar · Регистрация: 07.12.2017

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

Хочу к примеру эту функцию добавить в форму, куда ее конкретно добавлять?

C++
1
2
3
4
5
6
double func(double x)
{
    double r = sin(x);
    r = 1. - r*r/4.;
    return r;
}

Полный код

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <math.h>
 
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)   {
 
ComboBox1->Items->Add("0*dx");
ComboBox1->Items->Add("dx");
ComboBox1->Items->Add("(x^n)*dx");
ComboBox1->Items->Add("(dx)/x");
ComboBox1->Items->Add("(a^x)dx");
ComboBox1->Items->Add("(e^x)*dx");
ComboBox1->Items->Add("sin(x)dx");
ComboBox1->Items->Add("cos(x)dx");
ComboBox1->Items->Add("dx/sin^2(x)");
ComboBox1->Items->Add("dx/cos^2(x)");
 
 
ComboBox2->Items->Add("0*dx");
ComboBox2->Items->Add("dx");
ComboBox2->Items->Add("(x^n)*dx");
ComboBox2->Items->Add("(dx)/x");
ComboBox2->Items->Add("(a^x)dx");
ComboBox2->Items->Add("(e^x)*dx");
ComboBox2->Items->Add("sin(x)dx");
ComboBox2->Items->Add("cos(x)dx");
ComboBox2->Items->Add("dx/sin^2(x)");
ComboBox2->Items->Add("dx/cos^2(x)");
}
//---------------------------------------------------------------------------
 
 
 
 
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   int f[10] ;
   int x,w,q;
   double n;
   float q_1,e,q_2,s,s_1,cotan,z,qq;
   x=  StrToInt (Edit3->Text);
  if (ComboBox1->ItemIndex == 0){ f[0]=0;
   ListBox4->Items->Add(""+IntToStr(0));}
    if (ComboBox1->ItemIndex == 1){ f[1]= x; ListBox4->Items->Add(""+IntToStr(x));  }
      if (ComboBox1->ItemIndex == 2){ f[2]=w;  n=  StrToInt (Edit4->Text)  ;
      if (n!=(-1)) x>0 ; else
      w= pow(x, (n+1))/n+1; ListBox4->Items->Add(""+IntToStr(w));   }
        if (ComboBox1->ItemIndex == 3){ f[3]=q;
        q=log(fabs(x)); ListBox4->Items->Add(""+IntToStr(q)); }
          if (ComboBox1->ItemIndex == 4){ f[4]=q_1;  //a-x; x-n;
          q_1=(pow(x,n))/log(x); ListBox4->Items->Add(""+FloatToStr(q_1));  }
            if (ComboBox1->ItemIndex == 5){ f[5]=q_2; e= 2.718;
            q_2=pow(e,x); ListBox4->Items->Add(""+FloatToStr(q_2)); }
              if (ComboBox1->ItemIndex == 6){ f[6]=s;
              s=sin(x);
              s=-cos(x); ListBox4->Items->Add("sin => -cos \t -"+FloatToStr(s));  }
                if (ComboBox1->ItemIndex == 7){ f[7]=s_1;
                s_1=cos(x); s_1=sin(x);  ListBox4->Items->Add("cos=>sin "+FloatToStr(s_1));  }
                  if (ComboBox1->ItemIndex == 8){ f[8]=z;
                 cotan=cos(x)/sin(x);  z=cotan; ListBox4->Items->Add("-ctg "+FloatToStr(z)); }
                    if (ComboBox1->ItemIndex == 9){ f[9]=qq;
                    qq=tan(x); ListBox4->Items->Add("tg "+FloatToStr(qq));  }
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
float a, b,f,sum, eps;//Нижний и верхний пределы интегрирования (a, b), погрешность (eps).
    a= StrToFloat (Edit1->Text);
        b=  StrToFloat (Edit2->Text);
        eps= StrToFloat (Edit5->Text);
    double I=eps+1, I1=0;//I-предыдущее вычисленное значение интеграла, I1-новое, с большим N.
    for (int N=2; (N<=4)||(fabs(I1-I)>eps); N*=2)
    {
        double h, sum2=0, sum4=0, sum=0;
        h=(b-a)/(2*N);//Шаг интегрирования.
        for (int i=1; i<=2*N-1; i+=2)
        {   
            sum4+=f*(a+h*i);//Значения с нечётными индексами, которые нужно умножить на 4.
            sum2+=f*(a+h*(i+1));//Значения с чётными индексами, которые нужно умножить на 2.
        }
        sum=f*(a)+4*sum4+2*sum2-f*(b);//Отнимаем значение f(b) так как ранее прибавили его дважды.
        I=I1;
        I1=(h/3)*sum;
    }
ListBox1->Items->Add("результат по методу Симпсона= "+FloatToStr(I1));  }
 
 
 
 
//---------------------------------------------------------------------------

@lifeforce · 02.06.2019, 20:10

Сообщение от a_lar

куда ее конкретно добавлять

в начало формы.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#include <vcl.h>
#include <math.h>
 
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
double func(double x)
{
    double r = sin(x);
    r = 1. - r*r/4.;
    return r;
}

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .