Konversi Suhu

program konversi;

uses

    wincrt;

procedure garis;

begin

     writeln('-----------------------------------');

end;

procedure menu;

begin

     writeln('PROGRAM KONVERSI SUHU');

end;

procedure exit;

begin

     writeln('Keluar');

end;

procedure celrea(var R : integer);

var

   C : real;

begin

     C := 5 / 4 * R;

     write('Konversi Celcius ke Reamur : ',C:3:0);

     writeln;

end;

function Refa (var F: integer) : real;

begin

     Refa:= 4 / 9 * F;

end;

function Reci(var C : integer): real;

begin

     Reci := 4 / 5 * C;

end;

function Feci(var C : integer): real;

begin

     Feci := (9 / 5 * C ) + 32;

end;

var

   a: integer;

   b: real;

   ulang,pil: char;

begin

ulang:='Y';

while (ulang='Y') or (ulang='y') do

      begin

           garis;

           menu;

           garis;

           writeln('[1]. KONVERSI CELCIUS KE REAMUR');

           writeln('[2]. KONVERSI REAMUR KE FAHRENHEIT');

           writeln('[3]. KONVERSI REAMUR KE CELCIUS');

           writeln('[4]. KONVERSI FAHRENHEIT KE CELCIUS');

           writeln('[5]. KELUAR');

           garis;

           write('Masukka Pilihan Anda : ');readln(pil);

           garis;

           clrscr;

           case pil of

           '1' : begin

               writeln('KONVERSI CELCIUS KE REAMUR');

               garis;

               write('Masukkan Suhu Reamur : ');readln(a);

               garis;

               celrea(a);

           end;

           '2': begin

               writeln('KONVERSI REAMUR KE FAHRENHEIT');

               garis;

               write('Masukkan Suhu Fahrebheit : ');readln(a);

               garis;

               writeln('Konversi Reamur ke Fahrenheit  : ',refa(a):3:0);

           end;

           '3': begin

               writeln('KONVERSI REAMUR KE CELCIUS');

               garis;

               write('Masukkan Suhu Celcius : ');readln(a);

               garis;

               writeln('Konversi Reamur ke Celcius : ',Reci(a):3:0);

               garis;

           end;

           '4': begin

               writeln('KONVERSI FAHRENHEIT KE CELCIUS');

               garis;

               write('Masukkan Suhu Celcius : ');readln(a);

               garis;

               writeln('Konversi Fahrenheit ke Celcius : ',Feci(a):3:0);

               garis;

           end;

           '5': begin

              exit;

              writeln('KELUA');

           end;    

   end;

   garis;

   writeln('Menu Yang Anda Masukkan Salah');

   garis;

   write('Mengulang Menu lagi [Y/T] : ');readln(ulang);

   garis;

   clrscr;

   end;

   garis;

   writeln('Thanks For Using This Program ^_^');

   writeln('wanty_manyun@yahoo.com');

   garis;

end.