QBasic array program to delete dublicate/repeat number

CLS
DIM n%(10), i%, p%, k%
PRINT "enter ten number"
FOR i = 1 TO 10
    INPUT N(i)
NEXT
k = 1

FOR i = 1 TO 10
    FOR J = i + 1 TO 10
        IF N(i) = N(J) THEN
            N(i) = N(i) - N(i)
        END IF
    NEXT
NEXT
FOR i = 1 TO 10
    IF N(i) < > 0 THEN
        N(k) = N(i)
        k = k + 1
    END IF
NEXT
p = k - 1
FOR i = 1 TO p
    IF N(i) < > 0 THEN
        PRINT N(k)
    END IF
NEXT

QBasic array program to delete dublicate/repeat number

CLS
DIM n%(10), i%, l%, k%
PRINT "enter ten number"
FOR i = 1 TO 10
    INPUT N(i)
NEXT
k = 1

FOR i = 1 TO 10
    FOR J = i + 1 TO 10
        IF N(i) = N(J) THEN
            N(i) = N(i) - N(i)
        END IF
    NEXT
NEXT
FOR i = 1 TO 10
    IF N(i) < > 0 THEN
        N(k) = N(i)
        k = k + 1
    END IF
NEXT
l = k - 1
FOR k = 1 TO l
    IF N(k) < > 0 THEN
        PRINT N(k)
    END IF
NEXT

QBasic array program to delete dublicate/repeat number

CLS
DIM n%(10), i%, l%, k%
PRINT "enter ten number"
FOR i = 1 TO 10
    INPUT N(i)
NEXT
k = 1

FOR i = 1 TO 10
    FOR J = i + 1 TO 10
        IF N(i) = N(J) THEN
            N(i) = N(i) - N(i)
        END IF
    NEXT
NEXT
FOR i = 1 TO 10
    IF N(i) < > 0 THEN
        N(k) = N(i)
        k = k + 1
    END IF
NEXT
l = k - 1
FOR k = 1 TO l
    IF N(k) < > 0 THEN
        PRINT N(k)
    END IF
NEXT

QBasic array program to delete dublicate/reap

CLS
DIM n%(10), i%, l%, k%
PRINT "enter ten number"
FOR i = 1 TO 10
    INPUT N(i)
NEXT
k = 1

FOR i = 1 TO 10
    FOR J = i + 1 TO 10
        IF N(i) = N(J) THEN
            N(i) = N(i) - N(i)
        END IF
    NEXT
NEXT
FOR i = 1 TO 10
    IF N(i) <> 0 THEN
        N(k) = N(i)
        k = k + 1
    END IF
NEXT
l = k - 1
FOR k = 1 TO l
    IF N(k) <> 0 THEN
        PRINT N(k)
    END IF
NEXT

QBasic array program to

CLS
DIM n%(10), i%, l%, k%
PRINT "enter ten number"
FOR i = 1 TO 10
    INPUT N(i)
NEXT
k = 1

FOR i = 1 TO 10
    FOR J = i + 1 TO 10
        IF N(i) = N(J) THEN
            N(i) = N(i) - N(i)
        END IF
    NEXT
NEXT
FOR i = 1 TO 10
    IF N(i) <> 0 THEN
        N(k) = N(i)
        k = k + 1
    END IF
NEXT
l = k - 1
FOR k = 1 TO l
    IF N(k) <> 0 THEN
        PRINT N(k)
    END IF
NEXT

Qbasic program to check PAN number is valid or not

CLS
    DIM P AS STRING , N% , C% , T% , C1% , C2%
         
    INPUT "ENTER PAN NUMBER"; P$
    P$ = UCASE$(P$)
    IF LEN(P$) = 10 THEN
        FOR T = 1 TO 5
            G$ = MID$(P$, T, 1)
            N = ASC(G$)
            IF (N >= 65 AND N <= 90) OR (N >= 97 AND N <= 122) THEN
                C = C + 1
            END IF
        NEXT
        FOR T = 6 TO 9
            G$ = MID$(P$, T, 1)
            N = ASC(G$)
            IF (N >= 48 AND N <= 57) THEN
                C1 = C1 + 1
            END IF
        NEXT

        FOR T = 10 TO 10
            G$ = MID$(P$, T, 1)
            N = ASC(G$)
            IF (N >= 65 AND N <= 90) OR (N >= 97 AND N <= 122) THEN
                C2 = C2 + 1
            END IF
        NEXT
    ELSE
        PRINT "INVALID PAN NUMBER"
        END
    END IF
    IF C = 5 AND C1 = 4 AND C2 = 1 THEN
        PRINT "VALID PAN CARD"
    ELSE
        PRINT "INVALID PAN NUMBER"
    END IF

END

qbasic program to print square star

INPUT"ENTER TERM OF STAR";N
FOR I = 1 TO N
    FOR J = 1 TO N
        IF I = 1 OR I = N OR J = 1 OR J = N THEN
            PRINT " *";
        ELSE
            PRINT "  ";
        END IF
    NEXT
    PRINT
NEXT

Program in qbasic to check amicable number

CLS
INPUT "ENTER FIRST NUMBER"; A
INPUT "ENTER SECOND NUMBER"; B

FOR I = 1 TO A - 1
    IF A MOD I = 0 THEN
        S = S + I
    END IF
NEXT

FOR J = 1 TO B - 1
    IF B MOD J = 0 THEN
        S1 = S1 + J
    END IF
NEXT

IF S1 = A AND S = B THEN
    PRINT "ENTER NUMBER IS AMICABLE"
ELSE
    PRINT "ENTER NUMBER IS NOT AMICABLE"
END IF

QBASIC PROGRAM TO CHANGE DECIMAL TO BINARY

DIM C%, N%, D%, I%
INPUT N
C = 1
WHILE N > 0
    D = N MOD 2
    N(C) = D
    N = N \ 2
    C = C + 1
WEND
I = C - 1
PRINT"BINARY ="
WHILE I > 0
    PRINT N(I);
    I = I - 1
WEND

program in qbasic to check palindrome number

CLS
DIM N AS INTEGER, NUM AS INTEGER, D AS INTEGER, R AS INTEGER
R = 0

INPUT "ENTER A NUMBER"; N
NUM = N

WHILE N > 0
    D = N MOD 10
    R = R * 10 + D
    N = N \ 10
WEND

IF NUM = R THEN
    PRINT "ENTERED NUMBER IS PALINDROME NUMBER"
ELSE
    PRINT "ENTERED NUMBER IS NOT PALINDROME NUMBER"
END IF

END

Array program in qbasic to insert a number

CLS
DIM N(11) AS INTEGER,A%,P%,I%
PRINT "ENTER TEN NUMBER"
FOR I = 1 TO 10
    INPUT N(I)
NEXT

INPUT "ENTER NUMBER WHICH YOU WANT TO INSERT"; A
INPUT "ENTER THE POSITION (WITHIN 10)"; P
FOR I = 10 TO P STEP -1
    N(I + 1) = N(I)
NEXT
N(P) = A

FOR I = 1 TO 11
    PRINT N(I)
NEXT

note:-you can increase the number of digit during input

Qbasic program to find sum of odd and even digit position

CLS
DIM N,D,R,C ,E,O AS INTEGER
R=0
E=0
C=0
INPUT"ENTER ANY NUMBER";N

' TO REVERSE THE ENTER NUMBER
WHILE N>0
       D=N MOD 10
       R=R * 10 + D
       N=N \ 10
WEND

'TO FIND THE SUM OF POSITION

WHILE R>0
D=R MOD 10
C= C + 1
   IF C MOD 2=0 THEN
         E=E+C
   ELSE
         O=O+C
   END IF
R=R\10
WEND

PRINT"SUM OF EVEN POSITION =";E
PRINT"SUM OF ODD POSITION =";O

END

Qbasic program to check armstrong number

CLS
DIM N%,NUM%,D%,A%
INPUT"ENTER ANY NUMBER";N
NUM=N
WHILE N > 0
D = N MOD 10
A = A + D ^ 3
N=N\10
WEND

IF A=NUM THEN
    PRINT"ARMSTRONG NUMBER"
ELSE
  PRINT"NOT ARMSTRONG NUMBER"
END IF

QBASIC PROGRAM TO CHECK STRONG NUMBER

CLS
DIM N AS INTEGER,NUM AS INTEGER,D AS INTEGER,S AS INTEGER

INPUT"ENTER ANY NUMBER";N
NUM=N
F=1
WHILE N>0
D=N MOD 10
    WHILE D>0
      F=F*D
      D=D-1
    WEND
S=S+F
F=1
N=N\10
WEND

IF S=NUM THEN
    PRINT"STRONG NUMBER"
ELSE
    PRINT"NOT STRONG NUMBER"
END IF

END

Program in qbasic to check binary or not

CLS
DIM N AS INTEGER,D AS INTEGER
INPUT"ENTER ANY NUMBER";N
WHILE N>0

D=N MOD 10

IF D< >0 THEN
       IF D< >1 THEN
             PRINT"NOT BINARY NUMBER"
             END
       END IF
END IF

WEND
PRINT"BINARY NUMBER"
END