[ Outline ] · Standard · Linear+ Pretvaranje decimalnog zapisa u binarni, Pascal

[Laza_91]

E jel moze neko da mi napise funkciju za prevodjenje broja iz dekadnog u binarni brojni sistem...
Do sutra...Ako je moguce

[pyost]

CODE

function decBin(broj:integer):integer;
var
  vrednost,mnozilac: integer;
begin
    vrednost:=0;
    mnozilac:=1;

    while broj<>0 do
    begin
         vrednost:=vrednost+(broj mod 2)*mnozilac;
         broj:=broj div 2;
         mnozilac:=mnozilac*10;
    end;

    decBin:=vrednost;
end;