GW Basic

PRACTICAL-1

OBJECT: Write a generalized program to prepare Bio-data.

10  REM * PROGRAM TO PREPARE BIO-DATA *

20  CLS

30  INPUT  “ENTER YOUR GOOD NAME ------ ”; N$

40  INPUT  “ENTER YOUR FATHER’S NAME- ”; F$

50  INPUT  “ENTER YOUR SEX------------------- ”; S$

60  INPUT  “ENTER YOUR DATE OF BIRTH--- ”; D$

70  INPUT  “ENTER YOUR QUALIFICATION-- ”; Q$

60  INPUT  “ENTER YOUR RELIGION----------- ”; R$

70  INPUT  “ENTER YOUR NATIONALITY----- ”; NA$

80  CLS

90  PRINT  TAB(30)“B I O – D A T A”

100  PRINT  TAB(30)“--------------------”

110  PRINT

120  PRINT  TAB(20)“YOUR GOOD NAME ------ ”; N$

130  PRINT  TAB(20)“YOUR FATHER’S NAME- ”; F$

140  PRINT  TAB(20)“YOUR SEX------------------- ”; S$

150  PRINT  TAB(20)“YOUR DATE OF BIRTH--- ”; D$

160  PRINT  TAB(20)“YOUR QUALIFICATION-- ”; Q$

170  INPUT  TAB(20)“YOUR RELIGION----------- ”; R$

180  INPUT  TAB(20)“YOUR NATIONALITY----- ”;NA$

190  END

------------------------------------------------------------------------------------------------------------

PRACTICAL-2

OBJECT: Write a program to print your name ten times by using.

(a)  FOR-NEXT Statement              (b)  IF-THEN Statement

(a) By using FOR-NEXT Statement

10  REM * PROGRAM TO PRINT YOUR NAME TEN TIMES *

20  CLS

30  INPUT “ENTER YOUR GOOD NAME ========>”; N$

40  CLS

50  PRINT  TAB(25)“PRINTING OF NAME TEN TIMES”

60  PRINT  TAB(23)“BY USING FOR-NEXT STATEMENT”

70  PRINT  TAB(25)“~~~~~~~~~~~~~~~~~~~~~~~~~~~~~”

80  FOR  A = 1 TO 10

90  PRINT   TAB(38); A; N$

100  NEXT  A

110  END

(b) By using IF-THEN Statement

10  REM * PROGRAM TO PRINT YOUR NAME TEN TIMES *

20  CLS

30  INPUT “ENTER YOUR GOOD NAME ========>”; N$

40  CLS

50  PRINT  TAB(25)“PRINTING OF NAME TEN TIMES”

60  PRINT  TAB(25)“BY USING IF-THEN STATEMENT”

70  PRINT  TAB(25)“~~~~~~~~~~~~~~~~~~~~~~~~~~~~”

80  A = A + 1

90  PRINT   TAB(38); A; N$

100  IF A = 10 THEN END ELSE 80

110 END

------------------------------------------------------------------------------------------------------------

PRACTICAL-3

OBJECT: Write a program to calculate Square and Cube of first Ten Natural Numbers.

10  REM * PROGRAM TO CALCULATE SQUARE AND CUBES *

20  CLS

30  PRINT “NUMBERS”, “SQUARE”, “CUBE”

40  PRINT “~~~~~~~~~”, “~~~~~~~~”, “~~~~”

50  FOR N = 1 TO 10

60  PRINT   N, N^2, N^3

70  NEXT  N

80  PRINT  STRING$(35, “~”)

90  END

------------------------------------------------------------------------------------------------------------

PRACTICAL-4

OBJECT: Write a program to produce the sum of first Ten Natural Numbers.

10  REM * PROGRAM TO PRODUCE SUM OF NUMBERS *

20  CLS

30  PRINT “NUMBERS”

40  PRINT “~~~~~~~~~”

50  FOR N = 1  TO 10

60  SUM = SUM + N 

70  PRINT   N

80  NEXT  N

90  PRINT  TAB(30); “---------“

100  PRINT “SUM OF FIRST TEN NATURAL NUMBERS IS “;SUM

110  PRINT  TAB(30); “---------“

120 END

------------------------------------------------------------------------------------------------------------

PRACTICAL-5 

OBJECT: Write a program to the numbers 13,8,28,18,23,3  in  

(a)  Ascending Order              (b)  Descending Order

(a)  Ascending Order

10  REM * PROGRAM TO ARRANGE NUMBERS *

20  CLS

30  PRINT  TAB(25)“NUMBERS IN ASCENDING ORDER”

40  PRINT  TAB(25)“~~~~~~~~~~~~~~~~~~~~~~~~~~~~~”

