Расшифровка кода

[Rid]

Сообщение от trandafyr

мне кто нить поможет?

извени пожалуйста,но тут как бы про прогинг,поищи в нете!!!

[Alex Cones]

Вообще не понятно, что там делает (а). Вот тебе перевод из систем счисления: http://www.excode.ru/art5629p5.html

[Rid]

жалко)))я прогу давно сделал сам,мне просто оч. интересовала,эта форма записи, вот целый код из примера!!!

Program test_1 ;

var x1: s h o r t i n t ;

procedure PrintByte (a: byte) ;
var i,t,r: byte;
begin
for i:=7 downto 0 do
begin
r:=a shl ( 7 - i) ;
t : = r shr 7 ;
write ( t );
end;
end;

procedure PrintVar (var a; size: word) ;

type t_bytes=array [1..8] of byte;

var bytes:t_bytes;

begin
for i:=size downto 1 do
begin
r : = t _ b y t e s (a) [ i ] ;
bytes [ i ] : = r ;
PrintByte (bytes [ i ] );
end;
end;

begin
w r i t e l n ( ' i n p u t s h o r t i n t : ');
readln (x1) ;
PrintVar (x1, sizeof (shortint) ) ;
readln;
end.

[Serge_Bliznykov]

то, что выделено жирным, означает явное указание (или явное привидение) типа переменной.
Обратите внимание, что переменная a передаётся в процедуру без указания типа... теперь, что работать с ней можно (нужно) указать, что с ней собственно делать.
Так вот, запись t_array(a) означает, что это переменная является типом T_ARRAY (т.е. представляет собой массив из восьми байт). к любому байту можно обратиться через индекс [i]
т.е. запись r := t_array(a)[i]
эквивалентна

var a:t_array;
...
r := a[i]

[Rid]

Спасибо огромное!!!!Буду дальше свои познания повышать