Рассмотрим на определение внутреннего представления числа.
Пример 16.2. Определить внутреннего представления целого числа.
Текст программы
Program op_byte2;
{Пример на определение внутреннего представления}
Uses crt;
Var
i,n :integer;
ch :char;
Begin
clrscr;
Repeat
Writeln('Введите целое число, для выхода из программы нажмите ESC');
Write('i='); Readln(i);
For n:=15 downto 0 do
if (i and (1 shl n)<>0) then write('1')
else write('0');
Writeln;
ch:=ReadKey;
Until ch=#27;
End.
Результат работы программы:
Введите целое число, для выхода из программы нажмите ESC
i=9
0000000000001001
Введите целое число, для выхода из программы нажмите ESC
i=-9
1111111111110111