50  FOR  A = 3 TO 28 STEP 5

60  PRINT   TAB(38); A

70  NEXT  A

80  PRINT  TAB(25) STRING$(26, “~”)
90  END

(b)  Descending Order

10  REM * PROGRAM TO ARRANGE NUMBERS *

20  CLS

30  PRINT  TAB(25)“NUMBERS IN DESCENDING ORDER”

40  PRINT  TAB(25)“~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~”

50  FOR  D = 28 TO 3 STEP -5

60  PRINT   TAB(38); D

70  NEXT  D

80  PRINT  TAB(25) STRING$(26, “~”)

90  END

------------------------------------------------------------------------------------------------------------

PRACTICAL-6 (a) 

OBJECT: Write a generalized program to prepare a Multiplication Table up till ten times.

10  REM * PROGRAM TO PREPARE MULTIPLICATION TABLE *

20  CLS

30  INPUT  “NUMBER FOR TABLE”; N

40  PRINT “TABLE OF ……………:”; N

50  PRINT

60  FOR  M = 1  TO 10

70  PRINT   N; “*”; M; “ = “; N * M

80  NEXT  M

90  END

------------------------------------------------------------------------------------------------------------

PRACTICAL-6 (b) 

OBJECT: Write a generalized program to find the Average of given four numbers.

10  REM * PROGRAM TO FIND THE AVERAGE OF NUMBERS *

20  CLS

30  INPUT  “ENTER FIRST NUMBER----------- ”; N1

40  INPUT  “ENTER SECOND NUMBER------- ”; N2

50  INPUT  “ENTER THIRD NUMBER---------- ”; N3

60  INPUT  “ENTER FOURTH NUMBER------- ”; N4

70  AVG = (N1 + N2 + N3 + N4) / 4

80  PRINT  TAB(25)“FIRST NUMBER--------------- ”; N1

90  PRINT  TAB(25)“SECOND NUMBER----------- ”; N2

100  PRINT  TAB(25)“THIRD NUMBER-------------- ”; N3

110  PRINT  TAB(25)“FOURTH NUMBER----------- ”; N4

120  PRINT 

130  PRINT  TAB(25)“AVERAGE OF FOUR  NUMBERS----“; AVG

140  END

------------------------------------------------------------------------------------------------------------

PRACTICAL-7 

OBJECT: Write a generalized program to Convert.

(a) Fahrenheit into Centigrade        (b) Centigrade into Fahrenheit

(a) Fahrenheit into Centigrade

10  REM * PROGRAM TO CONVERT TEMPERATURE *

20  CLS

30  INPUT  “ENTER TEMPERATURE IN FAHRENHEIT___”; F

40  C = 5 / 9 * (F-32)

50  CLS

60  PRINT ; F; “FAHRENHEIT IS EQUAL TO”; C; “CENTIGRADE”

70  END

 (b) Centigrade into Fahrenheit

10  REM * PROGRAM TO CONVERT TEMPERATURE *

20  CLS

30  INPUT  “ENTER TEMPERATURE IN CENTIGRADE ___”; C

40  F = 9 / 5 * C + 32

50  CLS

60  PRINT ; C; “CENTIGRADE IS EQUAL TO”; F; “FAHRENHEIT
70  END

------------------------------------------------------------------------------------------------------------

PRACTICAL-8 

OBJECT: Write a generalized program to prepare Electricity Bill.

10  REM * PROGRAM TO PREPARE ELECTRICITY BILL *

20  CLS

30  INPUT  “ENTER CONSUMER NAME ------ ”; CN$

40  INPUT  “ENTER METER NUMBER--------- ”; MN$

50  INPUT  “ENTER PREVIOUS READING---- ”; PV

60  INPUT  “ENTER PRESENT READING------ ”; PR

70  UC = PR- PV

80  AMT = UC * 1.25

90  CLS

100  PRINT  TAB(30)“ELECTRICITY BILL”

110  PRINT  TAB(30)“-------------------------- ”

120  PRINT

130  PRINT  TAB(20)“CONSUMER NAME------ ”; CN$

140  PRINT  TAB(20)“METER  NUMBER-------- ”; MN$

150  PRINT  TAB(20)“PREVIOUS READING----“; PV

160  PRINT  TAB(20)“PRESENT READING------“; PR

170  PRINT  : PRINT

180  PRINT  TAB(20) “UNIT CONSUMED----------“; UC

190  PRINT  TAB(20) “AMOUNT CHARGED------“; AMT

200  END

------------------------------------------------------------------------------------------------------------

PRACTICAL-9

OBJECT: Write a generalized program to prepare an Employee’s Salary Sheet.

