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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Использование this. http://www.cyberforum.ru/cpp-beginners/thread55448.html
Вот такое: class Test : public QObject { Q_OBJECT; public: Test(); ~Test(); void clear(); int t; void shuffle(int k = this->t);
C++ Инкремент(Декремент) Есть ли разница,какую употреблять форму:префиксную или постфиксную? Если на экран выводится одно и то же число в префиксной и постфиксной форме,то какой смысл? В зависимости от чего употреблять надо... http://www.cyberforum.ru/cpp-beginners/thread55431.html
C++ std::sort()
Доброго времени суток! Есть некая структура: struct member { int latency; std::vector<int>child; };
C++ Поиск максимального значения функции на заданном промежутке
Дана функция y=2x3+1. Написать программу для поиска максимального значения у в промежутке х принадлежит с шагом 0,2
C++ Конструкторы http://www.cyberforum.ru/cpp-beginners/thread55419.html
Спроектируйте класс – “калькулятор”, предназначенный для выполнения арифметических операций с двумя операндами и добавьте в разработанный вами класс-калькулятор конструктор, инициализирующий объект....
C++ присвоение значения элементу векторного класса Написал я класс для массива (значений функции на отрезке): class DoubleArray { public: .... double operator (int index); DoubleArray operator= (const DoubleArray &rhs); DoubleArray... подробнее

Показать сообщение отдельно
Angel341
0 / 0 / 0
Регистрация: 09.10.2009
Сообщений: 71

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

09.10.2009, 22:26. Просмотров 461. Ответов 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru