12 Koding Jitu Konversi Suhu di Pascal

Salam Pascal Mania !

Mengenai pemrograman pascal tentang membuat suhu, mimin kira pasti sobat Pascal Mania udah hafal betul kalo macam-macam pengukuran skala suhu ada 4 :

Mau belajar lengkap pemrogramaan klik DISINI banyak PDF Lengkap seputar pemrogramman
  1. Celcius
  2. Reamur
  3. Fahrenheit
  4. Kelvin
Dari keempat satuan suhu tersebut, mimin punya sintax nih buat ngitung semua di pascal. 

Untuk para master, saya mohon maaf apabila kurang berkenan.

variabel yang saya gunakan adalah sebagai berikut gan :
  1. cel (Celcius)
  2. fah (Fahrenheit)
  3. rea (Reamur)
  4. kel (Kelvin)
Berikut sintax-sintax nya

Ini program Fahrenheit Ke Celcius

uses crt ;
var  
    cel, fah : real;
begin
    clrscr;
    write('Masukan Derajat Fahrenheit : ');
    readln(fah);
    cel := (fah - 32) + 18;
    writeln('Hasil Konversi Ke Celcius : ',cel:2:2);
    readln;
end.

Ini program Fahrenheit ke Kelvin

uses crt;
var
    fah, kel : real;
begin
clrscr;
    write('Masukan Nilai Fahrenheit : ');
    readln(fah);
    kel := (fah+459.67)+1.8;
    writeln('Hasil Konversi Ke Kelvin : ',kel:2:2);
    readln;
end.

Ini Program Fahrenheit Ke Reamur

uses crt ;
var
    rea, fah : real;
begin
    clrscr;
    write('Masukan Derajat Fahrenheit : ');
    readln(fah);
    rea:=fah+459.67;
   writeln('Hasil Konversi Ke Celcius : ',rea:2:2);
    readln;
end.

Ini Program Celcius ke Fahrenheit

uses crt ;
var   
    cel, fah : real;
begin
    clrscr;
    write('Masukan Derajat Celcius : ');
    readln(cel);
    fah := (1.8*cel)+32;
 writeln('Hasil Konversi Ke Fahrenheit : ',fah:2:2);
    readln;
end.

Ini Program Celcius Ke Kelvin

uses crt ;
var
    cel, kel: real;
begin
    clrscr;
    write('Masukan Derajat Celcius : ');
    readln(cel);
    kel:=c+273.15;
    writeln('Hasil Konversi Ke kelvin : ',kel:2:2);
    readln;
end.

Ini Program Celcius Ke Reamur

uses crt ;
var
      cel, rea: real;
begin
    clrscr;
    write('Masukan Derajat Celcius : ');
    readln(cel);
    rea:=1.8*(cel+273.15);
 writeln('Hasil Konversi Ke Reamur : ',rea:2:2);
    readln;
end.

Ini program Kelvin ke Celcius

uses crt ;
var
    kel , cel: real;
begin
    clrscr;
    write('Masukan Derajat Kelvin : ');
    readln(kel);
    cel:= kel-273.15;
    writeln('Hasil Konversi Ke Celcius : ',cel:2:2);
    readln;
end.

Ini Program Kelvin ke Fahrenheit

uses crt ;
var  
    kel, fah : real;
begin
    clrscr;
    write('Masukan Derajat Kelvin : ');
    readln(kel);
    fah:=(1.8*kel)-459.67;
writeln('Hasil Konversi Ke Fahrenheit : ',fah:2:2);
    readln;
end.

Ini Program Kelvin ke Reamur

uses crt ;
var
    kel , rea: real;
begin
    clrscr;
    write('Masukan Derajat Kelvin : ');
    readln(kel);
    rea:=1.8*kel;
    writeln('Hasil Konversi Ke Kelvin : ',rea:2:2);
    readln;
end.

Ini program Reamur ke Celcius

uses crt ;
var
    rea , cel: real;
begin
    clrscr;
    write('Masukan Derajat Reamur : ');
    readln(rea);
    cel:=(rea+1.8)-273.15;
    writeln('Hasil Konversi Ke Celcius : ',cel:2:2);
    readln;
end.

Ini program Reamur Ke Kelvin

uses crt ;
var    
    rea , kel: real;
begin
    clrscr;
    write('Masukan Derajat Reamur : ');
    readln(rea);
    kel:=rea+1.8;
    writeln('Hasil Konversi Ke Kelvin : ',kel:2:2);
    readln;
end.

Ini Program Reamur ke Fahrenheit

uses crt ;
var
    rea , fah: real;
begin
    clrscr;
    write('Masukan Derajat Reamur : ');
    readln(rea);
    fah:=rea-459.67;
 writeln('Hasil Konversi Ke Fahrenheit : ',fah:2:2);
    readln;
end.

Mimin janji, nanti disempurnakan kembali agar lebih kompleks tentang program diatas atau dimodifikasi dengan menggunakan fungsi if di pascal. Biar tambah kece gitu 😁

Nih salah satu outputnya gan,



Makanya pantengin terus yah, artikel-artikel mimin. Semoga bermanfaat, dan thanks telah berkunjung. Komentar saja disini nanti mimin kunjung balik blog agan-agan.

Salam Pascal Mania !

Mau belajar lengkap pemrogramaan klik DISINI banyak PDF Lengkap seputar pemrogramman

Label: