Membuat Aplikasi Konverter Suhu dengan Bahasa Pascal

Aplikasi ini saya buat dengan menggunakan Free Pascal Compiler

Berikut contoh yang sudah jadi dari aplikasi konverter suhu dari proses pembuatan kode sampai hasil akhir

uses crt;

var a,b,c,fahrenheit, kelvin, reamur : real;

i : integer;

procedure fah;

begin

                writeln ('Masukkan suhu fahrenheit : '); readln (a);

                fahrenheit := 5/9 *( a-32);

                writeln ('hasil konversi ke celcius adl ==> ',fahrenheit:4:2,'C');

                readln;

end;

procedure kel;

begin

                writeln ('Masukkan suhu kelvin : '); readln (b);

                kelvin :=  b-273;

                writeln ('hasil konversi ke celcius adl ==> ',kelvin:4:2,'C');

                readln;

end;

procedure ream;

begin

                writeln ('Masukkan suhu reamur : '); readln (c);

                kelvin := 5/4*c;

                writeln ('hasil konversi ke celcius adl ==> ',reamur:4:2,'C');

                readln;

end;

begin

clrscr;

repeat

writeln ('=====================');

writeln ('|PROGRAM KONVERSI SUHU|');

writeln ('=====================');

writeln ('1. Fahrenheit ==> Cel');

writeln ('2. Kelvin ==> Cel');

writeln ('3. Reamur ==> Cel');

writeln ('4. Keluar');

write ('Pilih opsi ==> '); readln (i);

case i of

1 : fah;

2 : kel;

3 : ream;

end;

until (i=4);

readln;

end.

*saya sarankan untuk membuat atau mengedit kode-kodenya gunakanlah Notepad++ karena simple dan mudah digunakan dari pada langsung ke Free Pascal Compiler yang mempunyai tampilan yang lebih kecil dan ribet, gunakanlah Free Pascal Compiler pada saat mengecek kesalahan, proses compiler dan proses run program.

Tweet