Coding Basis 2

Assalamualaikum readers..
Karena sebelumnya saya sudah memposting konsep basis 2 versi saya nah kali ini saya mau memposting coding Program konversi nilai dari desimal ke dalam bentuk basis 2 yang tidak sengaja saya buat kemarin. Langsung saja ya, semoga bermanfaat kawan...

Program basis2;
uses wincrt;
var
 a,b,c,d,i,h,j : integer;
 x : array [0..100] of integer;

Begin
 Writeln ('PROGRAM BASIS 2');
 Writeln ('===============');
 Writeln;
 Write ('Masukkan data yang ingin anda ubah ke basis 2: '); readln (b);
 Writeln;
 Write
  ('Hasil konversi data anda ke basis 2 adalah ');

 h:=0;
 a:=b;
 d:=b;
 repeat
  begin
   if a mod 2 = 0 then
   begin
    a:=a div 2 + 0;
    h:=h+1;
   end
  else
   begin
    a:=(a-1) div 2;
    h:=h+1;
   end;
  end;
 until (a=0);

 repeat
  begin
   for i:=1 to h do
   if b mod 2 = 0 then
    begin
     b:=b div 2;
     x[i]:=0;
    end
   else
    begin
     b:=(b-1) div 2;
     x[i]:=1;
    end;
   end;
 until (b=0);

 begin
 if h mod 2 = 0 then
    c:=h div 2
 else
    c:=(h-1) div 2;
 end;

 for i:=1 to c do
 begin
  x[0]:=x[i];
  x[i]:=x[(h+1)-i];
  x[(h+1)-i]:=x[0];
 end;


 for i:=1 to h do
 write (x[i]);

 Writeln;
 Writeln;
 writeln;
 Writeln ('Pembahasan');
 Writeln ('----------');

 repeat
 begin
 if d mod 2 = 0 then
   begin
   Writeln (d, ' : 2 = ',d div 2,' + "0"');
   d:=d div 2;
   end
  else
   begin
    Writeln (d, ' : 2 = ',(d-1) div 2,' + "1"/2');
    d:=(d-1) div 2;
   end;
 end;
 until (d=0);

 writeln ('Basis adalah sisa dari operasi bagi tapi di lihat dari bawah ke atas, yaitu:');
 write (x[1],' + ',x[2]);
 for i:=3 to h do
 write (' + ',x[i]);
End.

Atau kalian bisa langsung download dengan cara klik, tombol download dibawah ini..

Read More

Abu Wafa

"Education is the most powerful weapon which you can use to change the world."

- Nelson Mandela -

Kalian kenal Al-Khawarizmi? Iya, benar sekali beliau adalah ilmuwan muslim yang berkecimpung di dunia matematika. Nah tapi kali ini saya akan memposting hal lain, berhubung setelah blogwalking banyak sekali hasil blog yang membahas tentang beliau maka saya mencoba untuk mencari tokoh ilmuwan muslim lainnya, sampai akhirnya saya tertarik untuk membahas tentang Abul Wafa.

Read More

Konsep Penjumlahan Basis 2

"Hal sulit itu bukanlah alasan yang tepat untuk membuatmu menyerah, tapi dia adalah alasan yang sangat bagus untuk membuatmu belajar mengembangkan diri.."

Assalamualaikum readers. Kali ini kita akan membahas tentang basis nih, namun sebelumnya saya mau cerita dulu. Jujur saja saya baru menemukan materi basis ini ketika saya duduk di semester 1, tepatnya di mata kuliah English for Math, saat itu sulit sekali bagi saya untuk mengerti konsep dari penjumlahannya. Bahkan ketika saya meminta bantuan kepada teman saya untuk menjelaskan kembali apa yang sudah dijelaskan oleh dosen, tapi tetap saja saya belum bisa mengerti. Sampai akhirnya ketika dirumah saya mencoba untuk mencari cara supaya materi itu bisa saya pahami, bagaimanapun caranya, hingga akhirnya saya menemukan konsep yang lumayan bisa masuk ke otak saya, berikut ini konsepnya...

Read More

Differensial Pendidikan

"Semua hal itu sama, hanya saja sudut pandang kita yang membuat perbedaan itu jelas ada padahal dia benar-benar semu, karena pada dasarnya semua manusia itu sama dimata Tuhan..."

Layaknya sebuah aljabar kami dikelompokkan
Pangkat tertinggi didepan
Pangkat terkecil disampingkan
Begitulah yang kami rasakan

Read More