Символ в двоичный код

[Stilet]

Все чертовски просто до безобразия

var e,k,i:integer;b:byte;s:string;
begin
 b:=ord('c');
 for i:=1 to 8 do begin
  str(b and 1,s);
  write(s);
  b:=b shr 1;
 end;
 readln;
end.

Убедись и проставься

она говорила что типо например у Q и у Й один код в 8 цифр??

Мож в ДОСе и было так, но не в винде

[k1r1ch]

Тогда это немного не то... Но все равно спасибо!

[SERG1980]

Сообщение от postal2

if n and 1=0 then

Не понял - а это когда 1 будет равен 0?!

маленько булеву алгебру посмотрите и всё будет понятно

1 and 1=1
1 and 0=0
тем самым проверяем если бит равен единице то......+'1'

[SERG1980]

А почему цифр семь - символ это же 8 бит?

а какой смысл в старший разряд всегда ноль писать 1000110=01000110
посмотрите виндос калькулятор, он тоже этот ноль не выведет

[Alex Cones]

Ну если так хочется, то перед выводом добавляйте нули:

SX:=IntToStr(R);
SX := StringOfChar('0', 8-Length(SX)) + SX;

Из 1001 получится 00001001 и пр.