Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > C++ Builder > переписать из Delphi на Builder C++


Автор: trinitr0 23.9.2014, 09:17
Помогите пожалуйста переписать из Delphi в Builder C++

Код Delphi:
Код

procedure TForm1.Button1Click(Sender: TObject);
var
dT, T: array [1..8] of real;
i,m: integer;
dx, tau, dtau, lx, a :real;
tt, tau1:longint;
begin
    dtau:=0.1;
    m:=8;
    lx:=0.14;
    a:=0.0001;
    dx:=0.02;
for i := 1 to  m do
    begin
    t[i]:=0;
    dt[i]:=0;
    end;
for tt := 1 to  500 do
    begin
    t[1]:=100;
        for i := 1 to m do
            t[8]:=0;
                for i := 2 to m - 1 do
                begin
                dt[i]:=a*dtau*((t[i-1]-2*t[i]+t[i+1])/(dx*dx))+t[i];
                t[i]:=t[i]+dt[i];
                end;
            if tt mod 100=0 then
            begin
            Series1.AddXY(tt*dtau,t[2]);
            end;
        end;
    end;
end.


Мои попытки:

Код

procedure TForm1.Button1Click(Sender: TObject);
var
dT, T: array [1..8] of real;
i,m: integer;
dx, tau, dtau, lx, a :real;
tt, tau1:longint;
begin
    dtau:=0.1;
    m:=8;
    lx:=0.14;
    a:=0.0001;
    dx:=0.02;
for i := 1 to  m do
    begin
    t[i]:=0;
    dt[i]:=0;
    end;
for tt := 1 to  500 do
    begin
    t[1]:=100;
        for i := 1 to m do
            t[8]:=0;
                for i := 2 to m - 1 do
                begin
                dt[i]:=a*dtau*((t[i-1]-2*t[i]+t[i+1])/(dx*dx))+t[i];
                t[i]:=t[i]+dt[i];
                end;
            if tt mod 100=0 then
            begin
            Series1.AddXY(tt*dtau,t[2]);
            end;
        end;
    end;
end.

Автор: math64 23.9.2014, 10:16
Ты же ничего не сделал.
begin заменяется на {
end заменяется на }
= заменяется на ==
:= заменяется на =
Всё остальное изменяется вручную, в данном случае ничего сложного, если знаешь C++.

Добавлено через 3 минуты и 56 секунд
Ну, одна особенность: в C++ индексы массивов начинаются с 0. Так что t[i] становится t[i-1].

Добавлено через 7 минут и 36 секунд
Вторая особенность: раз в объявлении написано dT, T - дальше тоже нужно писать с заглавными буквами.
А вообще, исходник странный - похоже, с ошибками.

Автор: borisbn 23.9.2014, 11:04
Цитата(math64 @  23.9.2014,  10:16 Найти цитируемый пост)
Ты же ничего не сделал.

Как это ???
а это:
Цитата(trinitr0 @  23.9.2014,  09:17 Найти цитируемый пост)
код Pascal/Delphi

Цитата(trinitr0 @  23.9.2014,  09:17 Найти цитируемый пост)
код C++


 smile 

Автор: trinitr0 23.9.2014, 11:26
Прошу, прощения! 
В предидущем листинге не тот код С++ вставил. Вот что у меня выходит:

Код

void __fastcall TForm1::Button1Click(TObject *Sender)
{
     float dt[7];
     float T[7];

     int i;
     int m = 8;

     float dtau = 0.1;
     //float lx = 0.14;
     float a = 0.0001; //коэфициент
     float dx = 0.02;  //шаг дескритизации

     int tt, tau1;

     for (int i=1; i<m; ++i)
     {
        //обнуляем массивы
        dt[i]=0;
        T[i]=0;
     }

     for (tt =1; tt<500; tt++)
     {
                T[0] = 100;

                for (int i=1; i<m; ++i)
                {
                        T[7] = 0;

                                for (int i=2; i<m-1; ++i)
                                {
                dt[i]=a*dtau*((T[i-1]-2*T[i]+T[i+1])/(dx*dx))+T[i];
                T[i]=T[i]+dt[i];
                                }

                        if (tt%100 !=0)
                                Series1 -> AddXY(tt*dtau, T[2], clRed);
                }
            }
       }


Основная проблемы в циклах. Не получается корректно перевести в Builder C++.
После компиляции рисует прямую линию, а на координах одно и то же значние - '255'

Помогите пожалуйста подправить код так, чтобы он приводил к аналогичному результату

