Tabel Konversi Decimal ke Octal Pascal

Pada kiriman yang sebelumnya tentang Tabel Konversi yang dalam bentuk Pdf. Kali ini saya mencoba untuk membuat Tabel Konversi dalam bentuk Pascal.

Ya meskipun gak seluruhnya hasil pemikiran, tapi gak ada salahnya kalau dapat membagi rasa pada anda. Yang tentunya hanya untuk dapat membuahkan manfaat.

Berikut adalah scriptnya...

  • uses wincrt;
  • var dec,bin,i:integer;
  • var a:array[1..100]of integer;
  • begin
  •       readln(dec);
  •       writeln('Angka Decimal : ',dec,' bila di konversi ke octal :');
  •       i:=0;
  •       repeat
  •       i:=i+1;
  •       a[i]:=dec mod 8;
  •       dec:=dec div 8;
  •       until(dec = 0);
  •          writeln;
  •          for i:=i downto 1 do
  •             begin
  •             write(a[i]);
  •             end;
  • readln;
  • end.



Gak lupa, apabila ada saran, jangan sungkan...


bagi yang ga ingin nulis

Share this post!

Bookmark and Share

My Blog List