bfs练习-程序和教学目标锻炼分析问题训练编程

教学目标：锻炼分析问题，训练编3、将素数I加入到素数集中primes；begin---end;end. repeatuntil; ①Program，Const，Type，Var，Procedure，Function，Begin，End.ForI:=1tondoWhileexpressiondoIfexpressionthen1else或If Ifexpressionthen或IfexpressionthenEndelse程序样例{题目简介：筛法求素数算法分析：文件 作 ：2003年2月25日修改日期：复杂度分析}ProgramPrimber;TGather=setof

primes,sieve:TGather;{素数集合和筛子} whilenot(iinsieve)nc(i); forj:=1tondividosieve:=sieve-[i*j];untilsieve=[]; fori:=2tonifIinprimesthenbegininc(total);write(i:4);iftotalmod10=0thenwri * 称A、B为亲密数对)。252=625，6252525{题目简介计算１！＋２！＋～＋Ｍ！的和。算法分析：1、键盘输入M；文件 作 日 修改日期：复杂度分析单 ：阶乘}Program Fori:=1tomdoBegin{题目简介：输出１～９９９之间能被３整除，且至少有一位数字为５的所算法分析I3Imod至少有一位数字为 求出每一位;判断是否等于a:=Idivb:=Imod100div10，个位c:=Imod10;文件 作 日 修改日期复杂度分析单 ：枚举}Progratotal,i,a,b,c:integer;fori：=1to999dobegina:=idiv100;b:=(i-a*100)divc:=imodf:=(a=5)or(b=5)or(c=5);iffthenbeginiftotalmod10=0thenwrin;{题目简介：百元买百鸡问题。３元／公鸡、２元母鸡、０.５元／小鸡。算法分析：文件 作 日 修改日期：复杂度分析}Vari,j,k:integer;fori:=0to33forj:=0to50dobeginif3*i+2*j+0.5*k=100then {题目简介：算法分 ：1、键盘输入行数3、每行完 ① 输出不同数目的空格1---n-② 输出不同数目的星号 2*I-文件 作 日 修改日期：复杂度分析}Vari,j,n:integer;fori:=1tondoforj:=1ton-idowrite('');forj:=1to2*i-1dowrite(’*’); {题目简介：算法分 文件 作 日 复杂度分析}Vari,j,n:integer;fori:=1tondoforj:=1ton-idowrite('');forj:=1to2*i-1doifj<=ithenwrite(j)elsewrite(2*i-j);{题目简算法分：输入10：文件：作：日：修改日：}复杂度分：ProgramforI:=2ton