QBASIC CLASS IX

WRITE THE PROGRAMS FOR THE FOLLOWINGS

1. Write a program to input three different numbers and print their sum and product.

CLS

INPUT "Enter first number";n1

IPNUT "Enter second number";n2

IPNUT "Enter third number";n3

PRINT "SUM = ";n1+n2+n3

PRINT "PRODUCT = ";n1*n2*n3

END

2. WRITE A PROGRAM TO INPUT THE LENGTH AND PRINT THE PERIMETER OF A SQUARE

CLS

IPNUT "ENTER LENGTH";L

PRINT "PERIMETER = ";4*L

END

3. WRITE A PROGRAM TO INPNUT NEPALI CURRENCY AND CONVERT IT INTO INDIAN CURRENCY.

CLS

INPUT "ENTER NEPALI CURRENCY";N

PRINT "EQUIVALENT INDIAN CURRENCY =";N/1.6

END

4. WRITE A PROGRAM TO ENTER A NUMBER AND CHECK WHETHER TH NUMBER IS PALINDROME OR NOT.

CLS

INPUT "ENTER A NUMBR";N

T=N

WHILE N>0

                        R=N MOD 10

                        REV=REV*10+R

                        N=INT(N/10)

WEND

IF T=REV THEN

                        PRINT "THE NUMBER IS PALINDROME"

ELSE

                        PRINT "THE NUMBER IS NOT PALINDROME"

END IF

END

5. WRITE A PROGRAM TO INPUT A NUMBER AND CHECK WHETHER THE NUMBER IS ARMSTRONG OR NOT.

CLS

INPUT "ENTER A NUMBER";N

T=N

WHILE N>0

                        R = R MOD 10

                        ARM = ARM + R ^ 3

                        N = N \ 10

WEND

IF ARM = T THEN

                        PRINT "THE NUMBER IS ARMSTRONG"

ELSE

                        PRINT "THE NUMBER IS NOT ARMSTRONG"

END IF

END

6. WRITE A PROGRAM TO CHECK WHETHER A STRING IS PALINDROME OR NOT.

CLS

INPUT "ENTER A WORD";W$

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

                        REV$ = REV$ + MID$(W$,I,1)

NEXT I

IF W$ = REV$ THEN

                        PRINT "PALINDROME"

ELSE

                        PRINT "NOT PALINDROME"

END IF

END

7. WRITE A PROGRAM TO CHECK WHETHER AN INPUT NUMBER IS PRIME OR COMPOSITE.

CLS

INPUT "ENTER A NUMBER";N

FOR I = N -1 TO 2 STEP -1

                        IF N MOD I = 0 THEN

                                                PRIME = 0

                                                GO TO DOWN

                        ELSE

                                                PRIME =1

                        END OF

NEXT I

DOWN:

IF PRIME = 1 OR N =1 OR N =2 THEN

                        PRINT "PRIME"

ELSE

                        PRINT "COMPOSITE"

END IF

END

8. WRITE A PROGRAM TO DISPLAY "SWARNIM PUBLICATION PVT LTD" 10 TIMES USING WHILE....WEND

CLS

I = 1

WHILE I<=10

                        PRINT "SWARNIM PUBLICATION   PVT LTD"

                        I = I + 1

WEND

END

9. WRITE A PROGRAM TO PRINT FIRST 25 NUMBERS USING DO...LOOP

CLS

I = 2

DO

   PRINT I,

   I = I + 2

LOOP WHILE I <= 50

END

10. WRITE A PROGRAM TO FIND OUT FACTORIAL OF A GIVEN NUMBER USING FOR... NEXT

CLS

INPUT "ENTER A NUMBER";N

F = 1

FOR I = 1 TO N

   F = F * I

NEXT I

PRINT N;"! = ";F

END

11. WRITE A PROGRAM TO INPUT MARKS OF ALL YOUR SUBJECTS AND PRINT TOTAL, PERCENTAGE, RESULT AND DIVISION

CLS

INPUT "MARKS IN NEPALI";N

INPUT "MARKS IN SCIENCE";S

INPUT "MARKS IN SOCIAL";SO

INPUT "MARKS IN ENGLISH";E

INPUT "MARKS IN MATHS";M

INPUT "MARKS IN OPT";O

INPUT "MARKS IN HPE";H

INPUT "MARKS IN COMPUTER";C

IF N>=40 AND S>=40 AND SO>=40 AND E>=40 AND M>=40 AND O>=40 AND H>=40 AND C>=40 THEN

                        RESULT$="PASS"

ELSE

                        RESULT$="FAIL"

END IF

TOTAL = N + S + SO + E + M + O + H + C

PERCENT = (TOAL / 800) * 100

IF PERCENT >=80 THEN

                        DIV$ = "DISTINCTION"

ELSEIF PERCENT >=60 THEN

                        DIV$ = "FIRST"

ELSEIF PERCENT >= 45 THEN

                        DIV$ = "SECOND"

ELSE

                        DIV$ = "THIRD"

END IF

PRINT "TOTAL: ";TOTAL

PRINT "PERCENT: ";PERCENT

PRINT "DIVISION: ";DIV$

PRINT "RESULT: ";RESULT$

END

12. WRITE A PROGRAM TO FIND THE AREA OF A CUBE. [HINT: A=6L²]

