Перевод в двоичный код (Pascal -> C++)

[МартинИ]

Надо перевести разные типы данных в двоичном представление. Есть написанный код на Паскале:

Program LAB1;
uses crt;
Procedure WriteByte(a : byte);
var i:integer;
begin
for i:=7 downto 0 do begin
if ((a shr i) and $01) <>0 then write('1')
else write('0');
end;
write(' ');
end;

type bytearr = array[1..100] of byte;
type intptr = ^integer;
var k,i:integer;
li:longing;
db:double;
str:string[10];
pint:intptr;
ipt:^intptr;
px:pointer;
bp:^bytearr;
iarr:array[1..5] of integer;

begin
clrscr;
li:=518;
px:=@li;
bp:=px;
writeln('4uslo v tupi LongInt : ',li);
for k:=1 to 4 do writebyte(bp^[k]);
writeln;
writeln;

db:=29.09;
px:=@db;
bp:=px;
writeln('4uslo v tupi Double : ',db:0:2);
for k:=1 to 8 do writebyte(bp^[k]);
writeln;
writeln;

str:='ABCD';
px:=Addr(str);
bp:=px;
writeln('slovo v tupi String :',str);
for k:=1 to 5 do writebyte(bp^[k]);
writeln;
readln;
end.

надо перевести на С++. Пошла от противного. Тупо стала переводить код, ну и тут возникло много ошибок

#include<iostream.h>
#include<stdio.h>
#include<conio.h>

char WriteByte(char a)
{
	int i;
	for(i=7;i>=0;i--)
	{
		if ((a>>i) && $01)!=0
			cout <<'1'<<endl
			else
			cout<<'0'<<endl;
	}
		cout<<' '<<endl;
	}
void main()
{
	
	int	k,i;
	long int li;
	double db;
	char str;
	int ipt;
	pointer px;
    char bp;


	 li=518;
	 px=@li;
	 bp=px;
	 for (k=1;k<=4;i++)
	 {
		 WriteByte(bp ^k);
	 cout<<endl;
	 }
}

если можно помогите, вот ошибки, которые выбивает:

Compiling...
111.cpp
g:\учеба\1111\111.cpp(10) : error C2065: '$01' : undeclared identifier
g:\учеба\1111\111.cpp(10) : error C2143: syntax error : missing ';' before '!='
g:\учеба\1111\111.cpp(25) : error C2065: 'pointer' : undeclared identifier
g:\учеба\1111\111.cpp(25) : error C2146: syntax error : missing ';' before identifier 'px'
g:\учеба\1111\111.cpp(25) : error C2065: 'px' : undeclared identifier
g:\учеба\1111\111.cpp(30) : error C2018: unknown character '0x40'
Error executing cl.exe.

111.obj - 6 error(s), 0 warning(s)

[netrino]

шестнадцатеричные числа пишутся не $01, a 0x01, после !=0 закройте скобку. && - логическая операция, побитовая просто &( (a>>i) & 0x1 ). В С++ тип pointer выражается иначе - звёздочкой

int* n; // - указатель на int
char* c; // - указатель на char

Операция взятия адреса не @, а &

int l;
int* n = &l;

Как такового типа строки в С++ нет, используют массив символов

char str[10] = "Hello"; // инициализировать часть массива символами H e e l l o \0. \0 - нулевой символ, терминатор строки в С
str[2] = 'd';

При этом последний символ - 0
Разыменование указателя по той же звёздочке

int l;
int* n = &l;
*n = 10; // l == 10

[Tusichka]

я последовала Вашим советам(за них большое спасибо).И у меня вознкла следующая проблема:

	 li=518;
	 px=&li;
	 bp=px;
	 for (k=1;k<=4;i++)
	 {
		 WriteByte(bp ^k);
	 cout<<endl;
	 }
}

вот с такой ошибкой:
cvbn.cpp
C:\Windows\System32\cvbn.cpp(31) : error C2440: '=' : cannot convert from 'void *' to 'char'
This conversion requires a reinterpret_cast, a C-style cast or function-style cast
Error executing cl.exe.

cvbn.exe - 1 error(s), 0 warning(s)

Как её можно исправить?Подскажите))

[netrino]

Наверное надо

for(k = 0; k < 4; k++)
{
    WriteByte(bp[k]);
}
cout << endl;

[Tusichka]

Ой,эт только случайно при наборе. Но ошибка та и осталась((((Что делать ?Скоко пробовала переработать не получается, объясните плиз)

[netrino]

Ну а вызов WriteByte точно также как у меня выглядит? Или всё же с шапочкой? Шапочка в С - аналог xor в Паскале. Покажите как сейчас выглядит код полностью

[Tusichka]

#include<iostream.h>
#include<stdio.h>
#include<conio.h>

char WriteByte(char a)
{
	int i;
	for(i=7;i>=0;i--)
	{
		if ((a>>i) &( 0x01!=0))
			cout <<'1'<<endl;
			else
			cout<<'0'<<endl;
	}
		cout<<' '<<endl;
	}
void main()
{
	
	int	k,i;
	long int li;
	double db;
	char str;
	int ipt;
	void *px;
    char bp;


	 li=518;
	 px=&li;
	 bp=px;
	 for (k=1;k<4;k++)
	 {
		 WriteByte(bp ^k);
	 cout<<endl;
	 }
}

У меня идёт с шапочкой потому что если ставлю [ ] оно к этому пристаёт.

[netrino]

ох... ) не надо писать шапочку )

#include <iostream.h>

void WriteByte(char a)
{
     int i;
   
     for(i = 128; i >= 0; i >>= 1) {
         if( a & i )
             cout << '1';
         else
             cout << '0';
     }
     cout << ' ';
}

void main()
{
    int i;
    long int li;
    char*  bp;

    li = 518;
    bp = (char*)&li;
    for(i = 0; i < sizeof(li); i++) {
        WriteByte(bp[i]);
        cout << endl;
    }
}

наверное так, не совсем уловил идею ваших деяний ) но моя идея должна быть ясна

[МартинИ]

вот рабочая версия

#include <iostream.h>
#include<conio.h>

void WriteByte(char a)
{
	int i;
	for(i=7;i>=0;i--)
	{
		if ((a>>i) &( 0x01!=0))
			cout <<'1';
			else
			cout<<'0';
	}
		cout<<' ';
	}
//в начале программы клацаем ентер
void main()
{
    int i;
    long int li;
    char*  bp;

    li = 518;
    bp = (char*)&li;
 
    for(i = 3; i >= 0; i--) //вводим і меньше на 1, чем байт в нужном типе данных
	{
        WriteByte(bp[i]);
        
    }
	getch();
}

netrino, у вас программа просто выводит кучу 0, окончания их я не дождалась))) но все равно спасибо за помощь))
Tusichka, с тебя кофе)))

[netrino]

Да, действительно ) Неправильно условие в for поставил и не заметил, стоило проверить перед тем как постить )

for(i = 128; i > 0; i >>= 1)
...