Conversion of decimal numbers into other number system and vice versa

ht

Conversion of decimal numbers into other number system and vice versa

1. Write a QBASIC program to convert any decimal number into octal number

CLS

p = 1

INPUT "please enter any number="; d

WHILE d <> 0

    r = d MOD 8

    o = o + p * r

    p = 10 * p

    d = d \ 8

WEND

PRINT " the required octal number is="; o

END

2.                Write a QBASIC program to convert any decimal number into binary number.

CLS

p = 1

INPUT "please enter any number="; d

WHILE d <> 0

    r = d MOD 2

    b = b+ p * r

    p = 10 * p

    d = d \ 2

WEND

PRINT " the required binary number is="; b

END

3.                Write a QBASIC program to convert any binary number into decimal number.

CLS

p = 1

INPUT "please enter any number="; b

WHILE b <> 0

    r = b MOD 10

    d = d + p * r

    p = 2 * p

    b = b \ 10

WEND

PRINT " the required decimal number is="; d

END

4.               Write a QBASIC program to c⊬onvert any octal number into decimal number.

CLS

p = 1

INPUT "please enter any octal number="; o

WHILE o <> 0

    r = o MOD 10

    d = d + p * r

    p = 8 * p

    o = o \ 10

WEND

PRINT " the required decimal number is="; d

END

Patterns Of Nepal in QBASIC

HOME

1. WRITE A PROGRAM TO PRINT THE FOLLOWING PATTERN

N

NE

NEP

NEPA

NEPAL

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END

SUB PATTERN (S$)

FOR I = 1 TO LEN(S$)

PRINT LEFT$(S$, I)

NEXT I

END SUB

2.WRITE A PROGRAM TO PRINT THE FOLLOWING PATTERN

L

AL

PAL

EPAL

NEPAL

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END

SUB PATTERN (S$)

FOR I = 1 TO LEN(S$)

PRINT RIGHT$(S$, I)

NEXT I

END SUB

3.WRITE A PROGRAM TO PRINT THE FOLLOWING PATTERN

NEPAL

EPAL

PAL

AL

L

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END

SUB PATTERN (S$)

FOR I = LEN(S$) TO 1 STEP - 1

PRINT RIGHT$(S$, I)

NEXT I

END SUB

4.           WRITE A PROGRAM  TO PRINT THE FOLLOWING PATTERN

NEPAL

NEPA

NEP

NE

N

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END

SUB PATTERN (S$)

FOR I = LEN(S$) TO 1 STEP - 1

PRINT LEFT$(S$, I)

NEXT I

END SUB

5.WRITE A PROGRAM  TO PRINT THE FOLLOWING PATTERN

N

E

P

A

L

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END

SUB PATTERN (S$)

FOR I = 1 TO LEN(S$)

PRINT MID$(S$, I, 1)

NEXT I

END SUB

6.           WRITE A PROGRAM  TO PRINT THE FOLLOWING PATTERN

L

A

P

E

N

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END

SUB PATTERN (S$)

FOR I = LEN(S$) TO 1 STEP -1

PRINT MID$(S$, I, 1)

NEXT I

END SUB

7.           WRITE A PROGRAM  TO PRINT THE FOLLOWING PATTERN

N

   E

      P

        A

            L

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END

SUB PATTERN (S$)

FOR I = 1 TO LEN(S$)

PRINT TAB(I); MID$(S$, I, 1)

NEXT I

END SUB

8. WRITE A PROGRAM  TO PRINT THE FOLLOWING PATTERN

L

   A

      P

        E

            N

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END

SUB PATTERN (S$)

B = 1

FOR I = LEN(S$) TO 1 STEP -1

PRINT TAB(B); MID$(S$, I, 1)

B = B + 1

NEXT I

END SUB

9. WRITE A PROGRAM  TO PRINT THE FOLLOWING PATTERN

NEPAL

EPA

P

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END

SUB PATTERN (S$)

A = 1

FOR I = LEN(S$) TO 1 STEP -2

PRINT MID$(S$, A, I)

A = A + 1

NEXT I

END SUB

10.       WRITE A PROGRAM  TO PRINT THE FOLLOWING PATTERN

P

EPA

NEPAL

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END

SUB PATTERN (S$)

A = 3

FOR I = 1 TO LEN(S$) STEP 2

PRINT MID$(S$, A, I)

A = A - 1

NEXT I

END SUB

11.        WRITE A PROGRAM  TO PRINT THE FOLLOWING PATTERN

NEPAL

   EPA

     P

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END

SUB PATTERN (S$)

A = 1

FOR I = LEN(S$) TO 1 STEP -2

PRINT TAB(A); MID$(S$, A, I)

A = A + 1

NEXT I

END SUB

12.       WRITE A PROGRAM  TO PRINT THE FOLLOWING PATTERN

   P

EPA

NEPAL

DECLARE SUB PATTERN (S$)

CLS

S$ = "NEPAL"

CALL PATTERN(S$)

END

SUB PATTERN (S$)

A = 3

FOR I = 1 TO LEN(S$) STEP 2

PRINT TAB(A); MID$(S$, A, I)

A = A - 1

NEXT I

END SUB