The program should calculate the total bus fare and the discount amount according to the following conditions.
Rates for the different destinations:
Destinations Rate
Pokhara 450 per person
Butwal 500 per person
Chitwan 300 per person
Discount Rate
If the number of passenger is 5 or above then discount=5% in the total amount.
Solution:
CLS
INPUT "ENTER NO. OF PASSENGER"; P
INPUT "ENTER DESTINATIONS"; D$
IF UCASE$(D$) = "POKHARA" THEN
T = P * 450
ELSEIF UCASE$(D$) = "BUTWAL" THEN
T = P * 500
ELSEIF UCASE$(D$) = "CHITWAN" THEN
T = P * 300
END IF
IF P >= 5 THEN D = 5 / 100 * T
F = T - D
PRINT "TOTAL BUS FARE="; F
END
USING SUB PROCEDURE
DECLARE SUB TOTAL(P, D$)
CLS
INPUT "ENTER NO. OF PASSENGER"; P
INPUT "ENTER DESTINATIONS"; D$
CALL TOTAL (P, D$)
END
SUB TOTAL (P, D$)
IF UCASE$(D$) = "POKHARA" THEN
T = P * 450
ELSEIF UCASE$(D$) = "BUTWAL" THEN
T = P * 500
ELSEIF UCASE$(D$) = "CHITWAN" THEN
T = P * 300
END IF
IF P >= 5 THEN D = 5 / 100 * T
F = T - D
PRINT "TOTAL BUS FARE="; F
END SUB
No Comments