Hi. Задача: создать Двоичный-десятичный калькулятор.(перевод из2 в 10 и наобороти действия с ними) хотелось бы узнать есть ли в паскале числа 2-ной системы(не 1-битные)б типо чтбы сразу можно было бы переводить. THNX
след вопрос: где проблема в коде в строках: ... begin if d=2 then begin write('1: '); readln(BO);{почемуто эта строка вообще пропускается} write('2: '); readln(BT); ... весь код: program kursinis; function IntToBin(bin: integer): string; var bin_s: string; begin bin_s := ''; if bin = 0 then bin_s := '0' else while bin <> 0 do begin if (bin and 1) = 1 then bin_s := '1' + bin_s else bin_s := '0' + bin_s;
bin := bin shr 1; end; IntToBin := bin_s end;
function BinToInt(bin_s: string): longint; var bin, mult: integer; i: integer; begin mult := 1; bin := 0; for i := length(bin_s) downto 1 do begin if bin_s[i] = '1' then bin := bin + mult; mult := mult shl 1; end; BinToInt := bin end;