Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
1 / 1 / 1
Регистрация: 12.02.2015
Сообщений: 51

Нужно перевести с Buildera на с++ в visual studio

15.05.2017, 19:02. Показов 972. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
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
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <math.h>
#include <vector.h>
#include <algorithm.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "normal.cpp"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
y[1]=178.6381;  y[2]=142.9308;  y[3]=135.9521;  y[4]=132.5143;
y[5]=126.3628;  y[6]=126.9367;  y[7]=132.6447;  y[8]=132.3059;
y[9]=134.1794;  y[10]=136.8466; y[11]=133.5957; y[12]=136.2787;
y[13]=132.3275; y[14]=131.0103; y[15]=125.3041; y[16]=124.5165;
y[17]=121.8719; y[18]=123.4127; y[19]=127.2653; y[20]=127.605;
y[21]=129.1836; y[22]=134.5043; y[23]=135.2998; y[24]=130.6255;
y[25]=126.6865; y[26]=128.6657; y[27]=124.9483; y[28]=119.3661;
y[29]=120.3615; y[30]=125.6202; y[31]=127.4481; y[32]=123.9079;
y[33]=129.7037; y[34]=132.6815; y[35]=127.1183; y[36]=131.0882;
Pi = 3.1415926535;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
if (!LookForInputErrors())
        return;
Series1->Clear();
DrawY0();
DrawY();
float B, E;
ConfidenceInterval(B, E);
AnsiString temp;
temp = "[" + FloatToStr(B) + "; " + FloatToStr(E) + "]";
Label5->Caption = temp;
}
//---------------------------------------------------------------------------
 
