Computer Studies For Class IX (Science) and X (Arts /General /Humanities Group) - Practical No.3

Go To Index

Practical No. 3: W.A.P. to calculate the SQUARE and CUBE of first ten natural numbers.

10  CLS
20  PRINT “NUMBERS”, “SQUARE”, “CUBE”
30  PRINT “~~~~~~~~~”, “~~~~~~~~”, “~~~~”
40  FOR N = 1 TO 10
50  PRINT   N, N^2, N^3
60  NEXT  N
70  PRINT  STRING$(35, “~”)
80  END
RUN

OR

10 REM CALCULATE SQUARE AND CUBE OF FIRST TEN NATURAL NUMBERS
20 CLS
30 PRINT TAB(5) "NUMBERS", "SQUARES", "CUBE"
40 FOR N = 1 TO 10
50 LET S = N^2
60 LET C = N^3
70 PRINT TAB(5) N, S, C
80 NEXT N
90 END



OUTPUT

NUMBERS  SQUARES  CUBE
1        1         1
2        4         8
3        9         27
4        16        64
5        25        125
6        36        216
7        49        343
8        64        512
9        81        729
10       100       1000

Computer Studies For Class IX (Science) and X (Arts /General /Humanities Group) - Practical No.1

Go To Index

Practical No. 1: W.A.P. to PRINT your name by using IF......THEN

10 CLS
20 Input "Enter your Name",N$
30 Let A = 0
40 Let A = A + 1
50 Print "Name",N$
60 If A=10 then END
70 Goto 40
RUN

OR

10 REM PRINT YOUR NAME TEN TIME BY USING IF..... THEN STATEMENT
20 CLS
30 INPUT "ENTER YOUR NAME:";N$
40 PRINT TAB(10) N$
50 LET A = A + 1
60 IF A = 10 THEN GOTO 70 ELSE GOTO 40
70 END
RUN

OUTPUT

GW-BASIC
GW-BASIC
GW-BASIC
GW-BASIC
GW-BASIC
GW-BASIC
GW-BASIC
GW-BASIC
GW-BASIC
GW-BASIC

Computer Studies For Class IX (Science) and X (Arts /General /Humanities Group) - Practical No.12

Go To Index

Practical No. 12: W.A.P. to calculate the sum of first ten natural numbers.

10 CLS
20 For A=1 to 10 Step 1
30 Let S=S+A
40 Print A,S
50 Next A
RUN

Computer Studies For Class IX (Science) and X (Arts /General /Humanities Group) - Practical No.2

Go To Index

Practical No. 2:  W.A.P. to PRINT your name by using For......NEXT

10 CLS
20 Input "Enter your Name",N$
30 For A=1 to 10 Step 1
40 Print "Name",N$
50 Next A
RUN

Computer Studies For Class IX (Science) and X (Arts /General /Humanities Group) - Practical No.9

Go To Index

Practical No. 9: W.A.P. to find out the number of male and female out of 10 students. Where the inputted data is Name and Gender.

10 CLS
20 Let A=0
30 Let A=A+1
40 Input "Enter your Name",N$
50 Input "Enter your Gender",G$
60 If G$="M" then M=M+1
70 If G$="F" then F=F+1
80 If A=10 then Go to Else go to 30
90 Print "Number of Male",M
100 Print "Number of Female",F
110 END
RUN

Computer Studies For Class IX (Science) and X (Arts /General /Humanities Group) - Practical No.5

Go To Index

Practical No. 5: W.A.P. to prepare any multiplication table up till ten times.

10 CLS
20 Input"Enter any Multiplication table", M
30 Let A=0
40 Let A=A+1
50 Let B= M*A
60 Print M"*"A"="B
70 If A=10 then END
80  Go to 40
RUN

OR

10 CLS
20 Let A=0
30 Let A=A+1
40 Let B= 2*A
50 Print 2"*"A"="B
50 If A=10 then END
70  Go to 40
RUN

OUTPUT


2  *  1  =  2
2  *  2  =  4
2  *  3  =  6
2  *  4  =  8
2  *  5  =  10
2  *  6  =  12
2  *  7  =  14
2  *  8  =  16
2  *  9  =  18
2  *  10 =  20

Computer Studies For Class IX (Science) and X (Arts /General /Humanities Group) - Practical No.6

Go To Index

Practical No. 6: W.A.P. to generate the sequence of 3, 8, 13, 18, 23, 28 in ascending and descending order.

