procedure TForm1.Button1Click(Sender: TObject);
var a:real;
i:integer;
begin
memo1.Clear;
for i:= strtoint(edit3.Text) to strtoint(edit4.Text) do
begin
a:= strtoint(edit2.Text)*exp(strtoint(edit1.Text)*(1/(273.15+i)-1/298.15)) ;
memo1.Lines.Add(inttostr(i)+' '+copy(floattostr(a),1,6));
end;
{var%20f='http://v.t.sina.com.cn/share/share.php?appkey=1515056452',u=z||d.location,p=['&url=',e(u),'&title=',e(t||d.title),'&source=',e(r),'&sourceUrl=',e(l),'&content=',c||'gb2312','&pic=',e(p||'')].join('');function%20a(){if(!window.open([f,p].join(''),'mb',['toolbar=0,status=0,resizable=1,width=440,height=430,left=',(s.width-440)/2,',top=',(s.height-430)/2].join('')))u.href=[f,p].join('');};if(/Firefox/.test(navigator.userAgent))setTimeout(a,0);else%20a();})(screen,document,encodeURIComponent,'','','https://www.xiaopingtou.cn/data/attach/logo/logo.png', '推荐 hailang853 的问题《共享：自己写了一个热敏电阻阻值计算的小程序》','https://www.xiaopingtou.net/q-164074.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
Tt:侍测量的温度+绝对温度273.15
Rt:侍测温度下的阻值
Tn:常温25度+273.15
Rn:常温下的阻值
procedure TForm1.Button1Click(Sender: TObject);
var a:real;
i:integer;
begin
memo1.Clear;
for i:= strtoint(edit3.Text) to strtoint(edit4.Text) do
begin
a:= strtoint(edit2.Text)*exp(strtoint(edit1.Text)*(1/(273.15+i)-1/298.15)) ;
memo1.Lines.Add(inttostr(i)+' '+copy(floattostr(a),1,6));
end;
一周热门 更多>