
Logowanie
| Zamiana liczb z systemu dziesiętnego na binarny |
|
|
| Wpisany przez Berl | |
| czwartek, 06 listopada 2008 13:06 | |
|
Dwójkowy system liczbowy (inaczej binarny) to pozycyjny system liczbowy, w którym podstawą jest liczba 2. Do zapisu liczb potrzebne są więc tylko dwie cyfry: 0 i 1. 30 : 2 | 0
function Dec2Bin(dec:integer):string; var bin : string; begin while dec > 1 do begin if (dec mod 2) <> 0 then bin := bin + '1' else bin := bin +'0'; dec := dec div 2; end; bin := bin + '1'; for dec := length(bin) downto 0 do result := result + bin[dec]; end;
|
Statystyka
Użytkowników : 99Artykułów : 76
Odsłon : 99788




