Advertisement
Guest User

Hexadecimal multiplication table program

a guest
Jul 23rd, 2018
177
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 0.58 KB | None | 0 0
  1. 10 REM OUTPUT of the multiplication table of 16 numbers
  2. 20 CLS:KEY OFF
  3. 30 LOCATE 1,10
  4. 40 PRINT "HEXADECIMAL MULTIPLICATION TABLE"
  5. 50 LOCATE 2,10
  6. 60 PRINT "Composition of N*M is at intersection"
  7. 70 LOCATE 3,10
  8. 80 PRINT "N-th row and M-th column"
  9. 90 REM header OUTPUT
  10. 100 LOCATE 5,10
  11. 110 FOR N=&H1 TO &HF
  12. 120 PRINT SPC(2);HEX$(N);
  13. 130 NEXT N
  14. 140 FOR N=&H1 TO &HF
  15. 150 LOCATE 6+N,7
  16. 160 PRINT HEX$(N);SPC(1)  Header
  17. 170 PRINT SPC(1); '1 space for alignment
  18. 180 REM OUTPUT of the N-th LINE.
  19. 190 FOR M=&H1 TO &HF
  20. 200 PRD=N*M
  21. 210 PRINT SPC(3-LEN(HEX$(PRD)));HEX$(PRD);
  22. 220 NEXT M:NEXT N
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement