Êý×ÖÏÔʾ³ÌÐò ½­ ËÕ ¹¨Ó¨Ó¨ 1993-09-17 10 HOME£ºGR£ºCOLOR=15 20 INPUTA 30 S=0 40 E1=INT(A/1000)£ºIF E1=0 THEN 70 50 ONE 1 GOTO 210£¬220£¬230£¬240£¬250£¬260£¬270£¬280£¬290 60 IFA£¾9999 THEN 20 70 S=10 80 E2=INT((A-E1ª³1000)/100)£ºIF E1£«32=0 THEN 100 90O NE 2 GOTO 210£¬220£¬230£¬240£¬250£¬260£¬270£¬280£¬290£ºGOTO 200 100 S=20 110 E3=INT((A-E1ª³1000-E2100)/10)£ºIF E1£«E2£«E3=0 THEN 130 120 ONE 3 GOTO 210£¬220£¬230£¬240£¬250£¬260£¬270£¬280£¬290£ºGOTO 200 130 S=30 140 E4=INT((A-E1ª³1000-E2ª³100-E3ª³10)/1)£ºIF E1£«E2£«E3£«E4=0 THEN GOTO 330 150 ONE 4 GOTO 210£¬220£¬230£¬240£¬250£¬260£¬270£¬280£¬290£ºGOTO 200 200 VLIN 12£¬20 AT S£ºVLIN 22£¬30 AT S£ºHL INS£«1£¬S£«6 AT 11£ºHLIN S£«1£¬S£«6AT31£ºVLIN12£¬20 AT S£«7£ºVL IN 22£¬30 AT S£«7 205 GOTO 300 210 VL IN11£¬31 AT S£«2 215 GOTO 300 220 PLOT S£¬12£ºHL IN S£«1£¬S£«6 AT 11£ºVLIN 12£¬20 AT S£«7£ºHLIN S£«1£¬S£«6 AT 21£ºVLIN 22£¬31 AT S£ºHL IN S£«1£¬S£«7 AT 31£ºPLOT S£«7£¬30 225 GOTO 300 230 PLOT S£¬12£ºHLIN S£«1£¬S£«6 AT 11£ºVLIN 12£¬20AT S£«7£ºHL IN S£«1£¬S£«6 AT 21£ºVLIN 22£¬30 AT LOTS£¬30 235 GOTO 300 240 VLIN 11£¬20 ATS£ºHLINS£¬S£«7AT21£ºVLIN 11£¬31ATS£«6 245 GOTO 300 250 HLINS£«1£¬S£«7AT 12£ºVLIN 11£¬20ATS£ºHLINS£¬S£«6AT21£ºVLIN 22£¬30ATS£«7£ºHLINS£«1£¬S£«6AT31£ºPLOTS£¬30 255 GOTO 300 260 VLIN 12£¬20ATS£ºVLIN 22£¬30 ATS£ºHLIN S£«1£¬S£«6AT11£ºHLIN S£«1£¬S£«6AT21£ºHLIN S£«1£¬S£«6AT31£ºVLIN 22£¬30ATS£«7£ºPLOTS£«7£¬12 265 GOTO 300 270 HLIN S£¬S£«7AT 11£ºVLIN 12£¬31ATS£«7£ºPLOTS£¬12 275 GOTO 300 280 VLIN 12£¬20 AT S£ºVLIN 22£¬30 AT S£ºHLIN S£«1£¬S£«6 AT 11£ºHLIN S£«1£¬S£«6 AT 21£ºHLIN S£«1£¬S£«6 AT 31£ºVLIN 12£¬20 AT S£«7£ºVLIN 22£¬30 AT S£«7 285 GOTO 300 290 VLIN 12£¬20 AT S£ºPLOT S£¬30£ºHLIN S£«1£¬S£«6 AT 11£ºHLIN S£«1£¬S£«6 AT 21£ºHLIN S£«1£¬S£«6 AT 31£ºVLIN 12£¬20 AT S£«7 VLIN 22£¬30 AT S£«7 300 IF S=0 THEN 70 310 IF S=10 THEN 100 320 IF S=20 THEN 130 330 PRINTA 350 END (½­ËÕ ¹¨Ó¨Ó¨)