Системы Счислений Опции

[Лена Беркова]

Даны два числа, записанные в двоичной системе счисления. Найдите их сумму. Результат выводите тоже в двоичной системе счисления.
Сказали в школе сделать, а я не знаю как.



исправил заголовок
В следующий раз тему с таким названием закрою

Правила форума : 1. Заголовок темы должен быть информативным В противном случае тема удаляется

Сообщение отредактировано: klem4 - 15.01.2006 0:44

[klem4]

Е-мое, ну держи :

Один символ поменять неужели так сложно ? PS дом не смотри больше видишь как после него соображается туго ...

function IntToBin(bin: longint): 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: longint;
  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;

var
  BO, BT: string;

begin
  write('Введите первое число : ');
  readln(BO);
  write('Введите второе число : ');
  readln(BT);

  writeln( 'Результат: ', IntToBin(BinToInt(BO)+BinToInt(BT)) )
end.

Сообщение отредактировано: klem4 - 15.01.2006 22:30