While °j°é¥i¥Î¨ÓµL¨î¦a°õ¦æ³¯z¦¡ªº©T©w°Ï¶ô¡C
°j°éÃþ«¬ | »¡©ú | ½d¨Ò |
---|---|---|
While ...Do | While ...Do °j°ét³dÅçºâ±ø¥ó¡A¦pªG±ø¥ó¬° True¡A«hÅçºâ Do «á±ªº¹Bºâ¦¡¡C
Åçºâ§¹¦¨¤§«á¡A¥¦·|¦A¦¸Åçºâ±ø¥ó¡A¦pªG±ø¥ó¬° True¡A«K·|¦A«×Åçºâ Do «á±ªº¹Bºâ¦¡¡C ³oÓµ{§Ç·|Ä~Äò«½Æ¶i¦æ¡Aª½¨ì±ø¥ó¬° False ®É¡C |
While ±ø¥ó Doexpression |
Do ...While | ¤£½×¤°»ò±¡ªp¤§¤U¡ADo ...While °j°é³£·|Åçºâ¹Bºâ¦¡¤@¦¸¡C
µM«á¥¦·|Åçºâ±ø¥ó¡A°²¦p±ø¥ó¬° True¡A«K·|¦A¦¸Åçºâ¹Bºâ¦¡¡C³oÓµ{§Ç·|Ä~Äò«½Æ¶i¦æ¡Aª½¨ì±ø¥ó¬° False ®É¡C |
Doexpression While ±ø¥ó |
ª`·N While °j°é¥i¤ä´© Exit While ³¯z¦¡¡A¥ß§Y±q°j°é¤¤°h¥X¡C¨Ï¥Î¤èªkÃþ¦ü©ó For °j°é¤¤ªº Exit For¡C©M For °j°é¤@¼Ë¡A¦pªG±N While °j°éµø¬°¹Bºâ¦¡¡A¤@©w·|¶Ç¦^¥¬ªLÈ True¡C
While ...Do °j°é½d¨Ò
¥H¤Uªº½d¨Ò·|·j´M¿é¤J¦r¦ê¤¤¥X²{ªº²Ä¤@ӼƦr¡C°²¦p§ä¨ì¼Æ¦r¡A·|¶Ç¦^¥¦¦b¦r¦ê¤¤ªº¦ì¸m¡A§_«h·|¶Ç¦^ 1¡C¦b¦¹½d¨Ò¤¤¡A±N¿é¤J¦r¦ê©ú½T¦a³]©w¬°¦r¦ê±`¼Æ¡A¦ý¬O¤]¥i¥H±N¥¦³]©w¬°µ¥©ó¦r¦ê«¬§O¸ê®Æ®wÄæ¦ì¡C
¨Ò¦p¡A¿é¤J¦r¦ê¡uThe 7 Dwarves¡v®É¡A¤½¦¡·|¶Ç¦^ 5¡A¤]´N¬O¼Æ¦r 7 ªº¦ì¸m¡C
Local StringVar inString := "The 7 Dwarves"; Local NumberVar strLen := Length (inString); Local NumberVar result := -1; Local NumberVar i := 1; While i <:lt>= strLen And result = -1 Do ( Local StringVar c := inString [i]; If NumericText (c) Then result := i; i := i + 1; ); result