Go To Index
Practical No. 10: W.A.P. to prepare an electricity bill. Where @ 1 unit=Rs.125.
10 CLS: Print TAB(28) "Electricity Bill"
20 Locate 7, 30: Input "Enter Meter no",M$
30 Locate 8, 30: Input "Enter Previous reading",P
40 Locate 9, 30: Input "Enter present reading",PR
50 Let UC = PR-P
60 Let AC = UC*125
70 CLS
80 Print TAB(30) "Meter no"TAB(37)M$
90 Print TAB(30) "Previous reading"TAB(37)P
100 Print TAB(30) "present reading"TAB(37)PR
110 Print TAB(30) "Unit Consumed"TAB(37)UC
120 Print TAB(30) "Account Charged"TAB(37)AC
130 END
RUN
No comments:
Post a Comment