Автор: trinitr0 23.9.2014, 11:58
Вот что должно быть (exe'шник во вложении)

Автор: trinitr0 23.9.2014, 12:08
То что (не) получается

Автор: xvr 23.9.2014, 13:29
Цитата(trinitr0 @  23.9.2014,  11:26 Найти цитируемый пост)
Основная проблемы в циклах.

Угу, о чем math64 уже написал -
Цитата

в C++ индексы массивов начинаются с 0.
Так что поправь начальный индекс в циклах.
Кстати, у тебя и конечный индекс тоже неправильный (точнее правильный, но исключительно по ошибке  smile )

Автор: trinitr0 23.9.2014, 13:38
Так я  вроде поправил же:

Код

void __fastcall TForm1::Button1Click(TObject *Sender)
{
     float dT[7];
     float T[7];

     int i;
     int m = 8;

     float dtau = 0.1;
     //float lx = 0.14;
     float a = 0.0001;
     float dx = 0.02; 

     int tt, tau1;

     for (int i=1; i<m; i++)
     {
        dT[i]=0;
        T[i]=0;
     }

     for (tt=1; tt<500; tt++)
     {
         T[0] = 100;

                for (int i=1; i<m; i++)
                {
                      T[7] = 0;

                           for (int i=2; i<m-1; i++)
                         {
                           dT[i]=a*dtau*((T[i-1]-2*T[i]+T[i+1])/(dx*dx))+T[i];
                           T[i]=T[i]+dT[i];
                         }

                        if (tt%100 !=0)
                                Series1 -> AddXY(tt*dtau, T[2], "", clRed);

                }
            }
      }


Нажимаю Button1  и никакой график не рисуется 

Автор: xvr 23.9.2014, 13:51
Цитата(trinitr0 @  23.9.2014,  13:38 Найти цитируемый пост)
Так я  вроде поправил же:

Неа -
Код

     for (int i=1; i<m; i++)
Должно быть int i=0
То же самое в строках 26 и 30. В цикле в строке 22 неправильное условие завершения цикла
Условие в строке 36 заменено на противоположное
В строке 37 неправильный индекс у массива
Да и сами массвы должны быть по 8 элементов, а не по 7

Автор: trinitr0 23.9.2014, 14:49
Поправил:

Код

void __fastcall TForm1::Button1Click(TObject *Sender)
{
     float dT[8];
     float T[8];

     int i;
     int m = 8;

     float dtau = 0.1;
     //float lx = 0.14;
     float a = 0.0001; //êîýôèöèåíò
     float dx = 0.02;  //øàã äåñêðèòèçàöèè

     int tt, tau1;

     for (int i=0; i<m; i++)
     {
        //îáíóëÿåì ìàññèâû
        dT[i]=0;
        T[i]=0;
     }


     for (tt=0; tt<=500; tt++)
     {
         T[0] = 100;

                for (int i=0; i<m; i++)
                {
                      T[7] = 0;

                         for (int i=0; i<m-1; i++)
                         {
                           dT[i]=a*dtau*((T[i-1]-2*T[i]+T[i+1])/(dx*dx))+T[i];
                           T[i]=T[i]+dT[i];
                         }

                        if (tt%100 == 0)
                                Series1 -> AddXY(tt*dtau, T[7], "", clRed);

                }
      }
  }


Но график не рисуется... smile 

Автор: trinitr0 24.9.2014, 16:11
Кнопка не срабатывала по причине того, я что я явно не указал в 
Object Inspector событие OnClick, ограничась прототипом в Unit.h

Автор: Akira 28.9.2014, 00:34
Такой быдлокод можно конвертировать  помощью delphi2cpp, поскольку нет никаких спецефических вещей и все довольно банально, заменить begin / end на { / } итд, как написано выше.

Автор: math64 29.9.2014, 07:47
Цитата(Akira @  28.9.2014,  00:34 Найти цитируемый пост)
Такой быдлокод можно конвертировать  помощью delphi2cpp, поскольку нет никаких спецефических вещей и все довольно банально, заменить begin / end на { / } итд, как написано выше. 

Этот код вообще не надо было конвертировать, а написать всё заново. соседняя тема посвящена испрвалению ошибок в скорвертированном коде.

Автор: trinitr0 29.9.2014, 10:43
Да так и есть. Приходится переписывать заново, попутно исправляя ошибки  smile 

О существовании delphi2cpp не знал. Спасибо.

Автор: borisbn 29.9.2014, 11:05
Akira, а delphi2cpp знает о том, что индексы в pascal'е начинаются с 1, а не с нуля ?

Автор: trinitr0 29.9.2014, 13:55
Вот что выдал delphi2cpp

Исходник Delphi:
Код

implementation
  procedure TForm1.Button1Click(Sender: TObject);
var
dT, T: array [1..8] of real;
i,m: integer;
dx, tau, dtau, lx, a :real;
tt, tau1:longint;
begin
    dtau:=0.1;
    m:=8;
    lx:=0.14;
    a:=0.0001;
    dx:=0.02;
for i := 1 to  m do
    begin
    T[i]:=0;
    dT[i]:=0;
    end;
for tt := 1 to  500 do
    begin
    T[1]:=100;
        for i := 1 to m do
            T[8]:=0;
                for i := 2 to m - 1 do
                begin
                dT[i]:=a*dtau*((T[i-1]-2*T[i]+T[i+1])/(dx*dx))+T[i];
                T[i]:=T[i]+dT[i];
                end;
            if tt mod 100=0 then
            begin
            Series1.AddXY(tt*dtau,T[2]);
            end;
        end;
    end;
end.
end.


Результат после прогона через delphi2cpp:

Код

void __fastcall TForm1::Button1Click( TObject* Sender )
{
  double dT[ 8/*# range 1..8*/ ], T[ 8/*# range 1..8*/ ];
  int i = 0, m = 0;
  double dx = 0.0, tau = 0.0, dtau = 0.0, lx = 0.0, a = 0.0;
  int tt = 0, tau1 = 0;
  dtau = 0.1;
  m = 8;
  lx = 0.14;
  a = 0.0001;
  dx = 0.02;
  for ( int stop = m, i = 1; i <= stop; i++)
  {
    T[i - 1] = 0;
    dT[i - 1] = 0;
  }
  for ( int stop = 500, tt = 1; tt <= stop; tt++)
  {
    T[1 - 1] = 100;
    for ( int stop = m, i = 1; i <= stop; i++)
      T[8 - 1] = 0;
    for ( int stop = m - 1, i = 2; i <= stop; i++)
    {
      dT[i - 1] = a * dtau * ( ( T[i - 1 - 1] - 2 * T[i - 1] + T[i + 1 - 1] ) / ( dx * dx ) ) + T[i - 1];
      T[i - 1] = T[i - 1] + dT[i - 1];
    }
    if ( tt % 100 == 0 )
    {
      Series1.AddXY( tt * dtau, T[2 - 1] );
    }
  }
}


У кого какие выводы?

Автор: xvr 29.9.2014, 14:09
В исходнике в Delphi где то потеряли один begin в районе 23й строки.
Результат delphi2cpp исходнику на Delphi соотвествует (насколько можно соотвествовать исходнику с ошибками  smile  )

Автор: borisbn 29.9.2014, 14:10
А ещё у delphi2cpp форматирование лучше, чем у автора ))

