gravatar

Cara Membuat Program Konversi Suhu dengan Menggunakan Pascal

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

Terima Kasih anda telah melihat dan membaca artikel di atas.
Jika anda Merasa tidak mengerti atau kurang memahami, anda dapat memberikan komentar dengan tata bahasa yang baik dan bijak. bukan SARA, SPAM, SAMPAH, dan berbau PORNOGRAFI..

Anda Juga dapat memberikan kritik dan saran kepada blog ini demi terciptanya kemajuan dan perkembangan blog ini yang masih sangat banyak kekurangannya.

Terima Kasih anda telah Berkunjung ke Blog ini.
Ambilah ilmu yang menurut anda bermanfaat dan tinggalkanlah ilmu yang Menurut anda Merugikan.

Semoga Bermanfaat :-)

Terjemahkan..?

Kunjungan Negara

Free counters!

Arsip Blog