Tuesday, 10 April 2012

Konversi Desimal Ke Biner dengan Pascal

nahh.......... seperti yang saya katakan sebelumnya ,,, kalo ada yang di buat dari pascal....

walopun pascal udah jarang di pake, tapi ini saya kasik buat temen2 sebagai pembelajara.....

untuk kode lengkap dengan perulangannya seperti ini :

uses crt;
  var
    hasilbagi,sisa,des:integer;
    bin,biner:string;
    lagi:char;
  begin
      repeat
       clrscr;
        textcolor(yellow);
        gotoxy(5,2);write('SEKOLAH TINGGI TEKNOLOGI NURUL JADID');
        gotoxy(9,3);write('Konversi Desimal ke Biner');
        gotoxy(4,4);write('oleh: Ubaidur Rahman , nim:10011667 ,kelas: M ');
        gotoxy(2,5);write('==========================================');
        bin:=' ';
        textcolor(11);gotoxy(8,7);write('* input desimal:= ');readln(des);
        writeln;
        gotoxy(14,9);writeln('   ',des);
       repeat
            sisa:=des mod 2;
            begin
            writeln('            2 ------ ',sisa);
            end;
         if(des mod 2=0) then
            bin:='0'+bin
         else
            bin:='1'+bin;
            hasilbagi:=des div 2;
            writeln('                ',hasilbagi);
            des:=hasilbagi;
       until hasilbagi=0 or 1;
   begin
       biner:=' ';
       repeat
          if des mod 2=0 then
            biner:='0'+bin
          else
            biner:='1'+bin;
            des:=des div 2;
       until des=0;
          writeln;
          writeln('    * bilangan biner:= ( ',biner,')');
    end;
      textcolor(yellow);writeln('  lagi...[ Y ] __ keluar...[ Enter 2x]');
      lagi:=upcase(readkey);
      writeln(lagi);
     until lagi <> 'Y';
   readln;
 end.


demikian listing kodenya, dan dari saya terimakasih.......

jangan lupa komentarnya...!!!!!!!

0 comments:

UbaidRahman