Membuat Program Konversi Suhu Dengan Pascal

 

      Belajar Ilmu TKJ - Ok kawan kita kali ini akan belajar membuat program sederhana menggunkan aplikasi "Free Pascal" atau lebih dikenal dengan "Free Pascal". Pada artikel ini saya akan mengajari kalian membuat program konversi suhu, kalau program yang diatas itu pasti kalian lihat kodenya pasti Mun*ah-Mun*ah. Makanya saya akan membuat program yang sederhana agar kalian mengerti dan bisa membuat program tersebut.


Ok langsung saja, Apa yang perlu kita siapkan?


1.Aplikasi Free Pascal

Bisa Download Disini

| Google Drive |


Ini adalah Tampilan dari Free Pascal








2. Fisik dan Mental.
3.Obat Pusing ( buat jaga-jaga)




Dan Inilah Programnya


uses crt;

var


farenheit,celcius,reamur,hasil:real;

begin

clrscr;

writeln('======= Program Konversi Suhu Farenheit Ke Celcius dan Reamur ======');

writeln('======= Belajar Ilmu TKJ ======');

 writeln;

write('Masukkan Suhu Farenheit=');

readln(farenheit);

celcius := 5/9*(farenheit-32);
reamur := 4/9*(farenheit-32);

writeln('Tara................Inilah Hasilnya=', celcius:4:2,'celcius');
writeln('                                                =', reamur:4:2,'Reamur');

readln

end.


Dan Inilah Hasilnya







Nah itulah program sederhana dari saya, semoga bermanfaat dan tinggalkan komntar, jangan sungkan-sungkan untuk bertanya.

                                                        Sekian Terima Kasih