Форум программистов, компьютерный форум CyberForum.ru

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

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

из делфи в С++ - C++

09.10.2009, 22:26. Просмотров 453. Ответов 0
Метки нет (Все метки)

есть программа на делфи ее надо перевести в с++
вот не задача не могу разобраться с массивами и перебором помогитеплиз!


Delphi
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
procedure TForm1.Button3Click(Sender: TObject);
const
   a1=0.0000188;       
   LAM1=0.0244;  {vozdyx}  
   DELTAU=0.01;            
   LX=0.1;  dX=0.01;       
   LY=0.1;  dY=0.01;         
   LZ=0.1;  dZ=0.01;   
var
  T:array[1..11,1..11,1..11]of real;
  dT:array[1..11,1..11,1..11]of real;
   X,Y,Z:integer;                   
   time:real;
   tt: longint;  {время воздействия}
   u: longint;  {входное воздействие в виде заданной температуры}
   tau: longint;  {число шагов по времени}
   PX,PY,PZ:REAL;
   F34,dF34,PF,alyfa,dR4,dRl:REAL;
 begin
   {считывание данных}
{   time:=strtoint(Edit2.Text);    }   
   u:=strtoint(Edit1.Text);         
 {  tau:=trunc (time/deltau);    }    
   PX:=dX*dX;    
   PY:=dY*dY;     
   PZ:=dZ*dZ;      
   {обнуление графика и окон}      
   Chart1.SeriesList[0].Clear;                        
   Memo1.Lines.Clear;                                    
   Edit3.Text:='';                                        
   ProgressBar1.Max:=70000;                                 
   ProgressBar1.Position:=0;                                
 {обнуление массивов}
  FOR X:=1 TO 11 DO
   FOR Y:=1 TO 11 DO
    FOR Z:=1 TO 11 DO
    BEGIN
    T[X,Y,Z]:=0;
    dT[X,Y,Z]:=0;
    END;
   {вычисление значений массива по формуле теплопроводности}
 {  FOR tt:=1 TO tau DO}
  FOR tt:=1 TO 70000 DO
    BEGIN
     FOR X:=2 TO 10 DO
      FOR Y:=2 TO 10 DO
       FOR Z:=2 TO 10 DO
       BEGIN
       dT[X,Y,Z]:=(T[X-1,Y,Z]-2*T[X,Y,Z]+T[X+1,Y,Z])/PX;
       dT[X,Y,Z]:=dT[X,Y,Z]+(T[X,Y-1,Z]-2*T[X,Y,Z]+T[X,Y+1,Z])/PY;
       dT[X,Y,Z]:=dT[X,Y,Z]+(T[X,Y,Z-1]-2*T[X,Y,Z]+T[X,Y,Z+1])/PZ;
       dT[X,Y,Z]:=a1*DELTAU*dT[X,Y,Z];
       END;
     FOR Y:=2 TO 10 DO
      FOR Z:=2 TO 10 DO
      BEGIN
       T[1,Y,Z]:=T[2,Y,Z];
      END;
      FOR Y:=2 TO 10 DO
       FOR Z:=2 TO 10 DO
      BEGIN
       T[11,Y,Z]:=T[10,Y,Z];
      END;
    FOR X:=2 TO 10 DO
     FOR Y:=2 TO 10 DO
      BEGIN
       T[X,Y,1]:=T[X,Y,2];
      END;
     FOR X:=2 TO 10 DO
      FOR Y:=2 TO 10 DO
      BEGIN
       T[X,Y,11]:=T[X,Y,10];
      END;
     FOR X:=1 TO 11 DO
      FOR Z:=1 TO 11 DO
      BEGIN
      T[X,1,Z]:=0;
      END;
    FOR X:=1 TO 11 DO
      FOR Z:=1 TO 11 DO
      BEGIN
       T[X,1,Z]:=10;
      END;
      BEGIN
        T[6,5,5]:=u;
      END;
     FOR X:=2 TO 10 DO
      FOR Y:=2 TO 10 DO
       FOR Z:=2 TO 10 DO
       BEGIN
       T[X,Y,Z]:=T[X,Y,Z]+dT[X,Y,Z];
       END;
 
 {вывод значений температуры в заданном датчике в виде графика}
      time:=tt*deltau;
      Chart1.SeriesList[0].AddXY(time,T[StrtoInt(ComboBox1.Text),StrtoInt(ComboBox2.Text),StrtoInt(ComboBox3.Text)]);
 
 {вывод значений температуры в заданном датчике в виде столбца}
      Memo1.Lines.Add(FloattoStr (T[StrtoInt(ComboBox1.Text),StrtoInt(ComboBox2.Text),StrtoInt(ComboBox3.Text)]));
       ProgressBar1.StepBy(1);
    end;
  {вывод температуры заданного датчика}
  Edit3.Text:=FloattoStr(T[StrtoInt(ComboBox1.Text),StrtoInt(ComboBox2.Text),StrtoInt(ComboBox3.Text)]);
end;
procedure TForm1.Memo1Change(Sender: TObject);
begin
 
end;
 
{ end;}
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.10.2009, 22:26     из делфи в С++
Посмотрите здесь:

С делфи на С++ - C++
Кто-нибудь может перевести программу с делфи на С++? Или написать аналог по заданию: "Последовательность 011212201220200112… строится...

Из Делфи в С++ - C++
Может ли кто то помочь перевести программу?Буду очень благодарна любой помощи) unit Unit1; interface uses Windows,...

Перевод из делфи в с - C++
В заданной строке удалить символ двоеточие (:) и подсчитать количество удаленных символов uses crt; var a:string; kol:integer;...

Переход с делфи - C++
:) Здравствуйте! решил освоить С++ перехожу на него с Делфи. вопрос такой-как записать в С++ значение из TextBox в какую-либо...

Перевести из делфи в с++ - C++
В числовой последовательности ищется максимальный элемент и выводится его номер var s,max:real; i,k,n:integer; c:extended;...

Перевести с Делфи в С++ - C++
есть код на делфи, помогите перевести на с++ program Project2; {$APPTYPE CONSOLE} uses SysUtils; const n=10;

Перевод кода Делфи - C++
Всем привет!Нужна ваша помощь.Надо перевести этот код с делфи на с++ Само задание "Напишите программу «Угадайка». Компьютер случайным...

Аналог модуля Делфи в С++ - C++
Соббсно, в теме и есть вопрос. Есть модуль в делфях, а что есть аналогичное в С++??? . У нас преподают паскаль и тут задача поступила...

переход с делфи на цпп - C++
здравствуйте ув. товарищи хотелось что бы вы подсказали какие нибудь ссылки с базовыми примерами для цпп т.к. я даже не знаю как...

stringgrid. аналог делфи. - C++
помогите, пожалуйста, мне вот это написать на с++: procedure TForm2.sgSelectCell(Sender: TObject; ACol, ARow: Integer; var...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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