1-1000的素数用pascal语言怎么求？

千问 · 2011-8-24 04:31:16

用筛选法直接打的理解下思路就行了f:array[0..1000]ofboolean;先初始化fillchar(f,sizeof(f),1);fori:=2to1000doiffthen//i是素数beginwriteln(i);2到1000里i的倍数都设为false;end;

千问 · 2011-8-24 04:31:16

vari:integer;functioncheck(t:longint):boolean;vari,j:longint;begincheck:=true;fori:=2totrunc(sqrt(t))doiftmodi=0thenexit(false);end;beginfori:=2to1000doifcheck(i)thenwrite(i,\'\');end.

千问 · 2011-8-24 04:31:16

函数法varn,i:longint;functionss(n:longint):boolean;vari:longint;beginfori:=2tosqrt(trunc(n))doifnmodi=0thenexit(false);exit(true);end;beginfori:=2to1000do//由于1不是函数直接从2开始ifss(i)thenwrite(i,\'\');end.

千问 · 2011-8-24 04:31:16

筛法打表、