LRN-ENG.pmd

English Programme Rªr ×úWô¡Wôm
NmT[l Th¥Vp RVô¬dÏm ×úWô¡Wôm :
1 REM PROGRAM FOR PAY-ROLL 1 ϱl× NmT[ Th¥Vp
2 REM PROFESSIONAL TAX FOR SALARY > 1000 2 ϱl× ùRô ̄pE§VY¬ > 1000
3 REM TAX = 2% OF SALARY 3 ϱl× NmT[j§p Y¬ 2%
4 REM HOUSE RENT 15% OF BASIC 4 ϱl× ÅhÓ YôPûL NmT[j§p 15%
5 REM SALARY=BASICPAY+HOUSERENT+DA - TAX 5 ϱl× NmT[m=NmT[m+ÅhÓYôPûL+SXlT¥#Y¬
10 REM 10 ϱl×
20 DIM R(10) 20 T¬UôQm R(10)
25 READ N 25 T¥ N
26 REM N = NO. OF EMPLOYEES 30 FiL I = 1 TO 6
30 FOR I = 1 TO 6 40 T¥ R(I)
40 READ R(I) 45 ϱl× R=úYûXdLô] §]fNmT[m
45 REM R=DAILY WAGES FOR TRADE 50 @ÓjÕ I
50 NEXT I 60 U§l©Ó C=I
60 LET C = 1 70 T¥ N$, T$,B,D,D1
70 READ N$, T$,B,D,D1 71 ϱl× N$=T¦Vô[¬u ùTVo
71 REM N$=EMPLOYEE'S NAME 72 ϱl× T$=úYûX«u ùTVo
72 REM T$ = TRADE NAME 73 ϱl× B=@¥lTûP E§Vm
73 REM B=BASIC PAY 74 ϱl× D=SXlT¥
74 REM D = DEARNESS ALLOWANCE 75 ϱl× D1=JYoûPm SôhLs
75 REM D1 = OVER-TIME DAYS 80 F²p T$ ""úTôoùUu'' ©\Ï 133
80 IF T$="FOREMAN" THEN 133 90 F²p T$ ""©hPo'' ©\Ï 135
90 IF T$ = "ELECTRICIAN" THEN 135 100 F²p T$ ""FXdhãVu'' ©\Ï 137
100 IF T$ = "FITTER" THEN 137 110 F²p T$ ""Po]o'' ©\Ï 139
110 IF T$ = "TURNER" THEN 139 120 F²p T$ ""UWúYûX'' ©\Ï 141
120 IF T$ = "CARPENTER" THEN 141 130 F²p T$ ""FÝjRo'' ©\Ï 143
130 IF T$ = "CLERK" THEN 143 133 U§l©Ó I=1
133 LET I = 1 134 ùNp 149
134 GOTO 149 135 U§l©Ó I=2
135 LET I = 2 136 ùNp 149
136 GOTO 149 137 U§l©Ó I=3
135 LET I = 2 138 ùNp 149
136 GOTO 149 139 U§l©Ó I=4
137 LET I = 3 140 ùNp 149
138 GOTO 149 141 U§l©Ó I=5
139 LET I = 4 142 ùNp 149
140 GOTO 149 143 U§l©Ó I=6
141 LET I = 5 145 ϱl× ùUôjR NmT[m
142 GOTO 149 149 U§l©Ó H=0.15B
143 LET I = 6 155 U§l©Ó W=D1R(I)
144 GOTO 149 160 U§l©Ó S=B+D+H+W
145 REM TOTAL SALARY 170 F²p S < 1000 ©\Ï 200
149 LET H = 15B 180 U§l©Ó T=B02
155 LET W = D1 R(I) 190 ùNp 210
160 LET S = B+D+H+W 200 U§l©Ó T=0
165 REM PROFESSIONAL TAX 210 P=S-T
170 IF S < 1000 THEN 200 220 Lôi© N$, T$
180 LET T = B.02 230 Lôi© N$ DTúVô¡ "#####.##",H;D;W;
190 GOTO 210 240 Lôi© B DTúVô¡ "#####.##",S;T;P;
200 LET T = 0 250 F²p C=N ©\Ï 290
210 LET P=S-T 260 U§l©Ó C=C+1
220 PRINT N$, T$; 270 ùNp 70
230 PRINT B; USING "#####.##",H;D;W; 280 ®YWm 6,35,25,25,30,20,25
240 PRINT B; USING "#####.##",S;T;P; 281 ®YWm ""®UXô'', ""úTôoùUu'' 500,310,5
250 IF C = N THEN 290 282 ®YWm ""LúQNu'', ""FXdhãVu'' 700,310,10
260 LET C = C+1 283 ®YWm "".ÑYôª'', ""©hPo'' 350,250,0
270 IF C = N THEN 290 284 ®YWm ""LÚQôLWu'', ""Po]o'' 400,275,0
280 DATA 6,35,25,25,30,20,25 285 ®YWm ""úLô®kRu'', ""UWúYûX'' 260,265,12
281 DATA "VERMA", "FITTER",500,310,5 286 ®YWm ""úLô©'', ""FÝjRo'' 325,265,6
282 DATA "GUPTA", "FOREMAN",700,310,10 290 Ø¥Ü
283 DATA "RAM", "CARPENTER",350,250,5
284 DATA "ANIL", "TURNER",400,275,0
285 DATA "SWAMY", "CLERK",260,25,12
285 DATA "SHARMA", "ELECTRICIAN",325,265,6
290 END