перевод в бинарный код онлайн

Ответ от Linus Torvald's[гуру]
1) создаем массив из колва символов.. . типа байт.
2) читаем 8 символов из файла. .
3) берем елемнт массива. .
проверяем 1 символ из файла
если 1 то включаем 1 бит еелемнта массива (байта) (функции chl chr битовые сдвиги) (так 8 раз пустые заполням 0)
4) так со всем массивом
5) потом заменяем коды в массиве их символами (можо и без этого (char(массив [елемент]) выведет символ) )
6)читаем текст

Ответ от Александр Осипов[гуру]
попробовал написать такую программу:
VAR x,y,z:real;
f:text;
c,p:byte;
s:string;
BEGIN
Assign(f,'dat.txt');
ReSet(f);
while not EOF(f)do
begin
readln(f,s);
c:=0;
p:=1;
while length(s)>0 do
begin
if s[length(s)]='1'then c:=c+p;
delete(s,length(s),1);
p:=p*2;
end;
write(chr(c));
end;
Close(f);
END.
Все получилось!
Работает в Pascal ABC из-за кодировки

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]