PROGRAM KONVERSI CM KE METER dan KILOMETER DENGAN JARAK TEMPUH SEMUT.

hanya sekedar berbagi ilmu bagi yang membutuhkan.....

program konversi_cm_m_km;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
     km,m,cm,input_cm,sisa_cm:integer;

const
     km_cm = 100000;
     m_cm  = 100;

begin
     writeln('Selamat datang di aplikasi Pengukur Jarak Tempuh Semut');
     write('Silahkan tekan enter untuk melanjutkan..');
     readln;
     writeln;
     write('Berapa jarak tempuh semut dalam satuan cm : ');readln(input_cm);
     km      := input_cm div km_cm;
     sisa_cm := input_cm mod km_cm;
     m       := sisa_cm div m_cm;
     cm      := sisa_cm mod m_cm;
     writeln;
     writeln('Semut berjalan sejauh ',km,'km + ',m,'m + ',cm,'cm');
     writeln;
     write('Silahkan tekan enter untuk keluar dari aplikasi..');
     readln;


  { TODO -oUser -cConsole Main : Insert code here }
end.