·í«e¦ì¸m¡GÁa¾î¿é¤Jªk­º­¶>>±Ð¾Ç¸gÅç¥æ¬y>>²Ä¤G©¡Áa¾î½X±Ð¾Ç¸gÅç¥æ¬y·|½×¤å¶°

²L½ÍÁa¾î½X¦b±Ð¾Ç¤¤ªº¹ê½î»P§ï¶i
¦¿Ä¬¬Ù³s¶³´ä¥«®ü¦{¤¤¾Ç ³¯¼w³q

¡@¡@ªñ¦~¨Ó§Ú°êº~¦r½s½X§Þ³N¨ú±o¤F­¸³tªºµo®i¡A¨Ï±o­pºâ¾÷¤]¥i³B²z¤º²[Â×´Iªº¡u¤è¶ô¡vº~¦r¡A«P¶i¤F­pºâ¾÷¦bªÀ·|¤¤¼sªx´¶¤Î¡Cµuµu´X¦~¡Aªñ¤dºØº~¦r½s½X¤è®×¦p«B«á¬Kµ«¯ë½Ï¥Í¡A§Î¦¨¤F¤@­Ó¡u¸U½X©bÄË¡vªº®É¥N¡C¨s³º­þ¤Ç¡u½X¡v§ó¾A¦X­pºâ¾÷¾Þ§@ªÌ¯S§O¬O¤¤¤p¾Ç¥Íªº»Ý­n¡A¥i¿×²³»¡¯Éªå¦U¦³¹D²z¡C¦bªø´Á¹ê½î¤¤¡Aµ§ªÌ»{¬°Áa¾î½X¬J²Å¦X¾Ç¥Íªº¨­¤ß¯S¼x¡A©ö©ó³Q¾Ç¥Í±µ¨ü¡A¦]¦Ó¨ü¨ì¾Ç¥ÍÅwªï¡A±Ð¾Ç®ÄªGÅãµÛ¡C§Ú®Õ´¿¥H«D¥¬ÂI³æ¦ì¦¨¥ß¤F¥«¥Nªí¶¤¡A°Ñ¥[¤F¨â©¡¦¿Ä¬¬Ù¤¤¾Ç¥ÍÁa¾î½X¤j¼úÁÉ¡A§¡¦³¾Ç¥Í¶i¤J«e¤Q¤­¦W¡AÀò±o¤F¤Gµ¥¼úªº¦n¦¨ÁZ¡C

¡@¡@¦b±Ð¾Ç¤¤¡A½T©w¤@ºØ¬J¾A¦X¾Ç¥Í¾Ç²ß¡A¤S¨ã¦³¿é¤J³t«×§Öªº¿é¤Jªk¡A¬O¼s¤j±Ð®v·¥¤O±´¨D©M­¢¤Á»Ý­nªº¡C¦b²{¦æ¤¤¾Ç­pºâ¾÷±Ð§÷¤¤¡A¥uÁ¿±Â¤F«÷­µ¿é¤Jªk©M¤­µ§¦r«¬¿é¤Jªk¡C«÷­µ½X²³æ©ö¾Ç¡A¦h¼Æ¾Ç¥Í¦b¤p¾Ç¶¥¬q¤w¸g´x´¤¡A¦ý¨ä­«½X¦h¡A¥B¿é¤J³t«×ºC¡C¦Ó¤­µ§¦r«¬Áö¨Ï¥Î³Ì¼sªx¥B¬O¤½»{ªº¿é¤J¸û§Öªº¿é¤Jªk¤§¤@¡A¦ý¤@¦Ê¦h­Ó¦r®Ú¤Î¨ä¿W¯Sªº©î¦r¤èªk»P¤¤¾Ç¥Í¤w¦³ªºº~¦r±`ÃѬ۬»Ä²¡A«ÜÃø³Q¾Ç¥Í±µ¨ü¡C¬°¤F°µ¨ì¦n¾Ç ¡]¤èªk²³æ¡^¡B¦n¥Î¡]¿é¤J³t«×§Ö¡^¡A§Ú­Ì¤S¥ý«á¾Ç²ß¬ã¨s¨Ã¦b±Ð¾Ç¤¤¸Õ¥Î¤Fªí§Î½X¡B»{ª¾½X¡B¦ÛµM½X¡BÁa¾î½Xµ¥¦hºØ¦¨¼ôªºº~¦r¿é¤Jªk¡C³Ì«áµo²{¡AÁa¾î½Xªº»{¦P²v³Ì°ª¡A¨ü¨ì¾Ç¥Íªº¼sªxÅwªï¡C

¡@¡@Áa¾îº~¦r½s½X¤è®×²³æ©ö¾Ç¡A»P¾Ç¥Í²{¦³ªº»y¤åª¾ÃÑÅé¨t¬Û§k¦X¡C½s½X¤è®×¤¤ªº¤QºØµ§§Î¥N½X©M¤­¤Q¤­­Ó¥D³¡­º¡A§¡¥i¦b¡m²{¥Nº~»yµü¨å¡n±`¥Î³¡­º¤¤¬d¨ì¡A¾Ç¥Í¤£·|¹ïÁa¾îº~¦r½s½Xªk²£¥Íª[¸q¡C¹ï°ò¥»µ§§Î©M¥D³¡­ºªº°O¾Ð¡A§ó¦³§Î¶Hªº¤f³Z¥[¥H»²§U¡A¤£·|¥X²{¨ä¥L¤@¨Ç¿é¤Jªk²o±jªþ·|ªº²{¶H¡C¦b¦¹°ò¦¤W¥D³¡­ºªº¨ú½X¥H¤Î°Æ³¡­º¨ú½X³W«h´N²¤Åã®e©ö¨Ç¡A»Ý­n±j½Õªº¶È¶È¬O¡uÆÔ¡v©M¡uÈë¡v¨â­Ó¯S§Oªº¥D³¡­º¨ú½X¡C¦Ó¦r¨­¨ú½X³W«h¡A¬Ý¦üÃeÂøÁcº¾¡A¤Àªù§OÃþ¦³¼Æ¤QºØ¡A¹ê»ÚÀ³¥Î«o¬Û·í²³æ¡A¥u­n¦b¾Ç²ß¤¤±N¨ú½X³W«hµ²¦Xµ§§Î¥N½X¤@¤@¹ïÀ³§Y¥i¡CÁa¾î½Xªº³o¤@ÀuÂI¡AÁYµu¤F±Ð¾Ç©M¾Ç¥Í´x´¤ªº®É¶¡¡A¤@¯ë¥u»Ý¥Î¨â½Ò®É¾Ç¥Í´N¥i¥H±NÁa¾îº~¦r½s½X¤è®×²z¸Ñ´x´¤¡C¤ñ¦p²Ä¤@½Ò®É¥i²¤¶Áa¾î½X¤è®×¡AÁ¿­zµ§§Î¥N½X¡B³¡­º¤Î¨ä¨ú½X³W«h¡F²Ä¤G½Ò®É¥H¦r¨­¨ú½X³W«h¯S§O¬O¸É½X³W«h¬°­«ÂI¡AµM«áÁ¿­z²½X©MÁY½X¡C°t¥H¡uÁa¾îº~¦r¿é¤Jªk±Ð¾Ç¶°¦¨¨t²Î¡v¤¤ªººt¥Ü³¡¤À»²§U±Ð¾Ç¡A¦b¹ê½î¤¤§Ú­Ìµo²{±Ð¾Ç®ÄªG«D±`¦n¡C

¡@¡@¾Ç¥Íªì¨B´x´¤½s½X¤è®×«áµ²¦X°V½m³n¥óªº½Òµ{¥Ø¿ý´`§Çº¥¶i¦a½m²ß¡A¬O´x´¤Áa¾îº~¦r¿é¤Jªkªº°ß¤@±¶®|¡C¦ý¥Ñ©ó¾Ç¥Í±q¤p¾Ç¨ìªì¤¤ªº­pºâ¾÷¾Ç²ß¹Lµ{¤¤¶È¶È±j½Õ­^¤å«üªk½m²ßªº­«­n¡A©¹©¹©¿²¤¤F¼Æ¦rÁä½m²ß¡A¦Ó¦bµ²¦X°V½m³n¥ó½m²ßªº¹Lµ{¤¤¡A¾Ç¥Íªºª`·N¤O¤S³£¶°¤¤¦b¨ú½X¡B½s½Xªº½m²ß¤¤¤F¡A«üªk½m²ß±o¤£¨ì«Ü§Öªº´£°ª¡C¦b±Ð¾Ç¤¤§Ú­Ì¤£±o¤£¥[±j¾Ç¥Íªº«üªk½m²ß¡C§Ú­Ì´£­Ò¾Ç¥Í¨Ï¥Î¼Æ¦rÁä¶i¦æ°V½m¡A¦b¨t²Î½m²ß«üªkªº¹Lµ{¤¤¥i¥Hµ²¦X¦Û¤vªº¯SÂI¥[¥H¿ï¾Ü¡C

¡@¡@¦b±Ð¾Ç¤§ªì¥Ñ©ó¯Ê¥F¬ÛÀ³ªº°w¹ï¼Æ¦rªº«üªk½m²ß³n¥ó¡A¾Ç¥Í½m²ß«üªk®É±`±`µL±q¤U¤â¡A¨ã¦³¤@©wªºª¼¥Ø©Ê¡C¬°§JªA³o¤@¹úºÝ¡A§Ú­Ì½s¼g¤F¤@¬q¤pµ{§Ç¡]µ{§Çªþ«á¡^¡A¥H«K¦b°V½m¹Lµ{¤¤¾Ç¥Í§Q¥Î¡uÁa¾îº~¦r¿é¤Jªk±Ð¾Ç¶°¦¨¨t²Î¡v¶i¦æ½m²ß´ú¸Õ¤§¾l¡A°õ¦æ¦Û½sªºµ{§Ç±Mªù¶i¦æ¼Æ¦r¿ý¤J½m²ß¡C¥Ñ©ó¦¹µ{§Ç¹ï¼Æ¦r¿ý¤J¶i¦æÀH¾÷½m²ß¡A¸g¹L¤@¬q±j¤Æ°V½m«á¡A¾Ç¥Íªº¿ý¤J³t«×³£¦³«Ü¤j´£°ª¡C

¡@¡@¸g¹L¤T¦~¦hªºÁa¾î½X±Ð¾Ç¹ê½î¡A§Ú­Ìµo²{Áa¾î½X¥H¨ä·s¿o¦Ó°ª®Äªº½s½X¤è®×§l¤ÞµÛ²³¦hªº¾Ç¥Í¡A¥H¨ä»´©ö¾r¶¿ªº±Ð¾Ç¤èªk³Õ±o¤F¦Ñ®vªº«C·ý¡A¦]¦¹±Ð¾Ç®ÄªG«D±`¦n¡C¦ýÁa¾î½Xº~¦r¨t²Î¤¤©|¦³¤@¨Ç¬ü¤¤¤£¨¬¤§³B¡A¦pÁa¾î½X¨t¦C³n¥ó¶È¾A¦X¦b³æ¾÷¤¤¨Ï¥Î¡A¦Ó¦b§Ú®Õ¨â®M­pºâ¾÷ºôµ¸ªºµL½L¤u§@¯¸¤W¹B¦æ®ÄªG¤£¨Î¡A¤@¨Ç¥\¯à¤£¯à¥R¤Àµo´§¡FÁa¾îº~¦r¿é¤Jªk±¾±µµ{§Ç¨S¦³¤Î®É§ó·s¡A»PUCDOS 6.0µ¥§ó·sª©¥»º~¦r¨t²Î±¾±µ«á¡A¦b³¡¤Àº~¦r½s¿è³n¥ó¤U¤£¯à¨Ï¥ÎÁa¾î½X¡A­­¨î¤FÁa¾î½Xªº¨Ï¥Î½d³ò¡C¬°¤F§ó¦n¦a±À¼sÁa¾îº~¦r¿é¤Jªk¡A§Ú­Ì»{¬°À³¸ÓºÉ§Ö±À¥Xºôµ¸ª©¡AÀH®É§ó·s¨t¦C³n¥ó¡A¤£Â_¨ÏÁa¾îº~¦r¨t²Î¤éÁͧ¹¬ü¡C

¡@¡@ªþ¼Æ¦rÁä«üªk½m²ßµ{§Ç¡G

set talk off
clea
store 0 to y,n,n1
x=2
set colo to 3+/0
@0,27 say¡§¼Æ¦r¿ý¤J«üªk½m²ß¡¨
t1=val(sys(2))
do while x<=20
set colo to 6 + / 1
a=val(right(time(112),2))
r=a/90
c=r*9+48
@x,y say chr(c)
@x,y say ""
n=n+1
e=inkey(0)
if e=13
n=n-1
exit
endi
if int(c)=e
set colo to 5+/1
?? chr(c)
n1=n1+1
else
set colo to 2+/0
@ x+1,y say chr(e)
endi
y=y+1
if y=80
x=x+2
y=0
endi
endd
clea
@ 12,22 say ¡§®É¶¡¡¨+¡§¿ý¤J¼Æ¶q¡¨+¡§¥¿½T²v(%)¡¨
@ 13,22 say str(val(sys(2))-t1,9,1)+str(n,9)+str(n1*100/n,9,2)
set colo to
wait
uit