PRACTICAL-1

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

START 10 REM * PROGRAM TO PREPARE BIO-DATA *

20 CLS
INPUT; N$ 30 INPUT “ENTER YOUR GOOD NAME ------ ”; N$
40 INPUT “ENTER YOUR FATHER’S NAME- ”; F$
INPUT; F$ 50 INPUT “ENTER YOUR SEX------------------- ”; S$
60 INPUT “ENTER YOUR DATE OF BIRTH--- ”; D$
INPUT; S$ 70 INPUT “ENTER YOUR QUALIFICATION-- ”; Q$
60 INPUT “ENTER YOUR RELIGION----------- ”; R$
INPUT; D$ 70 INPUT “ENTER YOUR NATIONALITY----- ”; NA$
80 CLS
INPUT; Q$ 90 PRINT TAB(30)“B I O – D A T A”
100 PRINT TAB(30)“--------------------”
INPUT; R$ 110 PRINT
120 PRINT TAB(20)“YOUR GOOD NAME ------ ”; N$
INPUT; NA$ 130 PRINT TAB(20)“YOUR FATHER’S NAME- ”; F$
140 PRINT TAB(20)“YOUR SEX------------------- ”; S$
PRINT; N$ 150 PRINT TAB(20)“YOUR DATE OF BIRTH--- ”; D$
160 PRINT TAB(20)“YOUR QUALIFICATION-- ”; Q$
PRINT; F$ 170 INPUT TAB(20)“YOUR RELIGION----------- ”; R$
180 INPUT TAB(20)“YOUR NATIONALITY----- ”;NA$
PRINT; S$ 190 END
PRINT; D$

PRINT; Q$

PRINT; R$

PRINT; NA$

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 *
START 20 CLS
30 INPUT “ENTER YOUR GOOD NAME ========>”; N$
40 CLS
INPUT; N$ 50 PRINT TAB(25)“PRINTING OF NAME TEN TIMES”
60 PRINT TAB(23)“BY USING FOR-NEXT STATEMENT”
70 PRINT TAB(25)“~~~~~~~~~~~~~~~~~~~~~~~~~~~~~”
FOR A = 1 TO 10 80 FOR A = 1 TO 10
90 PRINT TAB(38); A; N$
100 NEXT A
PRINT; N$ 110 END

NEXT A

END

(b) By using IF-THEN Statement

10 REM * PROGRAM TO PRINT YOUR NAME TEN TIMES *
START 20 CLS
30 INPUT “ENTER YOUR GOOD NAME ========>”; N$
40 CLS
INPUT; N$ 50 PRINT TAB(25)“PRINTING OF NAME TEN TIMES”
C 60 PRINT TAB(25)“BY USING IF-THEN STATEMENT”
70 PRINT TAB(25)“~~~~~~~~~~~~~~~~~~~~~~~~~~~~”
A=A+1 80 A = A + 1
90 PRINT TAB(38); A; N$
100 IF A = 10 THEN END ELSE 80
PRINT A; N$

NO
IS A = 10 C

YES

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 *

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

NEXT N

END

PRACTICAL-4
OBJECT: Write a program to produce the sum of first Ten Natural Numbers

START 10 REM * PROGRAM TO PRODUCE SUM OF NUMBERS *

20 CLS
30 PRINT “NUMBERS”
FOR N = 1 TO 10 40 PRINT “~~~~~~~~~”
50 FOR N = 1 TO 10
60 SUM = SUM + N
SUM = SUM + N 70 PRINT N
80 NEXT N
90 PRINT TAB(30); “---------“
100 PRINT “SUM OF FIRST TEN NATURAL NUMBERS IS “;SUM
PRINT ; N 110 PRINT TAB(30); “---------“

NEXT N

PRINT ; SUM

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 *
START 20 CLS
30 PRINT TAB(25)“NUMBERS IN ASCENDING ORDER”
40 PRINT TAB(25)“~~~~~~~~~~~~~~~~~~~~~~~~~~~~~”
FOR A = 3 TO 28 STEP 5 50 FOR A = 3 TO 28 STEP 5
60 PRINT TAB(38); A
70 NEXT A
80 PRINT TAB(25) STRING$(26, “~”)
PRINT ; A
90 END

NEXT A

END

(b) Descending Order

10 REM * PROGRAM TO ARRANGE NUMBERS *
START 20 CLS
30 PRINT TAB(25)“NUMBERS IN DESCENDING ORDER”
40 PRINT TAB(25)“~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~”
FOR D = 28 TO 3 STEP -5 50 FOR D = 28 TO 3 STEP -5
60 PRINT TAB(38); D
70 NEXT D
80 PRINT TAB(25) STRING$(26, “~”)
PRINT ; D
90 END

NEXT D

END
PRACTICAL-6 (a)
OBJECT: Write a generalized program to prepare a Multiplication Table up till ten times

START 10 REM * PROGRAM TO PREPARE MULTIPLICATION TABLE *

20 CLS
30 INPUT “NUMBER FOR TABLE”; N
INPUT; N 40 CLS
50 PRINT “TABLE OF ……………:”; N
60 PRINT
70 FOR M = 1 TO 10
FOR M = 1 TO 10
80 PRINT N; “*”; M; “ = “; N * M
90 NEXT M
100 END
PRINT;N;”*”;M;”=”;N*M

NEXT M

END

PRACTICAL-6 (b)
OBJECT: Write a generalized program to find the Average of given four numbers.

START 10 REM * PROGRAM TO FIND THE AVERAGE OF NUMBERS *

