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;