Mathematica编程语句和例题.pptVIP

例8 找出300至500之间同时能被3和11整除的自然数。 解: Mathematica 命令为: In[23]:= Do[If[Mod[i,13]== 0 Mod[i,3]== 0,Print[i]],{i,300,500}] Out[23]= 312 351 390 429 468 例9 找出方程在[0,100]内的整数解。 解: In[24]:= Do[z =100 – x - y; If[5x+3y+z/3==100,Print[x= ,x, y=,y, z=,z]]， {x,0,100},{y,0,100}] 得解 x= 0 y= 25 z= 75 x= 4 y= 18 z= 78 x= 8 y= 11 z= 81 x= 12 y= 4 z= 84 例10 对自然数k从1开始到10,取s=1做赋值s =s*k,并显示对应的值,直到s的值5终止。 解: In[25]:= s=1;Do[s*=k;Print[s];If[s5,Break[]], {k,1,10} ] 1 2 6 8.3.2 For 语句 命令形式：For[stat,test,