Pascal : program konversi suhu

  Program konversi suhu ini, misal kita ingin tahu derajat farenheit dari 100 derajat celcius. Tinggal masukkan "100" maka derajat farenheitnya diketahui yaitu 212 derajat farenheit. Ok, langsung saja, ini dia list scriptnya :


var a,b,c:longint;
procedure ceke;
begin
writeln('masukkan derajat celcius !');
read(b);
c:= b+273;
writeln('derajat kelvinnya adalah ',c);
end;
procedure cere;
begin
writeln('masukkan derajat celcius !');
read(b);
c:=b*4/5;
writeln('derajat reamurnya adalah ',c);
end;
procedure cefa;
begin
writeln('masukkan derajat celcius !');
read(b);
c:=b*9/5+32;
writeln('derajat farenheitnya adalah ',c);
end;
begin
writeln('silahkan pilih konversi yang di inginkan !');
writeln('celcius - kelvin kode = 1');
writeln('celcius - reamur kode = 2');
writeln('celcius - farenheit kode =3');
read(a);
if a=1 then ceke else
if a=2 then cere else
if a=3 then cefa;
end.

  Sebenarnya kalau mau lebih luas lagi konversinya, tidak sebatas celcius - kelvin dll, bisa. Tinggal tambah rumusnya ke bagian procedure, tapi karena terlau panjang jadinya penulis cuma memaparkan konversi celcius ke derajat suhu apa saja.

Ok, sekian.