Код на java переделать на delphi

[ilshat09]

Нужна помощь надо переписать вот этот код

<div id="info" style="width:800p;height:20px;border:#060 1px solid;margin-bottom:10px;padding-left:3px;"></div>
<div style="width:800p;height:600px;border:#060 1px solid;">
<div style="margin-top:580px;">
<div id="yadro" style="width:20px;height:20px;background:#060;position:absolute;border-radius:9000em;-webkit-border-radius:9000em;-moz-border-radius: 9000em;"></div>
</div>
</div>
<br>
Скорость: <input type="text" value="50" id="v_"/>&nbsp;&nbsp;&nbsp;Угол: <input type="text" value="45" id="a_"/>&nbsp;&nbsp;&nbsp;<input type="button" value="Пуск" onclick="v=document.getElementById('v_').value;a=0.0175*document.getElementById('a_').value;get_pos(0,0,v,a)"/>
<script>
function move(x,y){
	document.getElementById('yadro').style.margin=y+'px 0 0px '+x+'px';
}

function get_pos(x,y,v,a){
	if(y>=0){
		x+=(v/20);
		y=x*Math.tan(a)-5*Math.pow(x,2)/Math.pow(v*Math.cos(a),2);
		document.getElementById("info").innerHTML=x+" "+y;
		move(x,-y);
		setTimeout(function(){get_pos(x,y,v,a)},10);
	} else {
		y=0;
		document.getElementById("info").innerHTML=x+" "+y;
		move(x,y);
	}
}
</script>

на delphi
пробывал через встроеные функции не получилась переписать .

[RUSt88]

а зачем ты вместе с тегами выложил???
отдели сначала код от мусора

[CepbIu]

вот всё что там есть от математики и что можно переписать на паскаль

v=скорость
a=0.0175*угол
get_pos
х=скорость\20
у=х*тангенс от а - 5*(х^2)/((скорость*косинус а)^2)

остальное задаёт стиль

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

[ilshat09]

Вот код без мусора!

<script>
function move(x,y){
document.getElementById('yadro').st yle.margin=y+'px 0 0px '+x+'px';
}

function get_pos(x,y,v,a){
if(y>=0){
x+=(v/20);
y=x*Math.tan(a)-5*Math.pow(x,2)/Math.pow(v*Math.cos(a),2);
document.getElementById("info").inn erHTML=x+" "+y;
move(x,-y);
setTimeout(function(){get_pos(x,y,v ,a)},10);
} else {
y=0;
document.getElementById("info").inn erHTML=x+" "+y;
move(x,y);
}
}
</script>

[CepbIu]

Сообщение от ilshat09

Вот код без мусора!

<script>
function move(x,y){
document.getElementById('yadro').st yle.margin=y+'px 0 0px '+x+'px';
}

function get_pos(x,y,v,a){
if(y>=0){
x+=(v/20);
y=x*Math.tan(a)-5*Math.pow(x,2)/Math.pow(v*Math.cos(a),2);
document.getElementById("info").inn erHTML=x+" "+y;
move(x,-y);
setTimeout(function(){get_pos(x,y,v ,a)},10);
} else {
y=0;
document.getElementById("info").inn erHTML=x+" "+y;
move(x,y);
}
}
</script>

мне вот интересно, а куда писать то??? и где стиль css менять?

мне особо понравилось что зелёным выделил... в функцию передаётся 0, 0... ,

[ilshat09]

Вот здесь находится симулятор ядра http://pokermira.com/uploads/mira/yadro.html

[CepbIu]

Сообщение от ilshat09

Вот здесь находится симулятор ядра http://pokermira.com/uploads/mira/yadro.html

ещё раз задам вопрос, что именно не получается сделать?

[ilshat09]

там в коде есть формула
y=x*Math.tan(a)-5*Math.pow(x,2)/Math.pow(v*Math.cos(a),2);
это полет ядра при указание скорости и угла она должна взлететь и обратно упасть
у меня она взлетает но не падает.

[CepbIu]

Сообщение от CepbIu

v=скорость
a=0.0175*угол
get_pos
х=скорость\20
у=х*тангенс от а - 5*(х^2)/((скорость*косинус а)^2)

вот же написал
показывай код

[ilshat09]

Вот код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Math,Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Shape1: TShape;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var
v,a:real;

procedure TForm1.Button1Click(Sender: TObject);
begin
 timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
x,y:real;
begin
v:=strtoint(edit1.text);
a:=0.0175*strtoint(edit2.Text);
 x:=v/20;
 y:=x*tan(a)-5*sqr(x)/sqr(v*cos(a));
 shape1.Top:= shape1.Top-round(y);
 shape1.Left:=shape1.Left+round(y);
end;

end.