10  REM * PROGRAM TO PREPARE SALARY SHEET *

20  CLS

30  INPUT  “ENTER EMPLOYEE’S NAME ---- ”; EN$

40  INPUT  “ENTER DESIGNATION------------ ”; D$

50  INPUT  “ENTER BASIC SALARY----------- ”; BS

60  INPUT  “ENTER TOTAL ALLOWANCES-- ”; TA

70  INPUT  “ENTER TOTAL DEDUCTION----- ”; TD

80  GS = BS+ TA

90  NS = GS- TD

100  CLS

110  PRINT  TAB(30)“EMPLOYEE’S SALARY SHEET”

120  PRINT  TAB(30)“----------------------------------------- ”

130  PRINT

140  PRINT  TAB(20)“EMPLOYEE’S NAME ---- ”; EN$

150  PRINT  TAB(20)“DESIGNATION------------ ”; D$

160  PRINT  TAB(20)“BASIC SALARY----------- ”; BS

170  PRINT  TAB(20)“TOTAL ALLOWANCES-- ”; TA

180  PRINT  TAB(20)“TOTAL DEDUCTION----- ”; TD

190  PRINT  : PRINT

210  PRINT  TAB(20)“GROSS SALARY----------- ”; GS

220  PRINT  TAB(20)“NET SALARY--------------- ”; NS

230  END

------------------------------------------------------------------------------------------------------------

PRACTICAL-10

OBJECT: Write a generalized program to prepare a Marks sheet of Five subjects with Percentage.

10  REM * PROGRAM TO PREPARE MARKS  SHEET *

20  CLS

30  INPUT  “ENTER STUDENT’S NAME ------ ”; SN$

40  INPUT  “ENTER ROLL NUMBER ----------- ”; RN

50  INPUT  “ENTER MARKS IN ENGLISH----- ”; E

60  INPUT  “ENTER MARKS IN SINDHI-------- ”; S

70  INPUT  “ENTER MARKS IN COMP: STUD- ”; C

60  INPUT  “ENTER MARKS IN CHEMISTRY-- ”; CH

70  INPUT  “ENTER MARKS IN PAK: STUD---- ”; P

80  MO = E + S + C + CH + P

90  PER = (MO * 100) / 425

100  CLS

110  PRINT  TAB(30)“MARKS SHEET”

120  PRINT  TAB(30)“-------------------- ”

130  PRINT

140  PRINT  TAB(20)“STUDENT’S NAME ------ ”; SN$

150  PRINT  TAB(20)“ROLL NUMBER------------ ”; RN

160  PRINT  TAB(20)“MARKS IN ENGLISH-------- ”; E

170  PRINT  TAB(20)“MARKS IN SINDHI----------- ”; S

180  PRINT  TAB(20)“MARKS IN COMP:STUD--- -”; C

190  INPUT  TAB(20)“MARKS IN CHEMISTRY---- ”; CH

200  INPUT  TAB(20)“MARKS IN PAK: STUD------ ”; P

210  PRINT  : PRINT

220  PRINT  TAB(20)“MARKS OBTAINED------------- ”; MO

230  PRINT  TAB(20)“PERCENTAGE-------------------- ”; PER

240  END

------------------------------------------------------------------------------------------------------------

PRACTICAL-11

OBJECT: Write a Program to print even numbers from 1 to 40.

Algorithm

Step 1 START

Step 2 STORAGE B=2

Step 3 DECISION IS B<= 40 IF NOT THEN GO TO STEP 7

Step 4 COMPUTE B=B+2

Step 5 PRINT B

STEP 6 GOTO STEPS 3

Step 7 END

Program:

10        CLS

20        FOR B = 2 TO 40 STEP 2

30        PRINT B

40        NEXT B

50        END

---------------------------------------------------------------------------------

PRACTICAL-12

OBJECT: Write a program that can calculate the perimeter of the rectangular.

Algorithm

Step 1 START

Step 2 INPUT L, W

Step 3 COMPUTE AREA= L * W

Step 4 PRINT   AREA

Step 5 END

Program:

10        CLS

20        INPUT “Length …=”; L

30        INPUT “Width …=”; W

40        PERIMETER= 2* (L+W)

50        PRINT “PERIMETER….. =”; PERIMETER

60        END

---------------------------------------------------------------------------------

PRACTICAL-13

OBJECT: Write a program that can calculate the square and cube of any number.

Algorithm

Step 1 START

Step 2 INPUTS      N

Step 3 COMPUTE   Sq = N*N

Step 4 COMPUTE Cub = N^3

 Step5 PRINT Sq, Cub

Step 6 END 

Program:

10        CLS

20        INPUT “Enter any No...…=”; N

30        LET Sq = N*N

40        LET Cub= N^3

50        PRINT “Square….. =”; Sq

60        PRINT “Cube….. =”; Cub

70        END

 ---------------------------------------------------------------------------------

PRACTICAL-14

OBJECT: Write a program that can draw a Triangle.

Algorithm

Step 1 START

Step 2 PRINT SCREENS 2

Step 3 OUTPUT          LINE (110, 50) - (160,100) 

                                    LINE (60,100) - (160,100)

                                    LINE (110, 50) - (60,100) 

Step 4 END

Program:

10        CLS

20        SCREEN 2

30        LINE (110, 50) - (160,100) 

40        LINE (60,100) - (160,100)

50        LINE (110, 50) - (60,100) 

60        END

---------------------------------------------------------------------------------

PRACTICAL-15

OBJECT: Write a program that can draw a Rectangle.

Algorithm

Step 1 START

Step 2 PRINT SCREENS 2

Step 3 OUTPUT          LINE (70, 80) - (190,170), B 

Step 4 END

Program:

10        CLS

20        SCREEN 2

30        LINE (70, 80) - (190,170), B 

40        END

 ---------------------------------------------------------------------------------

PRACTICAL-16

OBJECT: Write a program that can add 15+ 30+20+325.

Algorithm

Step 1 START

Step 2 STORAGE       A=1

Step 3 DECISION      IS A <=4, IF NOT THEN GOTO STEP 8 

Step 4 COMPUTE      A=A+1

Step 5 COMPUTE     SUM = SUM +5^A

Step 6 PRINT   5^A, SUM

Step 7 GOTO STEPS 3

Step 8 END

Program:

10        CLS

20        READ A, B, C, D

30        SUM= A+B+C+D 

40        PRINT “SUM OF 15, 30, 20 AND 325 ARE…=”; SUM

50        DATA 15, 30, 20,325

60        END

---------------------------------------------------------------------------------

PRACTICAL-17

OBJECT: Write a program that can print all odd numbers from 1 to 100.

Algorithm

Step 1 START

Step 2 STORAGE N=1

Step 3 DECISION IS N <=100, IF NOT THEN GOTO STEP 7 

Step 4 COMPUTE N=N+2

Step 5 PRINT N

Step 6 GOTO STEPS 3

Step 7 END

Program:

10        CLS

20        FOR N = 1 TO 100 STEP 2

30        PRINT       N  

40        NEXT   N

50        END

---------------------------------------------------------------------------------

PRACTICAL-18

OBJECT: Write a program that can print all even numbers from 2 to 100.

Algorithm

Step 1 START

Step 2 STORAGE B=2

Step 3 DECISION IS B <=100, IF NOT THEN GOTO STEP 7 

Step 4 COMPUTE B=B+2

Step 5 PRINT B

Step 6 GOTO STEPS 3

Step 7 END

Program:

10        CLS

20        FOR B = 2 TO 100 STEP 2

30        PRINT       B  

40        NEXT   B

50        END

---------------------------------------------------------------------------------

PRACTICAL-19

OBJECT: program that can print your name five times using FOR-NEXT Loop.

Algorithm

Step 1 START

Step 2 STORAGE N=1

Step 3 DECISION IS N<=5, IF NOT THEN GOTO STEP 7 

Step 4 PRINT GOD IS GREAT

Step 5 COMPUTE N=N+1

Step 6 GOTO STEPS 3

Step 7 END

Program:

10        CLS

20        FOR   N =1 TO 5

30        PRINT “GOD IS GREAT”

40        NEXT N

50        END

---------------------------------------------------------------------------------

PRACTICAL-20

OBJECT: Write a Program to add two numbers.

Algorithm

Step 1 START

Step 2 INPUT   N1, N2   B=2

Step 3 COMPUTE SUM N1+N2

Step 4 PRINT SUM

Step 5 END

Program:

10        CLS

20        INPUT A, B

30        LET SUM = A + B

40        PRINT SUM

50        END

---------------------------------------------------------------------------------

PRACTICAL-21

OBJECT: Write such program which can read six numbers and print their average.

Algorithm

Step 1 START

Step 2 INPUT N1, N2, N3, N4, N5, and N6

Step 3 COMPUTE AVG= (N1+N2+N3+N4+N5+N6) /6

Step 4 PRINT AVG

Step 5 END

Program:

10        CLS

20        READ A, B, C, D, E, F

30        LET AVG= (A+B+C+D+E+F)/6 

40        PRINT “AVERAGE OF SIX NUMBERS ARE…=”; AVG

50        PRINT AVG

60        END

---------------------------------------------------------------------------------