bool __fastcall TForm1::LookForInputErrors()
{
if (!TryStrToInt  (Edit1->Text, M)     ||
    !TryStrToFloat(Edit2->Text, gamma) ||
    !TryStrToFloat(Edit3->Text, t))
        goto end1;
 
if (gamma <= 0  ||
    gamma >= 1  ||
    M     <= 0  ||
    t     >  48 ||
    t     <  1   )
        goto end1;
 
for (int i = 1; i < 37; i++)
        if (t == i)
                {Label5->Caption = "Введите НЕИЗВЕСТНУЮ точку t"; goto end2;}
 
Del = (int)(M * (1 - gamma));
if ((Del == 0)              ||
    (M == 1)                ||
    ((int)(M * gamma) == 0) ||
    (Del % 2 + Del == M))
        {Label5->Caption = "Мало точек М для данного gamma"; goto end2;}
Del += Del % 2;
return true;
end1:
Label5->Caption = "Неверный ввод данных!";
end2:
return false;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::DrawY0()
{
for (int i = 1; i < 37; i++)
        Series1->AddXY(i, y[i], "", clGreen);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::DrawY()
{
for (int i = 1; i < (int)(t); i++)
        Series2->AddXY(i, GetY(i), "", clRed);
Series2->AddXY(t, GetY(t), "t", clGreen);
}
//---------------------------------------------------------------------------
 
float __fastcall TForm1::GetY(float ti)
{
return  125.3902681+46.86931076/ti+0.01551070175+
        5.784727809*sin(Pi*ti/6.+2.219433212)+
        1.348911166*sin(2*Pi*ti/3.+0.001380289934);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormResize(TObject *Sender)
{
Chart1->Width = Form1->Width - 306;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::ConfidenceInterval(float & a, float & b)
{
std::vector<float> E;
GetLocalTime(&tm);
float avg = 0, deviation = 0;
 
for (int i = 1; i < 37; i++)
        avg += y[i];
avg /= 36;
 
for (int i = 1; i < 37; i++)
        deviation += ((y[i] - avg) * (y[i] - avg));
deviation /= 35;
deviation = sqrt(deviation);
 
int seed = tm.wSecond*1000+tm.wMilliseconds;
for (int i = 0; i < M; i++)
        E.insert(E.end(), r4_normal_ab(0, deviation, seed));
std::sort(E.begin(), E.end());
a = GetY(t) + E[(Del / 2) - 1];
b = GetY(t) + E[M - (Del / 2) - 1];
}
//---------------------------------------------------------------------------


Считаем параметры для неё и вызываем в цикле:
for (int i = 0; i < M; i++)
E.insert(E.end(), r4_normal_ab(0, deviation, seed));

DrawY0 – рисуем начальные данные
DrawY – рисуем график модели
ConfidenceInterval – считаем интервал
LookForInputErrors – просто смотрим чтобы данные были нормальными

GetY – сама функция модели

Прога простая:
1. Строишь график начальных данных
2. Строишь график полученной в инд1 модели
3. Пользователь вводит точку прогноза за пределами промежутка начальных данных не далее чем на треть отрезка (если было 36 месяцев – то моксимум на 36/3=12 → 48 месяц), уровень доверия (гамма из 0..1) и количество точек М
4. Программа генерирует М псевдослучайных нормально распределённых точек (обычный рандомизатор выдаёт равномерно распределённые – он не подходит)
5. Полученные М точек упорядочиваются по возрастанию и из них отбрасываются М*(1-гамма)/2 точек сверху и снизу (напр.: М=10, гамма=0.8, отбрасываем 10*(1-0.8)/2=1 точек сверху и снизу).
6. Получаются две точки – меньше нуля и больше нуля – макс и мин нового набора точек.
7. Берём точку прогноза и выводим доверительный интервал: [знач_в_точке_прогноза+мин_М, знач_в_точке_прогноза+макс_М]
Итого:
Ввести: М, гамма, точка прогноза.
Вывести: график начальных данных, график модели, доверительный интервал
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
15.05.2017, 19:02
Ответы с готовыми решениями:

Проект C# Visual Studio 2010 перевести в Visual Studio 2005
Подскажите как проект создан в C# Visual Studio 2010 перевести в версию Visual Studio 2005, пожалуйста..

Перевести с RAD Studio в Visual Studio
Помогите перевести код С++ (Embarcadero RAD Studio) на (visual studio). Синтаксис разный :c ...

Написать программу. Задания нужно выполнять на языке Visual C++ в среде Microsoft Visual Studio 2008
Можете написать программу? Задание по номером 3.24 (2 рисунок).

4
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33379 / 21503 / 8236
Регистрация: 22.10.2011
Сообщений: 36,899
Записей в блоге: 12
15.05.2017, 19:45
В каком проекте для Visual Studio это нужно?
0
1 / 1 / 1
Регистрация: 12.02.2015
Сообщений: 51
15.05.2017, 20:26  [ТС]
Visual studio на c++
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33379 / 21503 / 8236
Регистрация: 22.10.2011
Сообщений: 36,899
Записей в блоге: 12
15.05.2017, 20:27
Я не спрашиваю, какой язык, я спрашиваю, "какой проект?"
MFC? CLI WinForms? WinAPI?
0
1 / 1 / 1
Регистрация: 12.02.2015
Сообщений: 51
15.05.2017, 21:43  [ТС]
volvo, можно MFC...

Добавлено через 17 минут
volvo, если не затруднит Вас.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
15.05.2017, 21:43
Помогаю со студенческими работами здесь

Помогите перевести код для Visual Studio !
#include &lt;iostream&gt; #include &lt;iomanip&gt; #include &lt;ctime&gt; int main() { size_t rows, cols; std::cout &lt;&lt; &quot;Rows: &quot;; std::cin...

Установка C++ Redistributable Visual Studio 2017 и Visual C++ для Visual Studio 2015
Доброго дня. Пытаюсь изучить PHP. Решил установить сервер локальный. В инструкции сказано: &quot;Ещё нам нужен файл C++...

Нужно перевести в visual basic
Нужно перевести решение из паскаля в vb , а перевести не получается помогите пожалуйста program s4; var n,a1,a2,b1,b2:integer; ...

Нужно перевести с Delphi в Visual C++
procedure TForm1.Button1Click(Sender: TObject); begin try if Button1.Caption='Зупинити' then begin logs('Сервер зупинено'); ...

Нужно разобраться с Visual Studio
Здравствуйте. Мне просто необходима ваша помощь. Дело в том, что в Microsoft Visual Studio 2010 не хочет компилироваться следующий код: ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств
8Observer8 07.02.2026
Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве
8Observer8 02.02.2026
Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .
Философия технологии
iceja 01.02.2026
На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru