(答案)專：程序設(shè)計(jì)一

1、文件的命名：如：2022040108溫玲玲程序設(shè)計(jì)題目、試編程實(shí)現(xiàn)以下問(wèn)題公式求 的近似值,直到誤差小于10 61 1 11. 利用一1 -4357k=1;s=0;while 4/(2*k-1)>10A(-6) s=s+(-1F(k+1)/(2*k-1); k=k+1;endpai=4*s結(jié)果：pai =112. 應(yīng)用e 1 1 近似求e之值，要求誤差小于102!n!程序：k=1;s=1;while 1/prod(1:k)>10A(-6)s=s+1/prod(1:k);k=k+1;ende=s結(jié)果：e =3. 求100,200之間的素?cái)?shù)I.for循環(huán)程序：for m=101:2:2

2、00k=fix(sqrt(m);for i=2:k+1if rem(m,i)=0break;endendif i>=k+1% 除遍了所有( 2 到 K+1 ) disp(int2str(m)endend或者：(以數(shù)組的形式顯示) u=0;for m=101:2:200k=fix(sqrt(m);for i=2:k+1if rem(m,i)=0 break;endendif i>=k+1u=u+1;a(u)=m;endendb=a'II.while 循環(huán)程序：m=101;while m<200k=fix(sqrt(m);i=2;while i<=k+1if rem

3、(m,i)=0break;endi=i+1;endif i>=k+1disp(int2str(m)endm=m+2;end或：i=1;x=;for j=100:200if isprime(j)=1% 此命令可直接判斷 j 是否為素?cái)?shù)x(i)=j;endi=i+1;end4. 假設(shè)一個(gè)數(shù)等于它各個(gè)真因子之和，那么稱該數(shù)為完數(shù)，如 6=1+2+3 ，所以 6 就是完數(shù)，求 1,500 之間的全部完數(shù)。程序： for m=1:500s=0;for k=1:m/2if rem(m,k)=0 s=s+k;endendif m=sdisp(m)endend5. 列出所有的水仙花數(shù) , 水仙花數(shù)是一個(gè)

4、三位數(shù) , 其各位數(shù)字立方和等于該數(shù) 本身 .例如: 153 13 53 33程序： 程序 1 ：for a=1:9for b=0:9for c=0:9abc=100*a+10*b+c;if abc=a.A3+b.A3+c.A3disp(abc)endendendend程序 2 ：k=1;for a=1:9for b=0:9for c=0:9abc=100*a+10*b+c;if abc=a.A3+b.A3+c.A3shuixianhua(k)=abc;k=k+1;endendendend shuixianhua 結(jié)果： shuixianhua =153 370 371 407 程序 3： f

5、or m=100:999m1=fix(m/100);% 求 m 的百位數(shù)字m2=rem(fix(m/10),10);% 求 m的 10 位數(shù)字 m3=rem(m,10);if m=m1*m1*m1+m2*m2*m2+m3*m3*m3 disp(m)endend6. 寫(xiě)出小于 5000 的、立方的末四位是 8888 的所有自然數(shù)的程序 程序： clear;clcn=5000;ii=1;for kj=1:5000if rem(kjA3,10000)=8888 shu(ii)=kj;ii=ii+1;endendshu結(jié)果：shu =1942 44427. 求雞兔同籠問(wèn)題，頭共 36，腳共 100.求

6、雞、兔各多少？ 程序：i=1;while 1if rem(100-i*2,4)=0&(i+(100-i*2)/4)=36break;endi=i+1;end a1=i a2=(100-2*i)/4a1 =22 a2 =14、請(qǐng)編寫(xiě)函數(shù) M 文件解決以下問(wèn)題221，定義多元函數(shù) f(x,y) (x2 y2)e (x y ) ，并用它來(lái)計(jì)算 f( 2,3) 、 f (3, 4) 、 f (0,0) ，并畫(huà)出它的圖形。答案： ( 填寫(xiě)程序語(yǔ)句和結(jié)果 ) 函數(shù)文件 hanshu4.mfunction fxy=hanshu4(a,b)fxy=(aA2+bA2)*exp(-(aA2+bA2);計(jì)算

7、： >>hanshu4(-2,3) ans =2.938428229075371e-005>> hanshu4(3,4),hanshu4(0,0)ans =ans =0>>繪圖程序：x=-2:0.01:2;y=x;xx,yy=meshgrid(x,y);zz=(xx.A2+yy.A2).*exp(-(xx.A2+yy.A2);mesh(zz)結(jié)果：0 02.用起泡法對(duì)10個(gè)數(shù)由小到大排序，即相鄰兩個(gè)比擬，將小的調(diào)到 前頭。程序1 :x=i nput('x=')n=len gth(x);for i=1:n% 比擬 n 輪for j=1:n-i

8、%兩個(gè)比擬第一輪比擬n-1次，。if x(j)>x(j+1)a=x(j);x(j)=x(j+1);x(j+1)=a;endendendy=x程序2.function y=qp(x)m,n=size(x);for i=1:n% 比擬 n 輪for j=1:n-i % 兩個(gè)比擬第一輪比擬 n-1 次，。 if x(j)>x(j+1) a=x(j);x(j)=x(j+1); x(j+1)=a;endendendy=x3.有一個(gè)4X5矩陣，編程求出最大值及其所處的位置 程序 1 ：x=input('x=') c,t=max(x);y,i=max(c);t(i);disp(' 最大值為： ',num2str(y)disp('位置為：,num2str(t(i),'行',num2str(i),'列')程序 2 ：fun