Автор: trinitr0 29.9.2014, 15:43
У нас разные стили  smile 

Автор: Akira 30.9.2014, 00:13
Цитата(math64 @  29.9.2014,  07:47 Найти цитируемый пост)
Этот код вообще не надо было конвертировать, а написать всё заново. соседняя тема посвящена испрвалению ошибок в скорвертированном коде. 


Проще исправить несколько ошибок, чем вбилать несколько килло строк, такими утилитами запросто можно конвертировать какой нибудь математический компонент на очень много строк.
Проблема кроется в другом, люди переводят код из одного языка в другой без знаний языка с которого собственно конвертируют.


Цитата(borisbn @  29.9.2014,  11:05 Найти цитируемый пост)
Akira, а delphi2cpp знает о том, что индексы в pascal'е начинаются с 1, а не с нуля ? 


Раньше не знала, как сейчас я не знаю, утилита очень давно пилится и возможно уже изменилась в лучшую сторону.

Зы. Помимо этой утилиты есть еще пару конвертеров переводящих pas to cpp, кроме них есть еще pas to c# и vcl to wxWidgets.

Автор: math64 30.9.2014, 08:07
Цитата(borisbn @  29.9.2014,  11:05)
Akira, а delphi2cpp знает о том, что индексы в pascal'е начинаются с 1, а не с нуля ?

Ну, как видите, знает:

Цитата(trinitr0 @  29.9.2014,  13:55 Найти цитируемый пост)
Код

for ( int stop = m, i = 1; i <= stop; i++)
  {
    T[i - 1] = 0;
    dT[i - 1] = 0;
  }

Но, наряду с stop (значение m может измениться внутри цикла, поэтому оно копирется в stop) в цикле повторно объявляется перенная i. В исходнике на Дельфи такая переменная одна. И могут быть проблемы, если она использется после выхода из цикла.

Добавлено через 6 минут и 5 секунд
PS: кстати, что будет если в исходниках будет объявлена переменная stop?

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)