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
- Celcius
- Reamur
- Fahrenheit
- 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 :
- cel (Celcius)
- fah (Fahrenheit)
- rea (Reamur)
- 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.
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
