产生100个0到999之间的随机整数，然后判断这100个随机整数那些是素数，那些不是 vb 给一维数组A输入100个100到999之间的随机整数,...
\u7528java\u8bed\u8a00\u505a0\u5230999\u968f\u673a\u6574\u6570\uff0c\u5224\u65ad\u90a3\u4e9b\u662f\u7d20\u6570\uff0c\u90a3\u4e9b\u4e0d\u662fpublic class Test {public static void main(String[] args) {int n = (int) (Math.random() * 1000);System.out.println(n + "\u662f\u7d20\u6570\u5417\uff1f" + isPrime(n));}public static boolean isPrime(int n) {boolean flag = true;if(n < 2) {flag = false;}for(int i = 2; i < Math.sqrt(n); i++) {if(n % i == 0) {flag = false;}}return flag;}}
\u4e24\u4e2a\u56fe\u7247\u6846Picture1,Picture2 \u548c\u4e00\u4e2a\u6309\u94aeCommand1
Private Sub Command1_Click() Dim a%(0 To 99), b%(0 To 99), c%(0 To 99), i%, j%, n%, t% For i = 0 To 99 '\u751f\u6210100\u4e2a100\u5230999\u4e4b\u95f4\u7684\u968f\u673a\u6574\u6570 Randomize a(i) = Int(Rnd * 900 + 100) Next i n = 0 For i = 0 To 99 '\u627e\u51fa\u5404\u4f4d\u662f7\u7684\u5947\u6570\u5b58\u5165\u6570\u7ec4b\u4e2d If a(i) Mod 10 = 7 Then b(n) = a(i) n = n + 1 End If Next i For i = n - 1 To 1 Step -1 '\u4ece\u5c0f\u5230\u5927\u6392\u5e8f For j = 0 To i - 1 If b(j) > b(j + 1) Then t = b(j) b(j) = b(j + 1) b(j + 1) = t End If Next j Next i For i = 0 To n - 1 '\u6bcf\u884c5\u4e2a\u6253\u5370\u5728\u56fe\u7247\u68461\u4e2d If i Mod 5 = 0 Then Picture1.Print Picture1.Print b(i); Next i n = 0 For i = 0 To 99 '\u7528Sub\u5b50\u8fc7\u7a0b\u6216Function\u51fd\u6570\u8fc7\u7a0b\u5224\u65ad\u968f\u673a\u6574\u6570\u662f\u5426\u4e3a\u7d20\u6570 If Issushu(a(i)) Then c(n) = a(i) n = n + 1 End If Next i For i = n - 1 To 1 Step -1 '\u4ece\u5c0f\u5230\u5927\u6392\u5217 For j = 0 To i - 1 If c(j) > c(j + 1) Then t = c(j) c(j) = c(j + 1) c(j + 1) = t End If Next j Next i For i = 0 To n - 1 '\u6bcf\u884c20\u6392\u5217\u5728\u56fe\u7247\u68462\u4e2d If i Mod 20 = 0 Then Picture2.Print Picture2.Print c(i); Next iEnd SubPrivate Function Issushu(a As Integer) As Boolean'\u5224\u65ad\u7d20\u6570\u7684\u5b50\u51fd\u6570 Dim i% Issushu = True For i = 2 To Sqr(a) If a / i = Int(a / i) Then Issushu = False: Exit For Next iEnd Function
根据素数定义判断即可
public class Test {
public static void main(String[] args) {
int[] arr = new int[100];
System.out.print("随机数组为：");
for(int i = 0; i < arr.length; i++) {
arr[i] = (int) (Math.random() * 1000);
System.out.print(arr[i] + ",");
}
System.out.println();
StringBuilder primeBuilder = new StringBuilder();
StringBuilder notPrimeBuilder = new StringBuilder();
for(int i : arr) {
if(isPrime(i)) {
primeBuilder.append(i + ",");
} else {
notPrimeBuilder.append(i + ",");
}
}
System.out.println("素数有：" + primeBuilder.toString());
System.out.println("非素数有：" + notPrimeBuilder.toString());
}
public static boolean isPrime(int n) {
boolean flag = true;
if(n < 2) {
flag = false;
}
for(int i = 2; i < Math.sqrt(n); i++) {
if(n % i == 0) {
flag = false;
}
}
return flag;
}
}
绛旓細鍥炵瓟锛歩mport random print set([random.randint(0,999) for _ in range(100)])
绛旓細绗竴 妤间笂鐨勪笉鏄疌++\x0d\x0a\x0d\x0a绗簩 鍦╒C6 涓嬫ゼ涓婄殑鏍规湰閫氫笉杩嘰x0d\x0a鎶ラ敊 ror C2065: 'rand: undeclared identifier\x0d\x0a鏇翠笉鐢ㄨdo {}while ();缁撴瀯杩樺啓閿欎簡\x0d\x0a\x0d\x0a绗笁 妤间笂鏁堢巼寰堜綆\x0d\x0a 妤间笂鐨勬槸鐢熸垚0鍒65535鐨勯殢鏈烘暟 鐒跺悗鎶0鍒999涔嬮棿鐨瀛樺叆鏁扮粍...
绛旓細鍙互鐢╲b缂栫▼锛岀紪杈戜竴涓畻娉曞彲浠ユ眰鍑烘潵
绛旓細涓轰簡渚夸簬鏄剧ず杩欎箞澶氭暟锛屽厛寤虹珛涓涓猯istbox1鎺т欢 Private Sub Form_Click()Dim d As Long Dim n As Integer d = 0 List1.Clear For i = 0 To 99 n = Int(Rnd * 900) + 100 List1.AddItem n d = d + n Next i List1.AddItem d End Sub ...
绛旓細灏嗕綘鐢熸垚鐨闅忔満鏁版斁鍦ㄤ竴涓嚎鎬ц〃涓紝杈圭敓鎴愯竟鎺掑簭锛岀敓鎴愪竴涓彃鍏ヤ竴涓紝鍙互璇村悓鏃跺疄鐜颁簡鎻掑叆鎺掑簭锛屼絾鏄湁鐐逛笉鍚岋紝浣犻渶瑕佸皢閬囧埌鐩稿悓鐨勬暟锛屼綘闇瑕侀噸鏂板湪鐢熸垚涓涓殢鏈烘暟锛岀洿鍒颁笉鍚屽湪鎻掍簬杩涘幓锛屽叿浣撳仛娉曟槸澶栧眰鏄竴涓猣or寰幆锛100娆★紝鍐呭眰鐢╠o while璇彞锛屽皢鐢熸垚鐨勯殢鏈烘暟鎻掍簬锛屾彃浜庢帓搴忓彲浠ュ弬鑰冩暟鎹帴鍙ｏ紝...
绛旓細Dim max As Integer, min As Integer '澹版槑涓や釜鍙橀噺瀛樻渶澶у煎拰鏈灏忓 min = 1000: max = 0 '璁剧疆鍒濆 For i = 1 To 100 '寰幆100娆 a(i) = Int(Rnd() * 1000 + 1) '鐢╮nd鐢熸垚涓涓殢鏈烘暟 鐢变簬rnd鑼冨洿涓0-1涔嬮棿鐨灏忔暟.鎵浠*1000璁剧疆浠栫殑鑼冨洿涓0鍒999涔嬮棿 鍔1鍙樻垚1鍒1000...
绛旓細杈撳嚭1-999鐨闅忔満鏁帮紝鐒跺悗杈撳嚭涓哄瓧绗︿覆锛屽鏋滀笉瓒3浣嶅墠闈㈣ˉ0 var random = new Random(Guid.NewGuid().GetHashCode()); // 鐢熸垚100涓闅忔満鏁 for (int i = 0; i < 100; i++) { var next = random.Next(1, 1000); var str = string.Format("{0:000}", next); ...
绛旓細' 浜х敓20涓1-100涔嬮棿鐨涓嶉噸澶嶉殢鏈烘暟 Public Sub RndNumberNoRepeat1()Dim RndNumber, temp(20), i, k, Maxrec As Integer Randomize (Timer) '鍒濆鍖栭殢鏈烘暟鐢熸垚鍣 Maxrec = 100 ' 浠嶢21寮濮嬭緭鍑洪殢鏈烘暟 k = 0 Do While k < 20 RndNumber = Int(Maxrec * Rnd) + 1 temp(k) = Rnd...
绛旓細閲囩敤濡備笅鍏紡涔嬩竴 =RANDBETWEEN(100,999) 2003鐗堟湰 瑕佸湪宸ュ叿鑿滃崟涓 鍗曞嚮鍔犺浇瀹 鍕鹃 鍒嗘瀽宸ュ叿搴 纭畾 鎵嶈兘搴旂敤姝ゅ嚱鏁 =INT(RAND()*900)+100 =INT(RAND()*900+100)=CEILING(RAND()*899,1)+100
绛旓細void rand_init(void)//闅忔満绉嶅瓙鍒濆鍖栧嚱鏁 { srand( (unsigned)time( NULL ) ); //鐢ㄧ郴缁熸椂闂村綋绉嶅瓙锛屽闅忔満鍑芥暟杩涜鍒濆鍖 } unsigned int get_rand_value(void)//鑾峰彇涓涓殢鏈烘暟鍊煎嚱鏁 { unsigned int tmp,result;tmp = rand()%900;result = tmp+100;return (result);} 鐢ㄦ硶锛氬厛...
