VPF::Что есть сложение? - Форум программистов

Гость_welt

Дата 26.10.2005, 16:51 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

У меня есть код.

Код


const
  k = 12;  {12*8=96}
  bit: array[0..7] of Byte = (1,2,4,8,16,32,64,128);
var
  a, b, c: array[0 .. k - 1] of Byte;
  i, j: Byte;
  ost: Boolean;
  a_bit, b_bit: Boolean;
...
  ost := False;
  for i := 0 to k - 1 do begin
    c[i] := 0;
    for j := 0 to 7 do begin
      a_bit := a[i] and bit[j] > 0;
      b_bit := b[i] and bit[j] > 0;
      case Ord(a_bit) + Ord(b_bit) + Ord(ost) of
       {0: }
        1: begin c[i] := c[i] + bit[j]; ost := False end;
        2: ost := True;
        3: begin c[i] := c[i] + bit[j] {; ost := True} end;
      end;
    end;
  end;
  { если здесь ost = true , то у нас переполнение }
end.

Но я не понимаю, как он работает. Буду рад, если кто объяснит подробно.
И еще, если не сложно, приведите пример использования в Делфи, т.е как его реализовать, вызвать....

Ciber SLasH

Дата 26.10.2005, 20:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1813
Регистрация: 9.11.2004
Где: С.-Петербург

Репутация: нет
Всего: 67

Вообще-то конечно можно логические операции назвать "работой с битами", но фактически здесь работа происходит с байтами. Просто чтобы понять что происходит — переводи числа в двоичное представление, тогда явно увидешь что происходит с числом при выполнении логических операций.

Кстати в Delphi можно при пошаговом выполнении вызвать окно CPU (Ctrl+Alt+C), где будет чёткая картина того, как это всё работает (если хоть чуток знаком с ассмом, то разберёшся что происходит).

Гость_welt

Дата 26.10.2005, 20:38 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Конечно спасибо за такую общую информацию, но хотелось бы поконкретней!!!!!

Ciber SLasH

Дата 26.10.2005, 21:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1813
Регистрация: 9.11.2004
Где: С.-Петербург

Репутация: нет
Всего: 67

Поконкретней к этому примеру?
Тогда нужен полный код и постановку задачи, а то так нифига не ясно для чего всё это...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »