程序如下:
%输出1-1000的质数
'1-1000的质数有:'
for m=1:1000
n=fix(sqrt(m))+1;
for k=2:n
if mod(m,k)==0,break,
end %中止循环
end
if k==n
disp(m)
end
end
希望对你有帮助!
clc
clear all
Count=1000;
PrimeNum=zeros(1000,1);
j=1;
for i=1:1:Count
if(isprime(i))
PrimeNum(j)=i;
j=j+1;
end
end
PrimeNum(PrimeNum==0)=[];
disp(PrimeNum);