QBASIC problem, class7,8,9,10.(to find string, factorial, prime, odd, even, palindrome, armstrong, si, area, patterns)

 

QBASIC problem, class7,8,9,10.(to find the string, factorial, prime, odd, even, palindrome, Armstrong, si,  area, patterns)

1. WAP to print character in even position in a string,

CLS

INPUT"ENTER A STRING"; A$

FOR I = 1 TO LEN$ (A$)

IF I MOD 2 =0 THEN S$=S$+MID$ (A$,I,1)

NEXT I

PRINT "THE LETTER IN POSITION IS"; S$ 

ENDIF 

END

2. WAP to find factorial of a given number.

CLS 

F=1

INPUT "ENTER A NUMBER"; A 

FOR I = A  TO 1      STEP -1

F= F*I

NEXT I 

PRINT " THE FACTORIAL IS''; F

END

3. WAP is a program to check given number is prime or not.

CLS 

 INPUT '' ENTER A NUMBER'';A 

FOR I =1 TO A      STEP 1

IF A MOD I= 0  THEN C=C+1

NEXT I 

IF C=2 THEN

PRINT ''PRIME"

ELSE

 PRINT"NOT PRIME"

ENDIF 

END

4. WAP is a program to display all odd numbers between 100 to 200.

FOR I= 100 TO 200

IF I MOD 2= 1 THEN PRINT I

NEXT I 

PRINT I

END

5. WAP  to display multiplication table of 2.

CLS

FOR I= 1 TO 10

PRINT "2"; "*" ; I; "=" ; (2*I)

NEXT I

END

6. WAP to display a multiplication table of 1 to 10.

 CLS

FOR I= 1 TO 10

FOR J= 1 TO 10 

PRINT J; "*'' ;I; "=''; (J*I)

NEXT J 

NEXT I

END

7. WAP is a program to find if an entered number is even or odd.

CLS 

INPUT "ENTER A NUMBER"; A

IF A MOD 2=0   THEN

PRINT ''EVEN"

ELSE

PRINT"ODD"

ENDIF

END

8. WAP is a program to print the sum of even numbers from 2 to 10 using FOR-NEXT          LOOP.

CLS 

FOR I = 2 TO 10  STEP 2

S= S+ I

NEXT I 

PRINT S 

END

9. WAP to print an average of the square of odd numbers from 1 to 9 using WHILE-               WEND Loop.

CLS 

A=1

S=0

C=0

WHILE A<= 9

S=S+A^2

C=C+1

A=A+2

WEND

AVG=S/C

PRINT "AVERAGE IS''; AVG 

END

10. WAP to check if an entered number is palindrome or not.

CLS  

INPUT "ENTER A NUMBER";A 

B=A 

 WHILE A<>0

R=A MOD 10

 C=C*10 +R

A=A/10

IF B=C THEN 

PRINT "PALINDROME"

ELSE 

PRINT"NOT PALINDROME"

ENDIF 

END

11. WAP to find simple interest.

CLS

INPUT "ENTER A NUMBER "; P, T,R

SI= P*T*R/100

PRINT"SIMPLE INTEREST IS"; SI

END

12. WAP to print area of a rectangle.

CLS

INPUT ''ENTER A NUMBER";L,B

A=L*B

PRINT "AREA IS "'A 

END

13. WAP find print the series1,3,5,7,9.........up to 8th term USING FOR-NEXT.

CLS 

FOR I =1 TO 8   STEP2

PRINT I

NEXT I 

END

14. WAP a to print the following pattern:

P R O G R A M

P R O G R A

P R O G R

P R O G 

P R O 

P R 

P

CLS 

A$="PROGRAM"

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

PRINT LEFT$ (A$, I)

NEXT I

END

15. WAP to input an entered number is less than 200 or not.

CLS 

INPUT "ENTER A NUMBER "; A 

IF A<=200 THEN

PRINT '' NUMBER IS LESS THAN 100''

ELSE 

PRINT '' NUMBER IS NOT LESS THAN 200"

ENDIF

END

16. WAP to find the greater number between any two numbers.

CLS

INPUT "ENTER ANY TWO NUMBER "; A, B

IF A<B THEN

PRINT "B IS GREATER"

ELSE

PRINT "A IS GREATER O"

ENDIF

END

17. WAP to find whether a year is a leap year or not.

CLS

INPUT "ENTER A DAYS"; A

IF A=366   THEN

PRINT "A YEAR IS LEAP YEAR"

ELSE

PRINT "A YEAR IS NOT LEAP YEAR"

ENDIF

END

18. WAP to check if an entered number is Armstrong or not.

CLS 

INPUT "ENTER A NUMBER"; N

A=N

WHILE (N<>0)

R=N MOD 10

S=S+R^3

N=N/10

WEND

IF S=A THEN

PRINT "ARMSTRONG"

ELSE

PRINT "NOT ARMSTRONG"

ENDIF 

END

19. WAP a to print the following pattern:

1 2 3 4 5

1 2 3 4 

1 2 3

1 2

1

CLS

A=12345

FOR I = 1 TO 5

PRINT A

A=A/10

NEXT I

END

20. WAP a to print the following pattern:

5 5 5 5 5 

5 5 5 5 

5 5 5

5 5

5

CLS 

A=55555

FOR I =1 TO 5

PRINT A 

A= A/10

NEXT I 

END

Click here more...