مشكل اين برنامه را كي مي تونه حل كنه

[aluminum]

اين برنامه براي زبان پاسكاله پيغامش اينه
error 205 : floating point overflow]
[var
ttt,x,tt,r,g,y,h1,h2,p1,p2,ro1,ro2,t1,t2,a:real;
i:integer;
begin
t1:=288.16;p1:=101325;ro1:=1.225;h1:=0;g:=9.81;r:= 278.26;
for i:=1 to 10 do
begin
a:=-0.0065;
h2:=i*100;
t2:=t1+(a*(h2-h1));
y:=-g/(a*r);
tt:=t2/t1;
p2:=p1*(exp(y*ln(tt)));
x:=((-g/a*r)+1);
ro2:=(ro1*abs((exp(x*ln(tt)))));
writeln(t22,' ',p22,' ',ro22,' ');
end
end.][/CODE]

[aluminum]

هيچكي بلد نيست؟

[aseman_ssm]

من بلدم

[eng.mehrdad]

سر ریزی میده ، شما هربار تقسیم 4 رقم نگه دار از اعشار ها ببین درست میشه یا نه

[K A R I M I]

هيچكي بلد نيست؟

میشه که این کدها رو داخل تگ [CODE] و [LEFT] قرار بدی ؟؟
اون موقع میشه یه کاری کرد !!

[aluminum]

من بلدم

با ویژوال بیسیک نوشتم مشکلم حل شد