Prosty i krótki program z Delphi do C++ Builder

0

Dzień dobry,
jestem w sytuacji podbramkowej i potrzebuję zamienić ten kod z Delphi na C++ Builder. Byłabym bardzo wdzięczna!

 G = 9.81;
  int Vo,h,z,czas;
  double alfa;
 
  Vo= StrToInt(Edit1.Text); //predkosc poczatkowa
  alfa= StrToFloat(Edit2.Text); //kat nachylenia
  Alfa= alfa*PI/180;
 
 
  Z:= Trunc((2*sqr(Vo)*sin(alfa)*cos(alfa))/G); //Zasięg rzutu
  Label8.Caption := 'Zasięg rzutu:'+ IntToStr(Z)+'m';
  H:=Trunc((sqr(Vo)*sqr(sin(alfa)))/G);  ///Max osiagnieta wysokosc
  Label9.Caption := 'Maxymalna wysokość:'+ IntToStr(H)+'m';
 
  procedure TForm1.Rzut;
  var x,y: integer;
  begin
x:=0;licznik:=0; y:=0;
Repeat
Wykres.Canvas.MoveTo(Round(x),Wykres.Height-1+Round(y));
licznik:=licznik+1;
x:= (licznik/Skala);
y:=((licznik*tg(alfa)+(masa/(2*sqr(Vo)*sqr(Cos(alfa))))*sqr(licznik))/Skala);
  Repeat
   Wykres.Canvas.MoveTo(x,Wykres.Height-1+y);
   x:=x+1; // x stale hmm...
   y:=Round(x*tg(alfa)+(G/(2*sqr(Vo)*sqr(Cos(alfa))))*sqr(x)); //polozenie Y
   Sleep(25);
   Application.ProcessMessages;
   Wykres.Canvas.LineTo(x,Wykres.Height+y);
  Until (y>0)or (x >= wykres.width)or Stop = True;
  end;
0

A ile oferujesz w zamian? Za "dziękuję" możesz nikogo nie znaleźć.

0

A z którą linijką masz problem? ja mogę dać małe demo od którego możesz zacząć:

  Label9.Caption := 'Maxymalna wysokość:'+ IntToStr(H)+'m';
  Label9->Caption = "Maxymalna wysokość:"+ IntToStr(H)+"m";
0

Wyrwałeś kawałek kodu z większej całości i spodziewasz się, że jego działanie to tylko problem języka.
Najpierw usuń błędy (Repeat bez Until). Masz odwołania do obiektów i zmiennych, które nie są zdefiniowane.
BCB ma wbudowany kompilator Pascala - zapomniałeś?

1 użytkowników online, w tym zalogowanych: 0, gości: 1