You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
SRE - 334<br />
(Award 2 marks for the correct answer and 1/2 marks for incomplete answer)<br />
13a Variables used in the above program are:<br />
P, A, B, C, X, Y, Z, T<br />
(Award 1 mark for correct answer)<br />
13b When above program is executed, 3 times sub-procedure will be called.<br />
(Award 1 mark for correct answer)<br />
14a Declare function SAS (l, b, h)<br />
CLS<br />
INPUT "ENTER the length :::"; L<br />
INPUT "ENTER the breadth:::"; b<br />
INPUT "ENTER the height:::"; h<br />
Area = SAS (l, b, h)<br />
print "The surface area of space"; Area<br />
END<br />
Function SAS (l, b, h)<br />
SAS = 2 * (l*h + b*h + l*b)<br />
END Function<br />
or<br />
(Any other correct program<br />
14b DECLARE SUB GREAT (A, B, C)<br />
INPUT "Enter 3 NUMBers"; X, Y, Z<br />
CALL GREAt (X, Y, Z)<br />
END<br />
SUB GREAT (A, B, C)<br />
IF A>B AND A>C THEN<br />
G = A<br />
ELSEIF B>A AND B>C THEN<br />
G = B<br />
ELSE<br />
G = C<br />
END IF<br />
PRINT "Greatest Number="; G<br />
END SUB<br />
(Award 3 marks for correct or alternative correct answer or 1.5 marks for partially correct<br />
answer)<br />
CLS<br />
14c OPEN "Employee.dat" FOR INPUT AS 7<br />
DO WHILE NOT EOF (7)<br />
INPUT 7, en$, d$, ap$, S<br />
IF S>5000 then<br />
PRINT en$, d$, ap$, S<br />
END IF<br />
LOOP<br />
CLOSE 7<br />
END<br />
Note: Any other correct program<br />
1<br />
1<br />
3<br />
3<br />
3<br />
3