История изменений
Исправление madcore, (текущая версия) :
Да что там может быть неудобного? Указатели, они и в Африке указатели.
var a:array[0..127] of word;
b:^byte;
c:array[0..255] of byte absolute a;
...
b:=@a;
inc(b);
a[0]:=random(65535);
if (b^ = c[1] and c[1] = a[0] shr 8 and c[1]=mem[seg(a):ofs(a)]+1) writeln("you know you rigth");
Исходная версия madcore, :
Да что там может быть неудобного? Указатели, они и в Африке указатели.
var a:array[0..127] of word;
b:^byte;
c:array[0..255] of byte absolute a;
...
b:=@a;
inc(b);
a[0]:=random(65535);
if (b^ = c[1] and c[1] = a[0] shr 8 and c[1]=mem[seg(a):ofs(a)]+1) writeln("you now you rigth");