Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Побитовая обработка данных

Автор: Vania 16.11.2006 22:41

Если у кого есть идеи, поделитесь пожалуйста:
1)Выполнить задание, используя побитовую обработку структур данных. За-дано натуральное число в формате word. Вывести на экран битовое представле-ние в ЭВМ этого числа.


Автор: klem4 16.11.2006 22:59

Поиск -> Системы счисления

Автор: .::tsalik::. 19.11.2006 17:32

Код

program _WordToBin_;

uses
  Crt;

const
  MaxWord: Word = 65535;

var
  Number, Marker: Word;

begin
  ClrScr;
  WriteLn; Write('Number: '); Read(Number); WriteLn;
  Marker := MaxWord shl 15;
  while Marker <> 0 do
       begin
         if Marker and Number <> 0 then
           Write(1)
         else
           Write(0);
         Marker := Marker shr 1;
       end;
  ReadKey
end.


Прога как раз использует особенности двоичного представления.
Проверки допиши сам.

Автор: Vania 20.11.2006 23:54

Круто!
Спасибо!