An organization pays its employees allowance at the rate of 10% of basic salary. WAP to input the salary of the employees and calculate the allowances

20 mins

CLS
INPUT “ENTER BASIC SALARY”; S
A = 10 / 100 * S
PRINT “ALLOWANCE=”; A
END

USING SUB PROCEDURE
DECLARE SUB ALLOWANCE (S)
CLS
INPUT “ENTER BASIC SALARY”; S
CALL ALLOWANCE (S)
END
SUB ALLOWANCE (S)
A = 10 / 100 * S
PRINT “ALLOWANCE=”; A
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION ALLOWANCE (S)
CLS
INPUT “ENTER BASIC SALARY”; S
PRINT “NET SALES=”; ALLOWANCE (S)
END

FUNCTION ALLOWANCE (S)
A = 10 / 100 * S
ALLOWANCE = S
END FUNCTION

Back to QBasic Programming

No Comments