假设有一组数字 1~1000,请将它们随机填充在一个数组中要求

开发技术指南» 文章正文

引言：假设有一组数字 1~1000,请将它们随机填充在一个数组中要求

摘要：　　该示例演示了一个字符串扩展splitex例子，文章内含源代码。 ......

摘要：在delphi7中如果使用了getmodulename这样的windows函数,如果在help中查是在system单元中,但是在uses中加入system后会出现“identifier redelcared”的错误. 把system改为windows后,编译输出正常. ......

数字随机排序

假设有一组数字 1~1000,请将它们随机填充在一个数组中

要求: 【程序编程相关:如何在各种开发语言中调用web serv】

【推荐阅读:基于阻塞Socket的远程控制类库-TN】

1.数组中无重复数字【扩展信息:Delphi控件的“拿来主义”】

2.整个程式运算很快！

william 兄解答

var nums: array[1..1000] of integer; i,j,k,temp: integer; begin for i := low(nums) to high(nums) do nums[i] := i; for i := 0 to 1000 do begin // 1001 round may not be enough j := random(high(nums))+1; k := random(high(nums))+1; temp := nums[j]; nums[j] := nums[k]; nums[k] := temp; end; end;fishman 兄解答

我有一些新的想法,與大家共同分享.討論

... 下一页

·需要gmail的朋友这里留话！ »显示摘要«

摘要：有6个邀请名额（怎么会这么少？！）需要请留下email~ 我会尽快发送邀请。 ......

» 本期热门文章：