Rhony

          Udah lama banget saya tidak posting artikel. Dan kali ini saya akan membagikan kode-kode untuk membuat sebuah aplikasi sederhana untuk konversi suhu. Mulai dari Celcius, Fahrenheit, Reamour, bahkan Kelvin. Kita akan membuat aplikasi ini dengan pascal, tak butuh waktu lama. Anda bisa melakukannya bahkan jika anda pemula sekalipun. Mari kita coba!!!

1. Buka program Pascal (Free Pascal atau Turbo Pascal), anda dapat mencarinya di Google.
2. Mari mulai dengan kodenya.
   Kode yang harus anda tulis :
   
   Uses Crt;  ===> Bisa Wincrt bagi yang pake Turbo Pascal
   label ya;    ===> Ini akan digunakan untuk perulangan
   var a,b : real, lg,kode:char; ===> Ini untuk menentukan tipe dari tiap variable yang dimasukkan
   begin
   ya: ===> Tempat Perulangan akan dimulai (jika terjadi perulangan)
   clrscr; ===> Mengosongkan/membersihkan layar (Clear Screen)
   writeln('[1] Celcius --> Reamour'); ===>Yang akan ditulis Program
   writeln('[2] Celcius --> Fahrenheit');
   writeln('[3] Celcius --> Kelvin');
   write('Masukan konversi yang dipilih [1-3]'); readln(kode);
   Case kode of
   '1':begin
   write('Masukkan suhu (Celcius mulai 0-100) = '); readln(a);
   b:=a*4/5;
   if (a>=0) and (a<=100) then ===> Suhu akan ditampilkan jika yang dimasukkan dari 0-100
   writeln('Suhu = ',b:0:1,' R') ===> Menuliskan hasil
   else
   writeln('Maaf, suhu yang anda masukkan salah');
   end;
   '2':begin
   write('Masukkan suhu (Celcius mulai 0-100) = '); readln (a);
   b:=a*9/5+32;
   if (a>=0) and (a<=100) then
   writeln('Suhu = ',b:0:1,' F')
   else
   writeln('Maaf, suhu yang anda masukkan salah');
   end;
   '3':begin
   write('Masukkan suhu (Celcius mulai 0-100) = '); readln (a);
   b:=a+273;
   if (a>=0) and (a<=100) then
   writeln('Suhu = ',b:0:1,' K')
   else
   writeln('Maaf, suhu yang anda masukkan salah');
   end;
   end;
   writeln('Mau coba lagi?? [y/t] '); readln(lg);
   if (lg='y') or (lg='Y') then
   goto ya ===> Perintah untuk mengulangi dari label 'ya'
   else
   writeln('Terima Kasih');
   writeln('Good Bye');
   delay 50000
   end.
3. Jika anda sudah membuat kodenya. Anda bisa untuk mengujinya pada Menu Run->Run. Jika terjadi error anda dapat menanyakannya pada saya.