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