Conversi SUHU dengan Pascal

Berikut ini saya akan share source code conversi SUHU dengan Pascal dan semoga dapat membantu........

program konversi_suhu;

uses crt;

var

   c,f,r,k:real;

   i:integer;

begin

   clrscr;

   writeln('KONVERSI SUHU');

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

   writeln('[ CELCIUS ]     [ FARENHEIT ]      [  REAMOR   ]        [  KELVIN   ]');

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

   c:=0;

   for i:=1 to 20 do

   begin

   write(c:6:0);

   f:=(c*1.8)+32;

   r:=c*0.8;

   k:=c*273.15;

   c:=c+10;

   writeln('         ',f:6:2,'       ',r:6:2,'        ',k:6:2);

   end;

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

   writeln('Selesai');

   readln;

end.

= Baca Juga Sob =