dim as Double t,e,st,l,e2,e1 ,r,kpd
dim as integer kx,ky
SCREEN 18, ,2
rem COLOR 2, 15
kx=0
ky=100
for t=800 to 1200 step 100
locate ky,kx
ky=ky+5
e1=0
e2=0
st=5e-10
locate ky,10:Color 14,0:print using "Temp ##### "; t
'общая энергия по формуле контроль
locate ky,10:Color 12,0:print using "Pi #######.##### "; 5.6704e-8*(t*t*t*t)
for l
(
Read more... )