Contoh Program Konversi Suhu

Program Konversi_suhu;
Uses crt;
Var
  cel,pil:integer;
  hasil:real;
  param:string;
Begin
  Clrscr;

  writeln('-------------------------------------');
  writeln('KONVERSI SUHU ANGGA YULIUS ADE PUTRA');
  writeln('-------------------------------------');
  writeln('1.celcius -> kelvin');
  writeln('2.celcius -> fahrenheit');
  writeln('3.celcius -> reamur');
  writeln('-------------------------------------');
  write('Masukkan Pilihan:');
  readln(pil);
  write('Masukkan Besar Suhu Dalam Celcius   :');
  readln(cel);
  case pil of
  1:
begin
  hasil:=cel+273;
  param:='kelvin';
  end;
  2:
begin
  hasil:=cel*1.8+32;
  param:='fahrenheit';
  end;
  3:
begin
  hasil:=cel*0.8;
  param:='reamur';
  end;
  else
  writeln('Input Salah');
  end;
  writeln;
  writeln;
  writeln(cel,'celcius=',hasil:10:2,'  ',param);
  writeln;
  writeln;
  gotoxy(20,17);writeln('Terima Kasih');
  writeln('Nama    :Angga Yulius Ade Putra');
  writeln('NIM     :140202004');
  writeln('D3 Manajemen Informatika/2014');
  writeln('***************************************');
  readln;
  end.