tugas

Ini tugas dari Bpk Jun..

{dari source code pascal}
{Program Mengubah Angka Desimal Ke Biner }

program konversiDesKeBin;
var bil:integer;
function decToBin(desimal:integer):string;
var hasilBagi,sisa:integer;
 bin:char;
 bilBiner:string;
begin
 hasilBagi:=desimal div 2;
 bilBiner:='';
 while (hasilBagi >= 1) do
 begin
      sisa:=desimal mod 2;
      if (sisa=0) then bin:='0'
           else if (sisa=1) then bin:='1';
      bilBiner:=bin + bilBiner;
      desimal:=hasilBagi;
      hasilBagi:=desimal div 2;
 end;
 decToBin:='1' + bilBiner;
end;
begin
 write('Masukkan Bilangan Desimal : ');
 readln(bil);
 write('Bilangan binernya : ', decToBin(bil));
 readln;
end.

{lalu satunya...}
{Mengubah Angka Biner Ke Desimal}

program konversiBinKeDec;
var bilBiner : string;
function pangkat(a, b : integer) : integer;
var i, hsl : integer;
begin
hsl := 1;
for i:=1 to b do
begin
   hsl := hsl * a;
end;
pangkat := hsl;
end;
function bin2Dec(biner : string) : integer;
var n, sum, i : integer;
begin
n := length(biner);
sum := 0;
for i:= n-1 downto 0 do
begin
   if (biner[n-i] = '0') then sum := sum + 0 * pangkat(2, i)
   else if (biner[n-i] = '1') then sum := sum + 1 * pangkat(2, i);
end;
bin2Dec := sum;
end;
begin
write('Masukkan Bilangan Biner : ');
readln('bilBiner');
write('Bilangan desimalnya : ', bin2Dec(bilBiner));
end.


{ini opsi yang lainnya..}
{Mengubah Angka Desimal Ke Biner}

Uses wincrt;

Var Des : Integer;
Bin : String;

Begin
Write (‘Masukan Bilangan Desimal : ‘);
ReadLn (Des);
Bin := ‘ ‘;
Repeat Begin If Des mod 2 = 0 Then Bin := ‘0′ + Bin Else Bin := ‘1′ + Bin; Des := Des div 2; End; Until Des = 0; WriteLn (‘Bilangan Biner : ‘,Bin);

End.