Pseudo Code:
var c,r,f,k:real;
begin
c:=StrToFloat(Edit1.Text);
r:=c/5*4;
f:=c/5*9+32;
k:=c+273;
Edit2.Text:=FloatToStr(r);
Edit3.Text:=FloatToStr(f);
Edit4.Text:=FloatToStr(k);
end;
Semoga Bermanfaat :)
Program Konversi Suhu menggunakan Delphi 7
Posted by :
Unknown
Minggu, 30 Desember 2012
Pseudo Code:
var c,r,f,k:real;
begin
c:=StrToFloat(Edit1.Text);
r:=c/5*4;
f:=c/5*9+32;
k:=c+273;
Edit2.Text:=FloatToStr(r);
Edit3.Text:=FloatToStr(f);
Edit4.Text:=FloatToStr(k);
end;
Semoga Bermanfaat :)
Langganan:
Posting Komentar (Atom)
5 comments:
Thnx gan sangat membantu buat tugas ane hehe (y)
yaaa,, sama-samaaa :D
gan cara sesuain ukurannya gimana ?
ukuran gimana maksudnya gan?
Makasih gan, sangat membantu...