Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > C++ Builder
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.12.2010, 21:28   #1
Dycek
 
Регистрация: 19.12.2010
Сообщений: 6
По умолчанию из delphi в с++

Доброго времени суток.
нужно быстро переделать прожку из делфи в с++, сама его не знаю, но вот случилось так, что нада освоить... и побыстрее. вроде со всем справилась, вот ток проблема с парой строк. помогите, пожалуйста, кто может. вот сама прожка на delphi:

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
 t, ln, lk, n, l1, l2, iz_t_l1, iz_t_l2, iz_t: real;
 st: string; // -> в с++ есть тип string? если нет, то какой аналог?
 const
 konst1=1.191;
 konst2=1.439;
begin
t := StrToFloat(Edit2.Text);
ln := StrToFloat(Edit3.Text);
lk := StrToFloat(Edit4.Text);
n := StrToFloat(Edit5.Text);
   iz_t:=0;
   iz_t_l1:=0;
   l1:=ln;
   l2:=ln;
   n:=(lk-ln)/n;
while ((l2-lk)*(l1-lk)>=0) and (l1<lk) do begin
  iz_t_l2:=konst1/(Power(l2,5))/(exp(konst2/l2/t)-1);
  iz_t:=iz_t+(iz_t_l2+iz_t_l1)/2*(l2-l1);
  iz_t_l1:=iz_t_l2;
st := st+ FloatToStr(iz_t)+' '+chr(13);//собственно вот эта строчка, которая выдает таблицу приращений. Как мона ее же записать на с++?
   l1:=l2;
   l2:=l2+n;
  end;
Form1.Memo1.Lines.Add('Излучение t= '+Floattostr(iz_t));
Label6.Caption := st;
 end;
end.
и вот то, что я нацарапала на с++. если не сложно, то проверьте правильность написания:
Код:
t = Edit1->Text.ToDouble();
ln = Edit2->Text.ToDouble();
lk = Edit3->Text.ToDouble();
n = Edit4->Text.ToDouble();
   iz_t=0;
   iz_t_l1=0;
   l1=ln;
   l2=ln;
   n=(lk-ln)/n;
   const
   double konst1 = 1.191e4;
   double konst2 = 1.439e4;
while (((l2-lk)*(l1-lk)>=0) & (l1<lk)) //do
{
  iz_t_l2=konst1/(pow(l2,5))/(exp(konst2/l2/t)-1);
  iz_t=iz_t+(iz_t_l2+iz_t_l1)/2*(l2-l1);
  iz_t_l1=iz_t_l2;
//static st = st+FloatToStr(iz_t)+" "+chr(13);-написала static, но не знаю, правильно ли? и как заменить chr(13)?
   l1=l2;
   l2=l2+n;
}
Memo1->Lines->Add("Излучение t=" +FloatToStr(iz_t));
//Label6->Caption = "Приращения: " st;
Либо же просто подскажите:
есть ли аналог типа string в делфи на с++
и как мона заменить строку из делфи на с++:
st := st+ FloatToStr(iz_t)+' '+chr(13);

Последний раз редактировалось ACE Valery; 19.12.2010 в 23:24.
Dycek вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
На Delphi 7 сделать игру кто хочет стать миллионером в delphi 7 666dart666 Помощь студентам 11 04.11.2010 17:57
Rad Studio 2011 XE: новое в Delphi, C++ Builder, RadPHP и Delphi Prism savva-paladin Софт 18 02.10.2010 20:24
Delphi. Как нарисовать в Delphi два движущиеся шара с определенной скоростью? redred Общие вопросы Delphi 10 11.12.2007 10:43
Как открыть БД, написанную в Delphi если нf другой машине Delphi нет? dagarik БД в Delphi 7 22.10.2007 17:54
не StringGrid1.Cells[1,1]:='Delphi'; а вот так SG1.C[1,1]:='Delphi' Nemesisking Компоненты Delphi 7 08.09.2007 03:27