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

[k1r1ch]

Вопрос такой: как перевести любой символ (число, букву, знак) в 8 чисел (ну то есть двоичная запись)?

[postal2]

Сначала перевести по таблице, а потом перевести число в двоичную систему
Чтобы перевести в простое (десятичное) число есть функция ord(h), где h - символ. С переводом в двоичную - в интернете много примеров.

[Stilet]

Формулу перевода из числа в двоичку знаешь?
Вот ord(символ) даст тебе число - его и переводи по формуле.

[SERG1980]

function IntToBin(n:Integer):String; 
begin 
Result:=''; 
while n<>0 do 
begin 
if n and 1=0 then Result:='0'+Result else Result:='1'+Result; 
n:=n shr 1; 
end; 

var s:string;

s:=IntToBin(ord('F'))//результат 1000110
end;

[postal2]

if n and 1=0 then

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

[k1r1ch]

2SERG1980: "//результат 1000110"
А почему цифр семь - символ это же 8 бит?
P.S.: Проверил. Так их выдается аж 11!
2Stilet: Я попытался написать, но у разных букв почему-то разное кол-во цифр !
Вот мой код:

function IntToBin(Input: integer): string;
var i: integer; WorkStr: string;
begin
  while Input > 1 do
    begin
      WorkStr := WorkStr + IntToStr(Input mod 2);
      Input := Input div 2;
      if Input = 1 then WorkStr := WorkStr + '1';
    end;
  for i := Length(WorkStr) - 1 downto 0 do
    Result := Result + WorkStr[i];
end;

[postal2]

Из десятичного числа в двоичное

function dec2bin(x:integer):string;
var s:string;
begin
  s:='';
  while x>0 do
  begin
     s:=chr(ord('0')+x mod 2)+s;
     x:=x div 2;
  end;
dec2bin:=s;
end;

Из двоичного числа в десятичное

function bintodec(s:string{двоичное число надо перевести в строку, пихать сюда символы не стоит}):integer;
var i,x:integer;
begin
  x:=0;
  for i:=1 to length(s) do
     x:=(x + ord(s[i])-$30) shl 1;
result:= x shr 1;
end;

Обратите внимание на входные параметры!!!

[k1r1ch]

Сейчас на англ. букву 7 цифр, на русскую 11 цифр, а как я понимаю, символ кодируется 8 битами, то есть 8 единиц или нулей. Я прав или я что-то напутал?

[postal2]

В таблице ansi английские буквы занимают ~50-70 позицию, русские - ~100-150 (не помню точно). Отсюда и разница в размере

[k1r1ch]

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