Поиск:

Ответ в темуСоздание новой темы Создание опроса
> переписать из Delphi на Builder C++, метод решёток на Builder C++ 
V
    Опции темы
trinitr0
Дата 23.9.2014, 09:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 102
Регистрация: 25.6.2013

Репутация: нет
Всего: нет
Помогите пожалуйста переписать из 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.
PM MAIL Jabber   Вверх
math64
Дата 23.9.2014, 10:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2505
Регистрация: 12.4.2007

Репутация: 4
Всего: 72
Ты же ничего не сделал.
begin заменяется на {
end заменяется на }
= заменяется на ==
:= заменяется на =
Всё остальное изменяется вручную, в данном случае ничего сложного, если знаешь C++.

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

Добавлено через 7 минут и 36 секунд
Вторая особенность: раз в объявлении написано dT, T - дальше тоже нужно писать с заглавными буквами.
А вообще, исходник странный - похоже, с ошибками.
PM   Вверх
borisbn
Дата 23.9.2014, 11:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 4875
Регистрация: 6.2.2010
Где: Ростов-на-Дону

Репутация: 18
Всего: 135
Цитата(math64 @  23.9.2014,  10:16 Найти цитируемый пост)
Ты же ничего не сделал.

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

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


 smile 


--------------------
Женщины отличаются от программистов тем, что у них чары состоят из стрингов
PM MAIL Jabber   Вверх
trinitr0
Дата 23.9.2014, 11:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 102
Регистрация: 25.6.2013

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

Код

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:33
PM MAIL Jabber   Вверх
trinitr0
Дата 23.9.2014, 11:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 102
Регистрация: 25.6.2013

Репутация: нет
Всего: нет
Вот что должно быть (exe'шник во вложении)



Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  Project1.zip 559,17 Kb
PM MAIL Jabber   Вверх
trinitr0
Дата 23.9.2014, 12:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 102
Регистрация: 25.6.2013

Репутация: нет
Всего: нет
То что (не) получается

Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  Project1.zip 9,51 Kb
PM MAIL Jabber   Вверх
xvr
Дата 23.9.2014, 13:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 48
Всего: 223
Цитата(trinitr0 @  23.9.2014,  11:26 Найти цитируемый пост)
Основная проблемы в циклах.

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

в C++ индексы массивов начинаются с 0.
Так что поправь начальный индекс в циклах.
Кстати, у тебя и конечный индекс тоже неправильный (точнее правильный, но исключительно по ошибке  smile )
PM MAIL   Вверх
trinitr0
Дата 23.9.2014, 13:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 102
Регистрация: 25.6.2013

Репутация: нет
Всего: нет
Так я  вроде поправил же:

Код

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  и никакой график не рисуется 

Это сообщение отредактировал(а) trinitr0 - 23.9.2014, 13:41
PM MAIL Jabber   Вверх
xvr
Дата 23.9.2014, 13:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 48
Всего: 223
Цитата(trinitr0 @  23.9.2014,  13:38 Найти цитируемый пост)
Так я  вроде поправил же:

Неа -
Код

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


Шустрый
*


Профиль
Группа: Участник
Сообщений: 102
Регистрация: 25.6.2013

Репутация: нет
Всего: нет
Поправил:

Код

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 
PM MAIL Jabber   Вверх
trinitr0
Дата 24.9.2014, 16:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 102
Регистрация: 25.6.2013

Репутация: нет
Всего: нет
Кнопка не срабатывала по причине того, я что я явно не указал в 
Object Inspector событие OnClick, ограничась прототипом в Unit.h
PM MAIL Jabber   Вверх
Akira
Дата 28.9.2014, 00:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 45
Регистрация: 26.3.2012

Репутация: нет
Всего: нет
Такой быдлокод можно конвертировать  помощью delphi2cpp, поскольку нет никаких спецефических вещей и все довольно банально, заменить begin / end на { / } итд, как написано выше.
PM MAIL   Вверх
math64
Дата 29.9.2014, 07:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2505
Регистрация: 12.4.2007

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

Этот код вообще не надо было конвертировать, а написать всё заново. соседняя тема посвящена испрвалению ошибок в скорвертированном коде.
PM   Вверх
trinitr0
Дата 29.9.2014, 10:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 102
Регистрация: 25.6.2013

Репутация: нет
Всего: нет
Да так и есть. Приходится переписывать заново, попутно исправляя ошибки  smile 

О существовании delphi2cpp не знал. Спасибо.
PM MAIL Jabber   Вверх
borisbn
Дата 29.9.2014, 11:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 4875
Регистрация: 6.2.2010
Где: Ростов-на-Дону

Репутация: 18
Всего: 135
Akira, а delphi2cpp знает о том, что индексы в pascal'е начинаются с 1, а не с нуля ?


--------------------
Женщины отличаются от программистов тем, что у них чары состоят из стрингов
PM MAIL Jabber   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0552 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.