Pada artikel ini saya akan membahas tentang program untuk menghitung atau mengkonversikan satuan suhu celcius ke satuan lainnya,,
Pada program ini anda dapat memilih 3 pilihan yaitu konversi dari celsius ke kelvin, celsius ke fahrenheit, atau dari celcius ke reamur..
Listing programnya sebagai berikut :
uses crt;
var
cel, pil:integer;
hasil : real;
param: string;
begin
clrscr;
writeln(����������);
writeln(�KONVERSI SUHU�);
writeln(����������);
writeln(�1. celcius->kelvin�);
writeln(�2. celcius->fahrenheit�);
writeln(�3. celcius->reamur�);
writeln(����������);
write(�masukan pilihan: �);
readln(pil);
write(�masukan besar suhu dalam celcius: �) ;
readln(cel);
case pil of
1:
begin
hasil:= cel+273;
param:=�kelvin�;
end;
2:
begin
hasil:= cel*1.8+32;
param:=�fakrenheit�;
end;
3:
begin
hasil:= cel*0.8;
param:= �reamur�;
end;
else
writeln(�input salah..�);
end;
writeln(cel, � celcius = �,hasil:10:2, � �,param);
readln();
end.
* * *
Maka Outputnya Seperti ini :
* * *
demikian penjelasan programnya, logika program tinggal dikaliin aja, (saya lagi males jelasin logika), jari udah mulai kriting,,hahaaa.. :D
#LOL.
semoga bermanfaat ya..
terima kasih ^_^ Sudah Berkunjung
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :