Výpis, absolute – Pascal – Fórum – Programujte.com

Zdravím,

tento skript by měl vypsat hodnotu 258, pokud si ho zkusím spustit, tak vypíše nulu. Zajímalo by mě jak toho docílit, aniž bych měnil kód. Jediné co je možné dopsat, je nějakou knihovu. Děkuji za pomoc.

type ta = array [-5..+15] of byte;

var i:byte; xa:ta; xb:word absolute xa[-2];

begin 
	for i:=-5 to +15 do xa[i]:=abs(i); 
	writeln(xb); 
end.

xa je pole bytů. v xa[-2] je 2 a v xa[-1] je 1.
xb je dvoubytová proměnná na adrese xa[-2].
hodnota xb je 258 (0x0102).

Mělo by to fungovat, tak jak čekáš. V čem to spouštíš?

děkuji, freepascal z freepascal.org

A jak si prosím tě získal to haxadecimální číslo 0x0102, jakoby jak funguje ten princip převádění, když mám byte a vkládám to do word. Díky moc.

Ten postup je hodně nestandardní. Normálně se takové věci dělají takto:

type ta = array [-5..+15] of byte;

var i:byte; xa:ta; xb:^word;

begin
for i:=-5 to +15 do xa[i]:=abs(i);

xb:=@xa[-2];    
writeln(xb^);
end.