Membuat Aplikasi Konversi Suhu Menggunakan Pascal

Asalamualaikum Wr.Wb
kali ini saya akan membahas bagaimana cara "Membuat Aplikasi Konversi Suhu Menggunakan Pascal",disini saya akan menggunakan aplikasi Turbo Pascal,kenapa saya menggunakan aplikasi Turbo Pascal,karena bila menggunakan aplikasi turbo pascal kita akan belajar full koding dalam artian semuanya menggunakan koding tanpa ada istilah drag and drop.

Namun agar pembelajaran lebih mudah anda harus belajar dulu:

• Cara membuat aplikasi dasar dengan turbo pascal  

Tetapi ada hal yang perlu  anda persiapkan sebelumnya yaitu:

•  pastinya anda harus mempersiapakan laptop/pc
• aplikasi Turbo Pascal
• Mental dan fokus (karena bila ada satu titik ataupun koma yang tertinggal akan berdampak pada aplikasi yang akan kamu buat)

disini saya melambangkan celsius dengan huruf "c" (tanpa tanda kutip) dan reamur dengan huruf "r" (tanpa tanda kutip)
Bila anda sudah mempersiapkannya,anda ikuti langkah-langkah dibawah ini:

• pertama anda buka aplikasi Turbo Pascal
• kemudian klik file lalu pilih new
• setelah itu masukan koding di bawah ini:

 program konversi;
var c, r :real;
pilihan :integer;
begin
writeln('===========Konversi Suhu=========');
writeln('1.CtoR');
writeln ('2.RtoC');
write('pilih konversi    :'); readln(pilih);
if (pilih=1) then
begin
writeln('=============CtoR=============');
write('masukan suhu celcius   :'); readln(c);
r :=c * 4/5;
writeln('suhu reamurnya            :',r:0:0);
readln;
end
else if (pilih=2) then
begin
writeln('=============RtoC===========';)
write(masukan suhu reamurnya      :); readln(r);
r :=c * 5/4;
writeln('suhu celciusnya       :',c:0:0);
readln;
end
else
begin
writeln('tidak ada pilihan');
readln;
end
end.

•  setelah anda selesai memasukan kodingnya anda pilih run atau anda tekan CTRL+F9 (bila aplikasi tidak berjalan berarti ada kesalahan penulisan ataupun ada titik atau koma yang tidak terketik)
• bila berjalan anda coba,dan bila berhasil maka akan seperti gambar dibawah

 

Penjelasan koding/script:

" program konversi;"berfungsi memberi nama program yang kita buat,disini program yang saya buat di beri nama konversi.

"var c, r :real;" memberi sifat objek/variabel dengan bilangan bulat,"var"maksud dari koding ini adalah singkatan dari variabel.

"pilihan :integer;"memberi sifat objek/variabel dengan huruf,dalam artian bahwa objek tersebut adalah huruf,tapi ingat setiap memberi sifat objek harus sesudah koding "var".

"begin"memberi perintah untuk memulai aplikasi.

"writeln('===========Konversi Suhu=========');" menampilkan "===========Konversi Suhu========="pada aplikasi tanpa harus mengisinya dulu.

"write('pilih konversi    :'); readln(pilih);"menampilkan "pilih konversi   :"dengan memberi objek atau variabel dengan objek "pilih",dan anda bisa mengisinya.

"if (pilih=1) then"memberi pilihan dengan jika kita mengisi "pilih konversi   :"dengan angka 1 maka aplikasi akan berjalan dengan apa yang akan kita perintahkan dengan cara membuat begin lagi di bawahnya.

"r :=c * 4/5;"ini adalah rumus dari konversi yang akan kita buat.

"else if (pilih=2) then"ini digunakan jika sebelumnya kita sudah membuat "if",dan membuat pilihan jika kita mengisi "pilih konversi   :"dengan angka 2.

"writeln('suhu celciusnya       :',c:0:0);"sript ini berfungsi menampilkan hasil konversi reamur ke celsius.

"else

begin

writeln('tidak ada pilihan');"script ini berfungsi untuk memberi pilihan jika kita mengisi "pilih konversi   :"selain 1 dan 2 maka aplikasi akan menampilkan "tidak ada pilihan"

"end."memberi perintah pada aplikasi bahwa aplikasi sudah selesai.

Nb:bila ingin bisa dan mengerti jangan sekali-kali anda copy paste script diatas,lebih baik anda print atau foto kemudian anda tulis kembali,dan perlu anda ketahui script diatas jangan dipakai untuk mencontek tugas kuliah yang dosen anda berikan.

Sekian tutorial dan penjelasan tentang cara membuat aplikasi konversi dengan pascal,bila ada saran,kritik ataupun koreksi silahkan berkomentar.

Semoga bermanfaat

Tweet

Subscribe to receive free email updates: