Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 13.04.2013
Сообщений: 13

Переделать из формы в консоль

24.04.2014, 14:45. Показов 647. Ответов 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
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
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
//---------------------------------------------------------------------------
 
#include <vcl.h>
#include <fstream.h>
#include <iostream.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "CSPIN"
#pragma resource "*.dfm"
TForm1 *Form1;
const int n=10;
float x_i[n+1];
float f_i[n+1];
float a_i[n+1],b_i[n+1],y_i[n+1],z;
int i,k,m;
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Chart1->Visible=False;StringGrid1->Visible=False;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
float sqr(float chislo)
{
return chislo*chislo;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
float q_k(int k,float x_i)
{
if (k==0) return 1;
if (k==1) return x_i-b_i[0];
return (x_i-b_i[k-1])*q_k(k-1,x_i)-y_i[k-2]*q_k(k-2,x_i);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void MNK(float* x,float* f,int n,int m,float* a)
{
b_i[0]=0;
for(i=0;i<=n;i++) b_i[0]=b_i[0]+x[i];
b_i[0]=b_i[0]/(n+1);
for(k=1;k<=(m-1);k++) {
b_i[k]=0;z=0;
for (i=0;i<=n;i++) { b_i[k]=b_i[k]+x[i]*sqr(q_k(k,x[i]));
z=z+sqr(q_k(k,x[i]));}
b_i[k]=b_i[k]/z;
y_i[k-1]=0;z=0;
for (i=0;i<=n;i++) {y_i[k-1]=y_i[k-1]+x[i]*q_k(k,x[i])*q_k(k-1,x[i]);
z=z+sqr(q_k(k-1,x[i]));}
y_i[k-1]=y_i[k-1]/z;
}
for (k=0;k<=m;k++) {
a[k]=0;z=0;
for (i=0;i<=n;i++) {a[k]=a[k]+f[i]*q_k(k,x[i]);
z=z+sqr(q_k(k,x[i]));}
a[k]=a[k]/z;}
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
float P_m(float x,float* a,int m)
{
z=0;
for(int k=0;k<=m;k++) z=z+a[k]*q_k(k,x);
return z;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void grafik()
{
float h;
h=(x_i[n]-x_i[0])/40;
Form1->Chart1->Series[0]->Clear();
Form1->Chart1->Series[1]->Clear();
for(i = 0;i<=n;i++) Form1->Chart1->Series[1]->AddXY(x_i[i],f_i[i]);
for(i = 0;i<=40;i++)Form1->Chart1->Series[0]->AddXY(x_i[0]+i*h,P_m(x_i[0]+i*h,a_i,m));
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
float S(float* a,float* f,float* x,int m,int n)
{
float d;
d=0;
for (i=0;i<=n;i++)
d=d+sqr(P_m(x[i],a,m)-f[i]);
return d;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void table()
{
Form1->StringGrid1->Cols[0]->Strings[0]="x_i";
Form1->StringGrid1->Cols[1]->Strings[0]="f_i";
for (i=0;i<=n;i++)
Form1->StringGrid1->Cols[i+2]->Strings[0]="P_"+IntToStr(i);
for (i=0;i<=n;i++) {
Form1->StringGrid1->Cols[0]->Strings[i+1]=FloatToStrF(x_i[i],ffFixed,1,2);
Form1->StringGrid1->Cols[1]->Strings[i+1]=FloatToStrF(f_i[i],ffFixed,1,2);}
for (i=0;i<=n;i++)
Form1->StringGrid1->Cols[m+2]->Strings[i+1]=FloatToStrF(P_m(x_i[i],a_i,m),ffFixed,1,2);
Form1->StringGrid1->Cols[m+2]->Strings[12]=FloatToStrF(S(a_i,f_i,x_i,m,n),ffExponent,3,2);
Form1->StringGrid1->Cols[1]->Strings[12]="S=";
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void vvoddan(float* f,float* x)
{
ifstream infile("dannie.txt");
i=0;
char buff[6];
while (!infile.eof())
{
infile.getline(buff,sizeof(buff));
if (i<11) {x[i]=StrToFloat(buff);}
else {f[i-11]=StrToFloat(buff);}
i++;
}
infile.close();
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
m=StrToInt(Form1->Edit1->Text);
vvoddan(f_i,x_i);
MNK(x_i,f_i,n,m,a_i);
grafik();
table();
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
if (Button2->Caption=="Ãðàôèê") {Button2->Caption="Òàáëèöà";
Chart1->Visible=False;StringGrid1->Visible=True;}
else {Button2->Caption="Ãðàôèê";
Chart1->Visible=True;StringGrid1->Visible=False;}
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
 
void __fastcall TForm1::CSpinButton1DownClick(TObject *Sender)
{
if (StrToInt(Edit1->Text)!=0) Form1->Edit1->Text=IntToStr(StrToInt(Form1->Edit1->Text)-1);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::CSpinButton1UpClick(TObject *Sender)
{
if (StrToInt(Edit1->Text)!=10) Form1->Edit1->Text=IntToStr(StrToInt(Form1->Edit1->Text)+1);
}
//---------------------------------------------------------------------------
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
24.04.2014, 14:45
Ответы с готовыми решениями:

Как переделать с файла на консоль
Пытаюсь переписать код на считывание с консоли при вводе а не с файла и не выходит, помогите ламеру. #include &lt;iostream&gt; #include...

Однонаправленный список: переделать код под консоль
Имеется три файла, помогите пожалуйста, мне нужно эту задачу реализовать в Консольном приложении в Визуал студио 2008, Чтоб на консоль...

Как переделать код, чтобы вывод был в консоль?
Как переделать этот код , что бы вывод был в консоль? uses crt; var f,g: text; s: string; i: byte; begin ...

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

Консоль внутри формы
Необходимо сделать прогу, которая обьеденяла бы 2 консольных приложения, написанных на яве. Т.е.Есть 2 сервера,авторизации и...

Переделать в формы
&quot;Считалка&quot;. Даны натуральные n,m. Предполагается, что n человек встают в круг и получают номера, считая против часовой стрелки, 1,2, ...,...

Перевести это из формы в консоль! как ?
сервер клиент нужен консольный помогите пожалуйста!! клиент опрашивает сервер по протоколу Time ... как их сделать ? сервер: unit...

Вывести измененные данные с формы в консоль
Здраствуйте! у меня есть вот такая форма: &lt;form action=&quot;&quot; id=&quot;contacs&quot;&gt; &lt;fieldset&gt; &lt;legend&gt;...

Нужно переписать код из формы в консоль
Здравствуйте, сделал код в формах но не могу перевести его в консоль Условие Для книг, хранящихся в библиотеке, задаются:...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Новые блоги и статьи
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки на предмет заполнения реквизитов реализован с целью установки значения по умолчанию,. . .
Команды "Заполнить" и "Очистить" на форме документа
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .
Кому нужен AOT?
DevAlt 26.03.2026
Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .
модель ЗдравоСохранения 5. Меньше увольнений- больше дохода!
anaschu 24.03.2026
Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .
Midnight Chicago Blues
kumehtar 24.03.2026
Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++
8Observer8 24.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
Жизнь в неопределённости
kumehtar 23.03.2026
Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru