已知数据文件in.dat中存有300个四位数,并已调用读函数ReadDat()把这些数存入数组a中,请编制一函数jsValue(),其功能是:求出所有这些四位数是素数的个数cnt,再把所有满足此条件的四位数依次存入数组b中,然后对数组b的四位数按从小到大的顺序进行排序,最后调用写函数writeDat()把结果输出到out.dat文件。
例如:5591是素数,则该数满足条件存入数组b中,且个数cnt=cnt+1。9812是非素数,则该数不满足条件忽略。
部分源程序存在文件prog1.c中。
程序中已定义数组:a[300],b[300],已定义变量:cnt
请勿改动主函数main()、读函数ReadDat()和写函数writeDat()的内容。
#include <stdio.h>
int a[300],b[300],cnt=0
int isP(int m){
int i
for(i=2i<mi++)
if(m%i==0)return 0
return 1
}
jsValue()
{int i,j,value
for(i=0i<300i++)
if(isP(a[i])) b[cnt++]=a[i]
for(i=0i<cnt-1i++)
for(j=i+1j<cntj++)
if(b[i]>b[j]) {value=b[i]b[i]=b[j]b[j]=value}
}
main()
{
int i
readDat()
jsValue()
writeDat()
printf("cnt=%d\n",cnt)
for(i=0i<cnti++) printf("b[%d]=%d\n",i,b[i])
}
readDat()
{
FILE *fp
int i
fp=fopen("in.dat","r")
for(i=0i<300i++)fscanf(fp,"%d,",&a[i])
fclose(fp)
}
writeDat()
{
FILE *fp
int i
fp=fopen("out.dat","w")
fprintf(fp,"%d\n",cnt)
for(i=0i<cnti++)fprintf(fp,"%d\n",b[i])
fclose(fp)
}
写了个小东西,希望对你有帮助<html>
<head>
<script>
function cal(n) {
var r = ''
if (n) {
for (var i = 0i <ni++) {
if (isPrime(i)) {
r += i + ' '
}
}
}
return r
}
function isPrime(number) {
if (number <2) {
return true
} else {
for (var j = 2j <= Math.sqrt(number)j++) {
if (number % j == 0) {
return false
}
}
}
return true
}
function filter(obj) {
var r = /^\d+$/
var r2 = /\D+/
if (!r.test(obj.value)) {
obj.value = obj.value.replace(r2, '')
}
document.getElementById('base2').value=cal(document.getElementById('base').value)
}
</script>
</head>
<body style="font-size:12px">
数字<input type='input' id='base' onkeyup='filter(this)'/>
<br>
质数结果如下<textarea style="font-size:12pxwidth=200" id='base2' readonly='true' cols="10" rows="10"></textarea>
</body>
</html>