Примеры программ на языке QBASIC

Перевод числа в системы с основанием 2, 8 и 16


REM Перевод числа в системы с основанием 2, 8 и 16
CLS
INPUT "Введите положительное число : ", n&
a$ = OCT$(n&):  ' Перевод в восьмеричную систему
IF n& = 0 THEN
PRINT "Это число в любой системе равно 0"
STOP
END IF
PRINT "В двоичном представлении "; n&; "= ";
  B$ = LEFT$(a$, 1)
  SELECT CASE B$
    CASE "0": PRINT "";
    CASE "1": PRINT "1";
    CASE "2": PRINT "10";
    CASE "3": PRINT "11";
    CASE "4": PRINT "100";
    CASE "5": PRINT "101";
    CASE "6": PRINT "111";
    CASE "7": PRINT "111";
  END SELECT
FOR K = 2 TO LEN(a$)
  B$ = MID$(a$, K, 1)
  SELECT CASE B$
    CASE "0": PRINT "000";
    CASE "1": PRINT "001";
    CASE "2": PRINT "010";
    CASE "3": PRINT "011";
    CASE "4": PRINT "100";
    CASE "5": PRINT "101";
    CASE "6": PRINT "111";
    CASE "7": PRINT "111";
  END SELECT
NEXT K
PRINT
PRINT "В восьмеричном представлении "; n&; "= "; OCT$(n&)
PRINT "В шестнадцатеричном представлении "; n&; "= "; HEX$(n&)
END