求解一TC编程题目!!!

发布网友发布时间：2024-10-10 01:00

共3个回答

热心网友时间：2024-10-23 12:41

#define N 100
main()
{
int S[N/2];
S[0]=2;
int k=0;
bool flag=true;
int end=0;
for(i=2;i<=100;i++)
{
while(k++<=end)
{
if (i%S[k]==0)
flag=false;
}
if flag==true
{
end=end+1;
S[end]=i;
printf(“%d“,i);
}

}
}
第二种
#Perl5
#! /usr/bin/perl
# 查找100以内的素数
use warnings;
use strict;
my @result;
my $number;
my $temp;
foreach $number(1..100)
{
if($number==1||$number==2||$number==3)
{ push(@result,$number); next; }
$temp=int sqrt($number);
for(2..$temp)
{
if($number%$_==0)
{ last; }
elsif($_==$temp)
{ push(@result,$number); last;}
else
{ next; }
}
}
print “查找到100以内的素数是：\n“;
print “@result\n“;

#D:\cbz\perl>perl c100ns.pl
#查找到100以内的素数是：
#1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97

参考资料：http://www.tianya.cn/techforum/Content/414/574.shtml

热心网友时间：2024-10-23 12:41

自己的作业自己做。

热心网友时间：2024-10-23 12:42

我以前写过这样的程序,不过在电脑里面还没找到，等下如果再没人给你回答的话,我就帮你找出来啊.