CLS

INPUT "ENTER THE LENGTH";L

PRINT "AREA = "; 6 * L ^ 2

END

13. WRITE A PROGRAM TO FIND THE CURVED SURFACE AREA OF A SQUARE.[A=2πRH]

CLS

PI = 22/7

INPUT "ENTER THE RADIUS";R

INPUT "ENTER THE HEIGHT";H

PRINT "CURVED SURFACE AREA = ";2 * PI * R * H

END

14. WRITE A PROGRAM TO FIND THE TOTAL SURFACE AREA OF A CYLINDER.[A=2πR(R+H)]

CLS

PI = 22/7

INPUT "ENTER THE RADIUS OF BASE OF CYLINDER";R

INPUT "ENTER THE HEIGHT OF THE CYLINDER";H

PRINT "SURFACE AREA = "; 2 * PI * R * (R + H)

END

15. WRITE A PROGRAM TO CALCULATE THE DISTANCE TRAVELLED BY BODY. [S=UT+1/2AT²]

CLS

INPUT "ENTER THE INITIAL VELOCITY"; U

INPUT "ENTER TIME";T

INPUT "ENTER ACCELERATION";A

PRINT "DISTANCE TRAVELLED = "; U * T + (1/2) * A * T ^ 2

END

16. WRITE A PROGRAM TO INPUT THE TEMPERATURE IN FAHRENHEIT AND DISPLAY IN DEGREE CELSIUS.

CLS

INPUT "TEMPERATURE IN FAHRENHEIT";F

PRINT "TEMPERATURE IN CELCIUS = "; ((F - 32) * 5)/9

END

6. WRITE PROGRAM TO GENERATE FOLLOWING SERIES

A. 2, 4, 6, 8......... UP TO 10TH TERM

CLS

FOR I = 2 TO 20 STEP 2

PRINT I;

NEXT I

END

B. 1, 8, 27, 64, .......... UP TO 10TH TERM

CLS

FOR I = 1 TO 10

PRINT I^3;

NEXT I

END

C. 100, 98, 96, 94.... UP TO 10TH TERM

CLS

I = 1

A = 100

WHILE I<=10

PRINT A;

A = A - 2

I = I + 1

WEND

END

D. 1, 4, 9, ......... UP TO 10TH TERM

CLS

FOR I = 1 TO 10

PRINT I ^ 2;

NEXT I

END

E. 5, 25, 125 .......... UP TO 10TH TERM

CLS

FOR I = 1 TO 10

PRINT 5 ^ I;

NEXT I

END

F. 1, 2, 3, 6, 11, 20, 37.... UP TO 10TH TERM

CLS

A = 1

B = 2

C = 3

FOR I = 1 TO 10

D = A + B + C

SWAP A, B

SWAP B, C

SWAP C, D

PRINT D;

NEXT I

END

G. 5, 16, 8, 4, 2, 1, 4, 2, 1, 4

CLS

A = 5

FOR I = 1 TO 10

PRINT A;

IF A MOD 2 = 0 THEN

A = A \ 2

ELSE

A = A * 3 + 1

END IF

NEXT

END

H. 66666, 6666, 666, 66, 6.

CLS

A = 66666

FOR I = 1 TO 5

PRINT A;

A = A \ 10

NEXT I

END

I. 2, 8, 18, 32, ........ UP TO 10TH TERM

CLS

A = 2

B = 6

FOR I 1 TO 10

PRINT A;

A = A + B

B = B + 4

NEXT I

END

J. 7, 22, 11, 34, 17, 52, 26, 13, 40, 20.

CLS

A = 7

FOR I = 1 TO 10

PRINT A;

IF A MOD 2 = 0 THEN

A = A \ 2

ELSE

A = A * 3 + 1

END IF

NEXT I

END

K. 1/2, 2/3, 3/4, ...... UP TO 10TH TERM

CLS

FOR I = 1 TO 10

PRINT I; "/"; I + 1;

NEXT I

END

7. WRITE A PROGRAM TO DISPLAY THE GICEN OUTPUT.

A. 54321

   4321

   321

   21

   1

CLS

FOR I = 5 TO 1 STEP -1

FOR J = I TO 1 STEP -1

PRINT J;

NEXT J

PRINT

NEXT I

END

B. 11111

   2222

   333

   44

   5

CLS

FOR I = 1 TO 5

FOR J = 5 TO I STEP -1

PRINT I;

NEXT J

PRINT

NEXT I

END

C. 5

   54

   543

   5432

   54321

CLS

FOR I = 5 TO 1 STEP -1

FOR J = 5 TO I STEP -1

PRINT J;

NEXT J

PRINT

NEXT I

END

D. 1

   13

   135

   1357

CLS

FOR I = 1 TO 7 STEP 2

FOR J = 1 TO I STEP 2

PRINT J;

NEXT J

PRINT

NEXT I

END

E. 1 2 3

   2 3 4

   3 4 5

   4 5 6

   5 6 7

CLS

FOR I = 0 TO 4

FOR J = 1 TO 3

PRINT I +J;

NEXT J

PRINT

NEXT I

END

F. 1

   33

   555

   7777

CLS

FOR I = 1 TO 7 STEP 2

FOR J = 1 TO I STEP 2

PRINT I;

NEXT J

PRINT

NEXT I

END