20 CLS
INPUT; N1 30 INPUT “ENTER FIRST NUMBER----------- ”; N1
INPUT; N2 40 INPUT “ENTER SECOND NUMBER------- ”; N2
INPUT; N3 50 INPUT “ENTER THIRD NUMBER---------- ”; N3
INPUT; N4 60 INPUT “ENTER FOURTH NUMBER------- ”; N4
70 AVG = (N1 + N2 + N3 + N4) / 4
80 PRINT TAB(25)“FIRST NUMBER--------------- ”; N1
AVG=(N1+N2+N3+N4)/4 90 PRINT TAB(25)“SECOND NUMBER----------- ”; N2
100 PRINT TAB(25)“THIRD NUMBER-------------- ”; N3
110 PRINT TAB(25)“FOURTH NUMBER----------- ”; N4
PRINT; N1 120 PRINT
PRINT; N2 130 PRINT TAB(25)“AVERAGE OF FOUR NUMBERS----“; AVG
PRINT; N3 140 END
PRINT; N4
PRINT; AVG

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 *
START 20 CLS
30 INPUT “ENTER TEMPERATURE IN FAHRENHEIT___”; F
40 C = 5 / 9 * (F-32)
INPUT; F 50 CLS
60 PRINT ; F; “FAHRENHEIT IS EQUAL TO”; C; “CENTIGRADE”
70 END
C=5/9*(F-32)

PRINT F; C

END

(b) Centigrade into Fahrenheit

10 REM * PROGRAM TO CONVERT TEMPERATURE *
START 20 CLS
30 INPUT “ENTER TEMPERATURE IN CENTIGRADE ___”; C
40 F = 9 / 5 * C + 32
INPUT; C 50 CLS
60 PRINT ; C; “CENTIGRADE IS EQUAL TO”; F; “FAHRENHEIT”
70 END
F=9/5*C+32

PRINT C; F

END
PRACTICAL

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 *
START 20 CLS
30 INPUT “ENTER EMPLOYEE’S NAME ---- ”; EN$
INPUT; EN$ 40 INPUT “ENTER DESIGNATION------------ ”; D$
50 INPUT “ENTER BASIC SALARY----------- ”; BS
INPUT; D$ 60 INPUT “ENTER TOTAL ALLOWANCES-- ”; TA
70 INPUT “ENTER TOTAL DEDUCTION----- ”; TD
INPUT; BS 80 GS = BS+ TA
90 NS = GS- TD
INPUT; TA 100 CLS
110 PRINT TAB(30)“EMPLOYEE’S SALARY SHEET”
INPUT; TD 120 PRINT TAB(30)“----------------------------------------- ”
130 PRINT
GS = BS + TA
140 PRINT TAB(20)“EMPLOYEE’S NAME ---- ”; EN$
150 PRINT TAB(20)“DESIGNATION------------ ”; D$
NS = GS - TD
160 PRINT TAB(20)“BASIC SALARY----------- ”; BS
170 PRINT TAB(20)“TOTAL ALLOWANCES-- ”; TA
PRINT; EN$
180 PRINT TAB(20)“TOTAL DEDUCTION----- ”; TD
PRINT; D$ 190 PRINT : PRINT
210 PRINT TAB(20)“GROSS SALARY----------- ”; GS
PRINT; BS 220 PRINT TAB(20)“NET SALARY--------------- ”; NS
230 END
PRINT; TA

PRINT; TD

PRINT; GS

PRINT; NS

END

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

START 10 REM * PROGRAM TO PREPARE MARKS SHEET *

20 CLS
INPUT; SN$ 30 INPUT “ENTER STUDENT’S NAME ------ ”; SN$
40 INPUT “ENTER ROLL NUMBER ----------- ”; RN
INPUT; RN 50 INPUT “ENTER MARKS IN ENGLISH----- ”; E
60 INPUT “ENTER MARKS IN SINDHI-------- ”; S
INPUT; E 70 INPUT “ENTER MARKS IN COMP: STUD- ”; C
60 INPUT “ENTER MARKS IN CHEMISTRY-- ”; CH
INPUT; S 70 INPUT “ENTER MARKS IN PAK: STUD---- ”; P
80 MO = E + S + C + CH + P
INPUT; C 90 PER = (MO * 100) / 425
100 CLS
INPUT; CH 110 PRINT TAB(30)“MARKS SHEET”
120 PRINT TAB(30)“-------------------- ”
INPUT; P 130 PRINT
140 PRINT TAB(20)“STUDENT’S NAME ------ ”; SN$
MO=E+S+C+CH+P 150 PRINT TAB(20)“ROLL NUMBER------------ ”; RN
160 PRINT TAB(20)“MARKS IN ENGLISH-------- ”; E
PER=(MO*100)/425 170 PRINT TAB(20)“MARKS IN SINDHI----------- ”; S
180 PRINT TAB(20)“MARKS IN COMP:STUD--- -”; C
PRINT; SN$ 190 INPUT TAB(20)“MARKS IN CHEMISTRY---- ”; CH
200 INPUT TAB(20)“MARKS IN PAK: STUD------ ”; P
PRINT; RN 210 PRINT : PRINT
220 PRINT TAB(20)“MARKS OBTAINED------------- ”; MO
PRINT; E 230 PRINT TAB(20)“PERCENTAGE-------------------- ”; PER
240 END
PRINT; S

PRINT; C

PRINT; CH

PRINT; P

PRINT; GS

PRINT; NS

END