Ascending Order
10 CLS: Print Tab(25)"Sequence of number from 3 till 28"
20 Let A=-2
30 Let A=A+5
40 Print Tab(40) A
50 If A=28 then END
60  Go to 30
RUN

Descending Order
10 CLS: Print Tab(25)"Sequence of number from 3 till 28"
20 Let A=33
30 Let A=A+-
40 Print Tab(40)  A
If A=3 then END
60  Go to 30
RUN

Computer Studies For Class IX (Science) and X (Arts /General /Humanities Group) - Practical No.13

Go To Index

Practical No. 13: W.A.P. to prepare an employee salary sheet. Name, Designation, Basic salary, total deduction, total Allowances. Calculate NET Salary = Basic Salary + Total Allowance- Total Deduction.

10 CLS: Print TAB(28) "Employee Salary".
20 Print TAB(28) "*******"
30 Locate 7, 26: Input "Enter Name",N$
40 Locate 8, 26: Input "Enter Designation",D$
50 Locate 9, 26: Input "Enter Basic salary",BS
60 Locate 10, 26: Input "Total Allowance",TA
70 Locate 11, 26: Input "Total Deduction",TD
80 Let N$ = BS+TA-TD
90 CLS
100 Print TAB(26) "Name"TAB(37)N$
110 Print TAB(26) "Designation"TAB(37)D$
120 Print TAB(26) "Basic salary"TAB(37)BS
130 Print TAB(26) "Total Allowance"TAB(37)TA
140 Print TAB(26) "Total Deduction"TAB(37)TD
150 Print TAB(26) "Net Salary"TAB(37)NS
160 END
RUN

Computer Studies For Class IX (Science) and X (Arts /General /Humanities Group) - Practical No.8

Go To Index

Practical No. 8a: W.A.P. to convert dollars into rupees, where dollars rate is Rs.158.

10 CLS: Print TAB(28) "Conversion of Dollar into rupees".
20 Locate 7, 26: Input "Enter Number of Dollar",D
30 Let Rupees = Dollar*158
40 CLS
50 Print TAB(26) "Number of Dollar"TAB(37)D
60 Print TAB(26) "Rupees"TAB(37)Rupees
70 END
RUN

Practical No. 8b: W.A.P. to convert rupees into dollars, where dollars rate is Rs.158.

10 CLS: Print TAB(28) "Conversion of rupees into Dollar".
20 Locate 7, 26: Input "Enter Number of Rupees",R
30 Let Dollar = R/158
40 CLS
50 Print TAB(26) "Number of Rupees"TAB(37)R
60 Print TAB(26) "Dollar"TAB(37)Dollar
70 END
RUN

OR

10 REM CONVERT DOLLARS INTO RUPEES AND RUPEES INTO DOLLARS
20 REM WHERE THE RATE IS 1$ = Rs.60
30 CLS
40 PRINT "TO CONVERT DOLLARS INTO RUPEES"
50 INPUT "ENTER VALUE IN DOLLARS($) =:";D
60 LET R = D * 60
70 PRINT D, "DOLLARS", "="R, "RUPEES"
80 PRINT "TO CONVERT RUPEES INTO DOLLARS"
90 INPUT "ENTER VALUE IN RUPEES(Rs.) =:";R1
100 LET D1 = R1 / 60
110 PRINT R1, "RUPEES", "="D1, "DOLLARS"
120 END


OUTPUT

500 DOLLARS = 30000 RUPEES
30000 RUPEES = 500 DOLLARS

Computer Studies For Class IX (Science) and X (Arts /General /Humanities Group) - Practical No.10

Go To Index

Practical No. 10: W.A.P. to prepare an electricity bill. Where @ 1 unit=Rs.125.

10 CLS: Print TAB(28) "Electricity Bill"
20 Locate 7, 30: Input "Enter Meter no",M$
30 Locate 8, 30: Input "Enter Previous reading",P
40 Locate 9, 30: Input "Enter present reading",PR
50 Let UC = PR-P
60 Let AC = UC*125
70 CLS
80 Print TAB(30) "Meter no"TAB(37)M$
90 Print TAB(30) "Previous reading"TAB(37)P
100 Print TAB(30) "present reading"TAB(37)PR
110 Print TAB(30) "Unit Consumed"TAB(37)UC
120 Print TAB(30) "Account Charged"TAB(37)AC
130 END
RUN