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.

program Array

program Project2_Array;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  simpleArray : array [1..3] of integer ;
  complexArray : array [1..3, 1..3] of integer ;
  arrayOfString : array [-3..-1] of string ;
  i , j : integer ;

begin
  for i := 2 to 3 do simpleArray [i] := i * i ;
  for i := 1 to 3 do writeln (simpleArray [i]);
  for i := 2 to 3 do
    for j := 1 to 2 do complexArray [i,j] := i *  j ;
     writeln ('complexArray : ');
  for i := 1 to 3 do for j := 1 to 3 do
    writeln ('[',i,',', j , ']=', complexArray [ i , j ]);
  arrayOfString [-2] := 'hello pascal';
  writeln (arrayOfString [-3], arrayOfString [-2]);
  readln ;
  { TODO -oUser -cConsole Main : Insert code here }
end.