Selamat Datang di blog kami, semoga informasi ini dapat bermanfaat. Kritik dan saran selalu terbuka bagi kami.

Membuat Program Sederhana Konversi Suhu Dengan Pascal

Pada postingan kali ini, kami akan sedikit berbagi bagaimana cara membuat program konversi suhu dengan pascal. Kami tahu program ini masih sangat sederhana dan jauh dari sempurna, kritik dan saran selalu terbuka bagi kami, demi sempurna program kami. Langkah yang pertama adalah menyiapkan software TPW1.5 yang sudah terinstall pada PC/Laptop anda. Kami menggunakan TPW1.5 untuk membuat program ini. Jika anda belum memiliki program tersebut cari aza di mbah goolge, download n install programnya. Setelah itu ikuti langkah selanjutnya seperti ini :

Langkah - langkahnya adalah sebagai berikut:
  1. Jalankan program TPW1.5.
  2. Setelah jendela aplikasi terbuka klik File>>New (ini difungsikan untuk membuat lembar kerja baru).
  3. Copy dan pastekan script di bawah ini pada program TPW anda!
Program Konversi_Suhu;
uses wincrt;
label 10,11;
var
 celcius,reamur,farenheit,kalvin:real;
 pilihanutama:byte;
 jawab:char;

begin
10: clrscr;
 writeln('            Program Konversi Suhu');
 writeln('-------------------------------------------------');
 writeln;
 writeln;
 writeln('------------------------------------');
 writeln('        Pilih Menu Konversi');
 writeln('====================================');
 writeln('1 Konversi Celcius');
 writeln('2 Konversi Reamur');
 writeln('3 Konversi Farenheit');
 write('Pilihan Anda (1/2/3): ');
 readln(pilihanutama);

       clrscr;
 if pilihanutama= 1 then
 begin
 writeln;
 writeln('      Program Konversi Suhu Celcius     ');
 writeln('----------------------------------------');
 writeln;
 write('Masukkan Suhu Celcius  :   ');readln(celcius);
 write('Suhu Reamur            :   ');
 reamur:=0.8*celcius;
 writeln(reamur:3:2);
 write('Suhu Farenheit         :   ');
 farenheit:=1.8*celcius+32;
 writeln(farenheit:3:2);
 write('Suhu Kalvin            :   ');
 kalvin:=celcius+273;
 writeln(kalvin:3:2);
 writeln;
 writeln('----------------------------------------');
 writeln;
 write('Akan Menghitung Lagi (Y/T)? ');readln(jawab);
 if (jawab ='Y') or (jawab = 'T') then goto 10
 else goto 11
 end;

 if pilihanutama= 2 then
 begin
 writeln;
 writeln('      Program Konversi Suhu Reamur     ');
 writeln('----------------------------------------');
 writeln;
 write('Masukkan Suhu Reamur   :   ');readln(reamur);
 write('Suhu Celcius           :   ');
 celcius:=(5/4)*reamur;
 writeln(celcius:3:2);
 write('Suhu Farenheit         :   ');
 farenheit:=(9/4)*reamur+32;
 writeln(farenheit:3:2);
 write('Suhu Kalvin            :   ');
 kalvin:=celcius+273;
 writeln(kalvin:3:2);
 writeln;
 writeln('----------------------------------------');
 writeln;
 write('Akan Menghitung Lagi (Y/T)? ');readln(jawab);
 if (jawab ='Y') or (jawab = 'T') then goto 10
 else goto 11
 end;

 if pilihanutama= 3 then
 begin
 writeln;
 writeln('----------------------------------------');
 writeln('      Program Konversi Suhu Farenheit     ');
 writeln('----------------------------------------');
 writeln;
 write('Masukkan Suhu Farenheit  :   ');readln(farenheit);
 write('Suhu Reamur              :   ');
 reamur:=(4/9)*(farenheit-32);
 writeln(reamur:3:2);
 write('Suhu Celcius             :   ');
 celcius:=(5/9)*(farenheit-32);
 writeln(celcius:3:2);
 write('Suhu Kalvin              :   ');
 kalvin:=celcius+273;
 writeln(kalvin:3:2);
 writeln;
 writeln('----------------------------------------');
 writeln;
 write('Akan Menghitung Lagi (Y/T)? ');readln(jawab);
 if (jawab ='Y') or (jawab = 'T') then goto 10
 else goto 11
 end;

 if pilihanutama>3 then
 begin
 writeln;
 writeln('   Error  Program  ');
 writeln;
11:writeln('      Powered By Dona Vanhelsink       ');
 end;
end.

4. Jalankan program dengan perintah Run pada menu bar.

Selamat mencoba, semoga bermanfaat....Amien...