Punjab Board 10th class solved practical s for computer science students 2014-15

[Xpert]

solved Computer science practical for grade 10th punjab education for all 36 districts for 2014.
You may this in word document file. Which will be helpful for students and teachers in GW Basics.
1.
10 CLS
20 INPUT”ENTER RADIOUS OF CYLINDER”;R
30 INPUT”ENTER HEIGHT OF CLYNDER”;H
40 PI=3.14
50 VOL=PI*R*R*H
60 PRINT” VPLUM OF THE CLYNDER =”;VOL
70 END
2.
10 CLS
20 INPUT”ENTER A NUMBER”;N
30 PRINT”SQUAR OF THE NUMBER =”;N*N
40 END

4.
10 CLS
20 FOR B=2 TO 100 STEP
30 PRINT B
40 NEXT B
50 END

3.
10 CLS
20 INPUT”ENTER FIRST NUMBER=”;A
30 INPUT”ENTER SECOND NUMBER=”;B
40 INPUT”ENTER THIRD NUMBER=”;C
50 LET SUM=A+B+C
60 LET AVG=SUM/3
70 PRINT”SUM OF NUMBERS =”;SUM
80 PRINT “AVERAGE OF NUMBERS =”;AVG
90 END

5.
10 CLS
20 FOR A=1 TO 100 STEP 2
30 PRINT N
40 NEXT N
50 END

7.
10 CLS
20 INPUT”ENTER IST NUMBER”;A
30 INPUT”ENTER SECOND NUMBER”;B
40 IF A>B THEN GREAT=A ELSE GREAT =B
50 PRINT “GREATEST NUMBER”;GREAT
60 END

6.
10 DIM N(12)
20 FOR A=1 TO 12
30 READ N(A)
40 NEXT A
50 FOR B=1 TO 12 STEP 1
60 IF N(B) MOD 2<>0 THEN PRINT N(B)
70 NEXT B
80 DATA 6,42,4,77,32,9,21,22,45,15,46
90 END

9.
10 CLS
20 LET PROD=0
30 DIM ARRY(10)
40 FOR COUNT= 1 TO 10
50 PRINT”ENTER NUMBER AS ELEMENT:”,COUNT
60 INPUT ARRAY(COUNT)
70 PROD=PROD*ARRAY(COUNT)
80 NEST
90 PRINT”THE PRODUCT OF NUMBER IS”;PROD
100 END

8.
10 CLS
20 INPUT”TEMPERATURE IN CENTIGRAD”;C
30 F=9/5*C+32
40 PRINT “TEMPRATURE IN FARHENHEIT:=”;F
50 END
OR
10 CLS
20 INPUT”TEMPERATURE IN FARANHEIT”;F
30 C=5/9*(F-32)
40 PRINT “TEMPRATURE IN CETIGRADE:=”;C
50 END


13
10 CLS
20 FORR N=1 TO 255
30 PRINT CHAR$(N)
40 END

14
10 CLS
20 INPUT”ENTER WIDTH”;W
30 INPUT”ENTER LENGTH”;L
40 PRINT”AREA =”;W*L
50 END

15
10 CLS
20 DEF FN CONVERT (T)= 9/5*T+32
30 INPUT”TEMPERATURE IN CENTIGRAD”;C
40 PRINT “TEMPRATURE IN FARHENHEIT:=”; FN CONVERT (T)
50 END











16
10 CLS
20 DEF FN CONVERT (T)= 5/9*T-32
30 INPUT”TEMPERATURE IN FARENHEIT”;F
40 PRINT “TEMPRATURE IN CENTIGRADE:=”; FN CONVERT (T)
50 END










17.
10 CLS
20 SCREEN 2
30 PSET(250,50)
40 DRAW “G50 R100 H50”
50 END

18
10 CLS
20 SCREEN 2
30 PSET(250,50)
40 DRAW “R50 D50 L50 U 50”
50 END
19.
10 CLS
20 SCREEN 2
30 DRAW “E40 R80 G40 L80”
40 END


20
10 CLS
20 SCREEN 1
30 FOR RADIUS=50 TO 90 STEP 10
40 CIRCLE (150,100),RADIUS
50 NEXT RADIUS
60 END
12
10 CLS
20 DIM(5)
30 FOR I=1 TO 5
40 INPUT A(I)
50 NEXT I
60 FOR I =1 TO5
70 FOR K =K+1 TO 5
80 IF A(I)<A(K) THEN SWAP A(I),A(K)
90 NEXT K
100 NEXT I
110 FOR I=1 TO 5
120 PRINT A(I)
130 NEXT I
140 END