delphi ½«100¸öÊý×ÖÆ½¾ù·Ö²¼µ½600¸öÊý×éÀï
100¸öÊý×Ö·Ö²¼µ½Êý×éhm[0..9,0..99]Àï ¾ÍÊÇÊ®Ìõ¼Ç¼ ÿÌõ¼Ç¼Àï60¸öÊý×Ö ÒªÇóÿ¸öÊý×ÖʹÓÃ6´Î£¨²»ÄܶàÒ²²»ÄÜÉÙ£© 100¸öÊý×ÖÊÇ0µ½99 ÓïÎÄ¿¼ÊÔ²»¼°¸ñ ÓÐû¿´¶®µÄ¿ÉÒÔÎÊÏÂÎÒ
Êý×éµÄ×Ü´óСΪ1000£¬Ê£ÓàµØ400×öɶ´¦Àí£¿ ʣϵIJ»´¦Àí°¡ ±ÈÈçÊý×ÖÊÇ53 ÄÇôhm[i,53]¾ÍµÈÓÚ1 ²»È»¾ÍµÈÓÚ0 Ëæ»ú·Ö²¼£¿ÓÐÐò·Ö²¼£¿×ܵÃÓеãËã·¨°É¡£ÒýÓà ʣϵIJ»´¦Àí°¡ ±ÈÈçÊý×ÖÊÇ53 ÄÇôhm[i,53]¾ÍµÈÓÚ1 ²»È»¾ÍµÈÓÚ0 Ëæ»ú·Ö²¼ÒýÓà ʣϵIJ»´¦Àí°¡ ±ÈÈçÊý×ÖÊÇ53 ÄÇôhm[i,53]¾ÍµÈÓÚ1 ²»È»¾ÍµÈÓÚ0 Ëæ»ú·Ö²¼ 1. ¶¨Òå±äÁ¿ÓÃÀ´±£´æÃ¿¸öÊý×ÖµÄʹÓôÎÊý array[0..99] of integer; µ±È»Ò²¿ÉÄÜÊÇarray[1..100]£¬¿´ÄãµÄ¡°100¸öÊý×Ö¡±ÊÇ0~99»¹ÊÇ1~100£¬Ê¹ÓÃǰ³õʼ»¯µ½È«0 2. ¶¨Òå±äÁ¿ÓÃÀ´±£´æÃ¿Ìõ¼Ç¼ÄÚµÄÊý×Ö¼ÆÊý array[0..9] of integer; ʹÓÃǰ³õʼ»¯µ½È«0 3. ¶¨Òå±äÁ¿À´±£´æÊý×Ö±»ÒýÓõÄ×Ü´ÎÊýÓÃÀ´¿ØÖÆÑ»· integer; ʹÓÃǰ³õʼ»¯µ½0 4. ³õʼ»¯Ëæ»úÊýÖÖ×Ó¡£ Randomize; 5. ÓÃwhile doÑ»·£¬Ìõ¼þΪÊý×ÖµÄ×ÜÒýÓüÆÊý <600 6. ÔÚÑ»·ÌåÄÚËæ»úÉú³É a. Êý×Ö£¨Random(100)»òÕßRandom(100)+1£© b. ¼Ç¼ÐòºÅ£¨Ramdom(10)£© 7. ¼ì²é¸ÃÊý×ÖÔÚ1Öж¨ÒåµÄÒýÓüÆÊý£¬Ó¦Ð¡ÓÚ6£¬¼ì²é¼Ç¼ָ¶¨Î»ÖÃ״̬£¬Ó¦Îª0£¬Èç2Ìõ¼þÂú×㣬Ôò¸ÃÊý×ÖÒýÓüÆÊý+1£¬×ÜÒýÓüÆÊý+1£¬¼Ç¼µÄÏàӦλÖÃÖÃλΪ1¡£ 8. ÖØ¸´Ñ»·¡£ Delphi(Pasc
Ïà¹ØÎÊ´ð£º
hongqi162¡¢windindance ´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance ¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ hongqi162»¹ÊǾ³£ÉÏÀ´×ª×ªµÄ ÒýÓà ¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔÒò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É ¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......
delphi »ñµÃÖ÷°åµÄÓ²¼þÐÅÏ¢ Win32_DiskDriveÒª»»Ò»Ï£¬Äã²éÏÂmsdn http://hi.baidu.com/xuchuantao17/blog/item/dd6f1fdfe22ec41a48540314.html ²å¸ö±ê¼Ç ÒýÓà Win32_DiskDriveÒª»»Ò»Ï£¬Äã²éÏÂmsdn Õ ......
IF THEN ELSEÖжà¸öÌõ¼þÔõôд£¬È磺×Ö·û´®S1£¬S2£¬S3£¬S4¾ùÒª²»Îª¿Õ¡£ ÔõôÑù°ÑËüдµ½IFÖÐÈ¥£¿ Çë¸÷λ°ï°ï棬лл£¡ if (S1<>'') and (S2<>'') and (S3<>'') and (S4<>'') then begin ......
´ó¼ÒºÃ£º ÎÒĿǰҪ¿ª·¢Ò»¸öERPÖеÄBOM¹¤Ê±»ã×ܳÌÐò£¬ÔÚORACLEÖУ¬BOM±íµÄ½á¹¹ÊÇ´«Í³µÄ ¸¸¼þ ×Ó¼þ ʽµÄ£¬¹¤Ê±ÔÚÁíÒ»¸ö±íÖУ¬¿ÉÒÔÓÃleft outer joinÀ´¹ØÁª£¬¿ÉÒÔÈÏΪ£¬¹ØÁªºóµÄ±í½á¹¹Îª [¸¸¼þ] [ ......
select * from shuju.DB where ¿ªÅ̼Û-ÊÕÅ̼Û<=0.02 ¿ªÅÌ¼Û ÓëÊÕÅÌ¼Û ÊÇÊý¾Ý¿âÀïµÄ×Ö¶Î select * from aTableName where ((¿ªÅ̼Û-ÊÕÅ̼Û) <=0.02 ) ¿ªÅ̼۱ÈÊÕÅ̼۵ÍÁ½·ÖÒÔϵÄÇé¿ö Mark!!!!!! se ......