new Qb

1.        WAP a program to generate series 100,98,96…….2

Ans.                                CLS

PRINT "NUMBER OF SERIES:”

PRINT

FOR E = 100 TO 2 STEP - 2

PRINT; E; “; “;

NEXT E

END

ALTERNET (Increase Order)

Ans.                        CLS

                                PRINT "NUMBER OF SERIES:"

                                PRINT

                                FOR E = 2 TO 100 STEP 2

                                PRINT; E; " , " ;

                                NEXT E

                                END

2.        WAP to print only even number from any ten numbers given by users.

Ans.                        CLS

N = 2

FOR I= 1 TO 10 STEP 1

PRINT N;

N = N + 2

NEXT I

END

3.        WAP a program to print following output.

a.       C

CO

COM

COMP

COMPU

COMPUT

COMPUTE

COMPUTER

Ans.                        CLS

                                A$ = "COMPUTER"

                                FOR I = 1 TO LEN(A$)

                                PRINT LEFT$(A$,I)

                                NEXT I

                                END

b.       1 2 3 4 5 6

1 2 3 4 5

1 2 3 4

1 2 3

1 2

1

Ans.                        CLS

                                FOR I = 6 TO 1 STEP – 1

                                FOR J = 1 TO I

`                               PRINT J;

                                NEXT

                                PRINT

                                NEXT

                                END

4.        WAP count even & odd number form following given number sets.

14,15,23,18,20,27,31,28,51,24,17,25,81,99,71,72,88,85,74

Ans.                        CLS

INPUT" ENTER  NUMBER"; N

IF N MOD 2=0 THEN

PRINT"EVEN NUMBER"

ELSE

PRINT"ODD NUMBER"

END IF

END

5.        WAP  to print prime numbers from  1 to 100

Ans.        Cls

For i = 1 to 100

Flag = 0

For j = 2 to i / 2

r = i mod j

If r = 0 then

Flag = 1

Exit for

End if

Next j

If flag = 0 then

Print I;

End if

Next i

End

6.        WAP to  calculate factorial of  any number

Ans.                                CLS

PRINT “FACTORIAL NUMBER”

                                F=1

                                INPUT “ENTER A NUMBER”;N

                                WHILE N>=1

                                F=F*N

                                N=N-1

                                WEND

                                PRINT “Factorial number is “; f

                                End

7.        WAP to calculate  tax of salary and the basis of following tax rate

Up to 5000                             10%

5001 to 10000                        12%

10001 to 15000                      14%

15001 and above 15%

Ans.                        CLS

INPUT “ENTER THE AVERAGE AMOUNT”; P

IF P>=0 AND P<=5000 THEN

D=P*.10

ELSE IF P>=5001 AND P<=10000 THEN

D=P*.12

ELSE IF P>=10001 AND P<=15000 THEN

D=P*.14

ELSE IF P>=15001 THEN

D=P*.15

END IF

V=(P-D*13/100)

T=P-D+V

PRINT “TOTAL AMOUNT IS”; T, ““

END

8.        WAP to print greatest number of among 10.

Ans.                                CLS

DIM A (10)

FOR I= 1 TO 10

INPUT A (I)

NEXT I

S= A (I)

T=A (I)

FOR I= 2 TO 10

IF A (I)>T THEN T=A (I)

NEXT I

PRINT “GREATEST NUMBER =”; T

END

9.        WAP to print ASCII value of C,O,M,P,U,T,E,R.

Ans.     CLS

INPUT “ENTER ANY CHARACTER” ; CH$

PRINT “THE ASCII VALUE OF “; CH$ “IS”; AS(CH$)

END

C=67,    O=79 ,        M=77,      P=80,      U=85,      T=84, E=69,    R=82

10.     WAP to print ASCII character of  78, 80, 90, 65, 68.

Ans.                CLS

PRINT CH$(78)               N             PRINT CH$(80)       P

PRINT CH$(90)               Z              PRINT CH$(65)       A

PRINT CH$(68)               D