MTALAB软件编程.docVIP

15297901687 114930 第1题 function f=di1(n)%可以输入任意长度的数组 for i=1:length(n)%length(n)判断输入的数组的长度 for j=(i+1):length(n) if n(i)n(j) min=n(i); n(i)=n(j); n(j)=min; end end end n function f=di1(a,b,c,d,e)%只能输入长度为5的数组 for i=1:4 for j=(i+1):5 if n(i)n(j) min=n(i); n(i)=n(j); n(j)=min; end end end n 第2题 function f=(x) n=length(x); for i=1:n fprintf(%d\t,x(n-i+1)); end 第3 题 function f=di3(n) input(请输入一个字符：) if n=Zn=A s=char(abs(n)+32) elseif n=zn=a s=n else fprintf(Dataerror!) end 第4题 function f=di4(n) s=0; while n=1 n=n/10; s=s+1; end s 第5题 function f=di5() s=0; for i=1:9 n=1; for j=1:i n=n*(j+1); end s=s+n; end s+1 第6题 function f=di6(a,n) sum=0; s=0; for i=1:n s=s+a*10^(i-1); sum=sum+s; end sum 第7题 function f=di7(n) if n=0.000001 sum=0; for i=1:n sum=sum+1/i; end end sum 第8题 function f=di8(s) sum=0; for i=1:3 j=i; sum=sum+s(i,j); end sum 第9题 function di9() x=input(please input ten numbers\n) for i=1:10 if mod(x(i),7)==0 fprintf(%d\n,x(i)) break else fprintf(“not exist”\n) end end 第10题 function f=di10(x) if x=800 s=0 elseif x=2000 s=(x-800)*0.05 elseif x=5000 s=(x-800)*0.05+(x-2000)*0.1 else s=(x-800)*0.05+(x-2000)*0.1+(x-10000)*0.4 end 第11题 function f=tu() for i=1:5 fprintf(\n); for j=1:(11-2*i) fprintf(); end end 第12题 function f=di12() for i=1:1000 if isprime(i) fprintf(%d\t,i); end end 第13题 function f=di13(a,b) s=a+b; s1=a*b; s2=a-b; s3=a/b; fprintf(%d+%d=%d\n,a,b,s); fprintf(%d*%d=%d\n,a,b,s1); fprintf(%d-%d=%d\n,a,b,s2); fprintf(%d/%d=%d\n,a,b,s3); end 第14题 function f=di14(x) s=char(x); fprintf(%d,%c\n,abs(s-1),s-1); fprintf(%d,%c\n,abs(s),s); fprintf(%d,%c\n,abs(s+1),s+1); end 第15题 function f=di15(a,b,c) if abbca-bca-cbb-ca s=((a+b+c)/2); p=sqrt(s*(s-