Conversi SUHU dengan Pascal


Konversi SUHU Pascal | Source Code 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 =



Ditulis Oleh : Marwan Setiawan ~ Berbagi Ilmu Pengetahuan

Artikel Conversi SUHU dengan Pascal ini diposting oleh Marwan Setiawan. Sobat diperbolehkan mengcopy paste atau menyebar-luaskan artikel ini, namun jangan lupa untuk meletakkan link AKTIF artikel ini sebagai sumbernya. Terimakasih atas kunjungan Anda serta kesediaan Anda membaca artikel ini. Kritik dan saran dapat anda sampaikan melalui kotak komentar.

::..Get Free Daily Email Updates..::

Comments
0 Comments

Tidak ada komentar:

Posting Komentar

Baru Lama HomE
to Top