14.04.2015 Views

Marking Scheme

Marking Scheme

Marking Scheme

SHOW MORE
SHOW LESS

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

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!