Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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


Ïà¹ØÎÊ´ð£º

DELPHIÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

Çë½ÌÏ£¬ÓÃDELPHI×öSOHUµÄ - Delphi / ·Ç¼¼ÊõÇø

Ò»°ã¶¼ÊÇÔõô½Ó»îµÄ£¿
ÊÕÈëÔõôÑù
sohu£¿soho£¿

sohu ¿ÉÄÜÊÇsmall office house unit
С°ì¹«ÊÒ£¬°Ñ¼Ò±ä³Éµ¥Î»¡£

È¥Íþ¿ÍÍø°¡,ºÜ¶à¸öÄØ,»¹ÓÐÍâ°üµÄÍøÕ¾

ѧϰѧϰ¡£

ÏÖÔÚDelphi×ö¶«Î÷²»ÐÐÁË,´¦ÓÚÌÔÌ­×´ ......

Ç¿ÁÒ½¨ÒéDELPHI°æ¸ü»»´ó°æ - Delphi / ·Ç¼¼ÊõÇø

hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ­³£ÉÏÀ´×ª×ªµÄ

ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔ­Òò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......

delphi 2010 ÓÐÆÆ½âµÄÂ𣿸ø¸öÏêϸµÄ£®

ÎÒÔõô²éÁËÄÇô¶à˵ÊÇÄÜÆÆ½âµÄ£®½á¹û¶¼²»ÐУ®ÄãÃÇÓÐûÓÐѽ£®¸øÎÒ¸öÏêϸµÄ½â¾ö·½°¸£®ÏÂÔØÄĸö°æ±¾£®ÆÆ½âÎļþ£¬»¹ÓÐ×¢²áÂë
²»Çå³þ

ÏÂÔØ¹Ù·½¹âÅ̾µÏñ£¬ÓÃdelphidistiller1.85ÆÆ½â

µ½www.2ccc.comÉÏÈ¥ÕÒdelphidis ......

xml´´½¨ºóÈçºÎÏú»Ù? - Delphi / ÍøÂçͨÐÅ/·Ö²¼Ê½¿ª·¢

xml := CreateOleObject('Microsoft.XMLHTTP');
  xml.Open('GET','http://www.google.com', False);
  xml.Send;
  xml.responseText;
ʹÓÃxml.responseText¿ÉÒÔ»ñÈ¡ÍøÒ³Ô´Âë,µ«ÊÇÔÙ´Î ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