Форум программистов, компьютерный форум, киберфорум
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
iopkl
0 / 0 / 0
Регистрация: 28.04.2013
Сообщений: 6
#1

перевод на С - C++

28.04.2013, 21:27. Просмотров 253. Ответов 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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int timer, timer_1, r, fi, x;
double T[9][359][1200];
double dT[9][359][1200];
double a, lam1=0.00038, lam2=0.00003026, N;
//---------------------------------------------------------------------------
 
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, System::WideChar &Key)
{
if (Key>='0' && Key<='9' || Key=='\b')
  {
  if (Edit1->Text=="")
    {
    if (Key=='0') {Key=0;}
    timer=0;
    }
  else timer=StrToInt(Edit1->Text);
  }
else Key=0;
}
//---------------------------------------------------------------------------
 
   void __fastcall TForm1::Button1Click(TObject *Sender)
{
for (r=1; r<=8; r++)
 for (fi=1; fi<=358; fi++)
  for (x=1; x<=1199; x++)
     {
      T[r][fi][x]=30;
      dT[r][fi][x]=30;
     }
 
for (timer_1=1; timer_1<=timer; timer_1++)
   {
   for (r=1; r<=8; r++)
    for (fi=1; fi<=358; fi++)
     for (x=1; x<=1199; x++)
        {
        if ((r<5)||(r>8)) {a=22.16;}
        else a=0.3769;
        dT[r][fi][x]=(T[r-1][fi][x]-2*T[r][fi][x]+T[r+1][fi][x])/1;
        dT[r][fi][x]=dT[r][fi][x]+(1/4.5*((T[r][fi][x]-T[r-1][fi][x])/1));
        dT[r][fi][x]=dT[r][fi][x]+(1/20.25*((T[r][fi-1][x]-2*T[r][fi][x]+T[r][fi+1][x])/1));
        dT[r][fi][x]=dT[r][fi][x]+((T[r][fi][x-1]-2*T[r][fi][x]+T[r][fi][x+1])/1);
        dT[r][fi][x]=a*0.01*dT[r][fi][x];
        }
 
   for (r=0; r<=9; r++)
    for (fi=0; fi<=359; fi++)
        {
        T[r][fi][0]=1400;
        T[r][fi][1200]= T[r][fi][1199];
        }
 
   for (fi=0; fi<=359; fi++)
    for (x=1; x<=1199; x++)
       {
       T[0][fi][x]=T[1][fi][x];
       T[5][fi][x]=(lam1*T[6][fi][x]-lam2*T[4][fi][x])/(lam1+lam2);
       T[9][fi][x]=T[4][fi][x];
       T[8][fi][x]=(lam1*T[7][fi][x]-lam2*T[9][fi][x])/(lam1+lam2);
       }
 
   for (r=1; r<=8; r++)
    for (fi=1; fi<=358; fi++)
     for (x=1; x<=1199; x++)
        {
        T[r][fi][x]=T[r][fi][x]+dT[r][fi][x];
        }
 
   N=T[6][357][1198];
   Series1->AddXY(timer_1*0.01, N);
   ProgressBar1->Position=100*timer_1/timer;
   }
Label11->Caption= "T[7][357][1198] = " + FloatToStr(N);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
timer=StrToInt(Edit1->Text)/0.01;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormShow(TObject *Sender)
{
timer=StrToInt(Edit1->Text)/0.01;
}
//---------------------------------------------------------------------------
помогите пожалуйста

Добавлено через 47 минут
Надо сделать чтоб расчет выводился не в форме,а в консоли
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.04.2013, 21:27
Здравствуйте! Я подобрал для вас темы с ответами на вопрос перевод на С (C++):

Заменить в строке все пробелы на перевод строки, а перевод строки изменить на два перевода - C#
Меня интересует следующий вопрос: как заменить в моем стринге все пробелы на переходы на новую строку, а переходы на новую строку изменить...

Разбиение строки на части, перевод строки в число и перевод числа - Java SE
Есть задание: 1. Необходимо реализовать консольное приложение, позволяющее манипулировать строкой, разбив ее на элементы путем...

Перевод - Алгоритмы
Добрый день,подскажите пожалуйста. Нужно число -75 перевести в двоичную,на запись выделяется 8 розрядов из них 7 значимых. Когда я...

Перевод с С++ в С# - C#
Ребят помогите пожалуйста, есть код на ++, но мне он нужен на шарпе. Знаю что тема глупая, но очень нужно class Camera { public: ...

Перевод из CC 10 в 2 - Pascal
Человечки!!! пожалуйста помогите решить задачку!!! Пользователь Задает число в 10 системе счисления. Компьютер переводит в двоичную...

Перевод if(n*n+m*m=i) then if(i<>a[c-1]) на с++ - C++
if(n*n+m*m=i) then if(i&lt;&gt;a)

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.04.2013, 21:27
Привет! Вот еще темы с ответами:

Перевод 2 СС в 8 10 16 СС - C#
Дброе время суток Как сделать перевод с 2 СС в 8 10 и16 СС

Перевод из 16 в 2 - C++
char* DecToBin(int x, char* str) { int i; for (i = sizeof(x)*8-1; i&gt;=0; i--) { str = (x&amp;1 == 1) ? '1' : '0'; x = x &gt;&gt; 1;...

Перевод из C# в C++ - C#
Здраствуйте, нашёл и переделал для себя код нужный только он на C#, пробовал переводить на C+, получилось только отчасти. Кто знающий и...

Перевод - C++
program NoName; var x1, y1, x2, y2, x3, y3, x4, y4: integer; begin readln(x1, y1); readln(x2, y2); readln(x3, y3);...


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

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru