Функции пользователя С++

@Wodelectro · Регистрация: 03.12.2011

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

Ребята кто может подскажет как сделать что бы программа считала дальше. перепробовал всё.
Первый скрин мой и как считает прога.
Второй скрин как нужно, но не знаю как сделать.

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
void Out_Rez(double, double, double, double, TMemo*);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1->Text="0,1";
Edit2->Text="1,0";
Edit3->Text="10";
Memo1->Clear();
Memo2->Clear();
RadioGroup1->ItemIndex = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
double a, b, x, y, h, r, s;
 int n, k, fact, zn=-1;
 a = StrToFloat(Edit1->Text);
 b = StrToFloat(Edit2->Text);
 n = StrToFloat(Edit3->Text);
for(x = a; x<=b; x+=h){
y=sin(x);
for( int i = 1; i <= (k*2 + 1); i++ )
for (k=0; k<=n; k++){
if(k==0) fact = 1;
else fact*=k;
s+=pow(x,2+1)/fact;
}
r=fabs(y-s);
Out_Rez(x,y,s,r,Memo1);
}
}
void Out_Rez(double x,double y,double s,double r, TMemo *Memo1)
    {
Memo1->Lines->Add("При x= "+FloatToStrF(x,ffFixed,8,2));
Memo1->Lines->Add("Y(x)= "+FloatToStrF(y,ffFixed,8,6));
Memo1->Lines->Add(" S(x)= "+FloatToStrF(s,ffFixed,8,6));
Memo1->Lines->Add(" |Y(X)-S(x)|= "+FloatToStrF(r,ffFixed,8,6));
 }
//---------------------------------------------------------------------------

@Почтальон · 15.11.2016, 13:28

Что-то не вяжется. У вас на скрине x и y выводятся в одну строчку, а в коде - добавляются построчно.

@Sanya Black1993 · 15.11.2016, 13:33

Wodelectro, если я правильно понял, то у вас происходит зацикливание. Если я не ошибаюсь, то у вас шаг h не указан. То есть по коду h=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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
void Out_Rez(double, double, double, double, TMemo*);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1->Text="0,1";
Edit2->Text="1,0";
Edit3->Text="10";
Memo1->Clear();
Memo2->Clear();
RadioGroup1->ItemIndex = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
double a, b, x, y, h, r, s;
 int n, k, fact, zn=-1;
 a = StrToFloat(Edit1->Text);
 b = StrToFloat(Edit2->Text);
 n = StrToFloat(Edit3->Text);
h=0.5;
for(x = a; x<=b; x+=h){
y=sin(x);
for( int i = 1; i <= (k*2 + 1); i++ )
for (k=0; k<=n; k++){
if(k==0) fact = 1;
else fact*=k;
s+=pow(x,2+1)/fact;
}
r=fabs(y-s);
Out_Rez(x,y,s,r,Memo1);
}
}
void Out_Rez(double x,double y,double s,double r, TMemo *Memo1)
    {
Memo1->Lines->Add("При x= "+FloatToStrF(x,ffFixed,8,2));
Memo1->Lines->Add("Y(x)= "+FloatToStrF(y,ffFixed,8,6));
Memo1->Lines->Add(" S(x)= "+FloatToStrF(s,ffFixed,8,6));
Memo1->Lines->Add(" |Y(X)-S(x)|= "+FloatToStrF(r,ffFixed,8,6));
 }
//---------------------------------------------------------------------------

Что касается вывода в Memo согласен с Почтальон

@Wodelectro · 15.11.2016, 14:46 **[ТС]**

я вот так вот сделал и все равно - не считает как показано на 2 скрине

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
void Out_Rez(double, double, double, double, TMemo*);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//------------Декларации прототипов функций Пользователя ---------------
    double fun1(double);
    double fun2(double);
    void Out_Rez(int, double, double, double);
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1->Text="0,1";
Edit2->Text="1,0";
Edit3->Text="10";
Memo1->Clear();     
Memo2->Clear();
RadioGroup1->ItemIndex = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        double a, b, h;
        a = StrToFloat(Edit1->Text);
            b = StrToFloat(Edit2->Text);
            h = StrToFloat(Edit3->Text);
                Out_Rez (RadioGroup1->ItemIndex, a, b, h);
}
//---------------------------------------------------------------------------
 //---------- Реализации функций Пользователя ---------------------------------
double fun1( double r)
{
        return 2*exp(r*r);
}
//---------------------------------------------------------------------------
double fun2(double r) 
{
        return pow(sin(r), 2);
}
 
 //---------------------------------------------------------------------------
void Out_Rez (int kod, double xn,double xk,double h)
{
      double (*fun)(double);            // Декларация указателя на функцию
      TMemo *mem;
          switch(kod) {
                case 0:
                            fun = fun1; 
                mem = Form1->Memo1;
                break;
                case 1: 
                fun = fun2; 
                mem = Form1->Memo2;
                break;
          }
          for(double x=xn; x<=xk; x+=h)
                mem->Lines->Add(" x = " + FloatToStrF(x,ffFixed,8,2) +
                            "  y = " + FloatToStrF(fun(x),ffFixed,8,4));
}

Добавлено через 47 секунд
я вот так вот сделал и все равно не то что то.

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#include <math.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
void Out_Rez(double, double, double, double, TMemo*);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//------------Декларации прототипов функций Пользователя ---------------
    double fun1(double);
    double fun2(double);
    void Out_Rez(int, double, double, double);
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1->Text="0,1";
Edit2->Text="1,0";
Edit3->Text="10";
Memo1->Clear();     
Memo2->Clear();
RadioGroup1->ItemIndex = 0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        double a, b, h;
        a = StrToFloat(Edit1->Text);
            b = StrToFloat(Edit2->Text);
            h = StrToFloat(Edit3->Text);
                Out_Rez (RadioGroup1->ItemIndex, a, b, h);
}
//---------------------------------------------------------------------------
 //---------- Реализации функций Пользователя ---------------------------------
double fun1( double r)
{
        return 2*exp(r*r);
}
//---------------------------------------------------------------------------
double fun2(double r) 
{
        return pow(sin(r), 2);
}
 
 //---------------------------------------------------------------------------
void Out_Rez (int kod, double xn,double xk,double h)
{
      double (*fun)(double);            // Декларация указателя на функцию
      TMemo *mem;
          switch(kod) {
                case 0:
                            fun = fun1; 
                mem = Form1->Memo1;
                break;
                case 1: 
                fun = fun2; 
                mem = Form1->Memo2;
                break;
          }
          for(double x=xn; x<=xk; x+=h)
                mem->Lines->Add(" x = " + FloatToStrF(x,ffFixed,8,2) +
                            "  y = " + FloatToStrF(fun(x),ffFixed,8,4));
}

@Почтальон · 15.11.2016, 14:54

Попробуйте через обращение к главной форме:

C++
1
Form1->mem->Lines->Add(" x = " + FloatToStrF(x,ffFixed,8,2) + "  y = " + FloatToStrF(fun(x),ffFixed,8,4));

@Wodelectro · 15.11.2016, 15:08 **[ТС]**

Всё так же, теперь все эти значения выводятся в Memo1

@Почтальон · 15.11.2016, 16:28

Зачем в 64 строке копируете Memo2 ? Складывается впечатление, что код слизали где-то у одногрупника, и методом тыка пытаетесь подогнать под свой.
Проглядел что mem - это динамический обект.
Вот смотрите, процедуре Out_Rez вы заполняете динамический объект - mem. А где вы выводите данные из этого динамического объекта ?

@Wodelectro · 16.11.2016, 10:14 **[ТС]**

Если бы у одногрупника, поиск в интернете мне помог (ну почти). Я учусь один. Дистанционно.
Копирую мемо2 потому что на форме у меня два элемента мемо 1 и мемо два. В первое мемо выводиться функция 2*exp... а в мемо 2 вывожу функцию sin(x)...

@Почтальон · 16.11.2016, 12:21

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

В первое мемо выводиться функция 2*exp... а в мемо 2 вывожу функцию sin(x)...

Ну и покажите код, где вы выводите в Memo1 и Memo2 результат вычислений, который содержится в mem ?

@Wodelectro · 23.11.2016, 09:56 **[ТС]**

Всё сделал. Проблема была в другом совсем.

@Почтальон · 23.11.2016, 11:30

И в чем же, если не секрет ?

@Wodelectro · 24.11.2016, 19:28 **[ТС]**

C++
1
Edit3->Text="10";

нужно было указать не 10 а 0,1. и всё стало отлично работать.

Новые блоги и статьи Все статьи Все блоги /
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(), которая. . .

@Почтальон управление сложностью 1693 / 1306 / 259 Регистрация: 22.03.2015 Сообщений: 7,545 Записей в блоге: 5
	15.11.2016, 13:28
	Что-то не вяжется. У вас на скрине x и y выводятся в одну строчку, а в коде - добавляются построчно. 0

@Wodelectro 0 / 0 / 0 Регистрация: 03.12.2011 Сообщений: 65
	15.11.2016, 15:08 [ТС]
	Всё так же, теперь все эти значения выводятся в Memo1 0

@Почтальон управление сложностью 1693 / 1306 / 259 Регистрация: 22.03.2015 Сообщений: 7,545 Записей в блоге: 5
	15.11.2016, 16:28
	Зачем в 64 строке копируете Memo2 ? Складывается впечатление, что код слизали где-то у одногрупника, и методом тыка пытаетесь подогнать под свой. Проглядел что mem - это динамический обект. Вот смотрите, процедуре Out_Rez вы заполняете динамический объект - mem. А где вы выводите данные из этого динамического объекта ? 0

@Wodelectro 0 / 0 / 0 Регистрация: 03.12.2011 Сообщений: 65
	16.11.2016, 10:14 [ТС]
	Если бы у одногрупника, поиск в интернете мне помог (ну почти). Я учусь один. Дистанционно. Копирую мемо2 потому что на форме у меня два элемента мемо 1 и мемо два. В первое мемо выводиться функция 2*exp... а в мемо 2 вывожу функцию sin(x)... 0

@Wodelectro 0 / 0 / 0 Регистрация: 03.12.2011 Сообщений: 65
	23.11.2016, 09:56 [ТС]
	Всё сделал. Проблема была в другом совсем. 0

@Почтальон управление сложностью 1693 / 1306 / 259 Регистрация: 22.03.2015 Сообщений: 7,545 Записей в блоге: 5
	23.11.2016, 11:30
	И в чем же, если не секрет ? 0