مشاهده نسخه کامل
: aluminum
28-10-2007, 21:00
اين برنامه براي زبان پاسكاله پيغامش اينه
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(t2:2:2,' ',p2:2:2,' ',ro2:2:2,' ');
end
end.][/CODE]
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(t2:2:2,' ',p2:2:2,' ',ro2:2:2,' ');
end
end.][/CODE]