p83 左移运算

//83 逻辑左移
program test;
var 
  j,k:byte;
begin
  randomize;
  j:=random(99);
  k:= j shl 1; //shift left ，即左移
  writeln(j,' ',k); //右边低位，不足部分，用0补足
  writeln(binstr(j,8));
  writeln(binstr(k,8));
  //
  k:=j << 2; //<<的作用，与shl相同，但容易记。这里是左移两位
  writeln(j,' ',k);
  writeln(binstr(j,8));
  writeln(binstr(k,8));  
end.