home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / lang / pascal / 8428 < prev    next >
Encoding:
Internet Message Format  |  1993-01-22  |  799 b 
  1. Path: sparky!uunet!mcsun!news.funet.fi!uta!vehka.cs.uta.fi!csfraw
  2. From: csfraw@vehka.cs.uta.fi (Francis Akoto)
  3. Newsgroups: comp.lang.pascal
  4. Subject: help ??
  5. Message-ID: <8269@kielo.uta.fi>
  6. Date: 22 Jan 93 12:35:30 GMT
  7. Sender: news@uta.fi
  8. Reply-To: csfraw@vehka.cs.uta.fi (Francis Akoto)
  9. Distribution: world
  10. Organization: University of Tampere, Finland
  11. Lines: 24
  12. Nntp-Posting-Host: vehka
  13.  
  14. Can somebody please explain the code below
  15.  
  16. ( i.e can you write it in another way )
  17.  
  18. -----
  19. vi: integer ;
  20.  
  21.      if ( vi and 1) = 1 then
  22.     vi := vi shr 1;
  23.         ...............
  24.     ...............
  25.  
  26.  
  27.  
  28. for example : what happens if vi= 1 or vi = 2 etc will the if statment be true
  29. and what is "shr".
  30.  
  31.  
  32. thanks
  33. --
  34. gallows
  35.      Opinions are like assholes;
  36.      Everybody has one but nobody wants to look at the others.
  37.  
  38.