计算机22班上机实验报告王昭蓉_第1页
计算机22班上机实验报告王昭蓉_第2页
计算机22班上机实验报告王昭蓉_第3页
免费预览已结束,剩余5页可下载查看

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、 黑白球问题源代码:#include using namespace std;void search(int n,int value,int &count)for(int j=0;j2;j+)valuen=j;if (n=1)int temp=0; int sum=0;for(int k=1;k=27;k+) sum=sum+valuek;if(sum=13)for(int i=1;i=25;i=i+3)18 条/水平线if (valuei=valuei+1)if(valuei+1=valuei+2) temp+;for(i=1;i=3;i+)if(valuei=valuei+3) if(va

2、luei+3=valuei+6)temp+; if(valuei+9=valuei+12)if(valuei+12=valuei+15) temp+;if(valuei+18=valuei+21) if(valuei+21=valuei+24)temp+;for(i=1;i=9;i+)if(valuei=valuei+9)/9 条垂直线if(valuei+9=valuei+18)temp+;/6 条水平面对角线for(i=1;i=19;i=i+9)if(valuei=valuei+4) if(valuei+4=valuei+8)temp+; if(valuei+2=valuei+4)if(va

3、luei+4=valuei+6) temp+;/12 条垂直面对角线for(i=1;i=7;i=i+3)if(valuei=valuei+10) if(valuei+10=valuei+20)temp+;if(valuei+2=valuei+10)if(valuei+10=valuei+18)temp+;for(i=1;i=3;i+)if(valuei=valuei+12) if(valuei+12=valuei+24)temp+; if(valuei+6=valuei+12)if(valuei+12=valuei+18) temp+;/4 条对角面对角线if(value1=value14)i

4、f(value14=value27) temp+;if(value3=value14)if(value14=value25) temp+;if(value7=value14) if(value14=value21)temp+; if(value9=value14)if(value14=value19) temp+;if(temp count)count = temp;elsen-;search(n,value,count); n+;int main()int n = 27; int m = 49;int &count = m;int *value = new intn+1; search(n,

5、value,count);cout 单球的最少线数为: count 0.5if neighbors=3 s=s+1;endendendendends结果:(2)n=4 程序: s=0;n=4;for j1=1:4for j2=1:4for j3=1:4for j4=1:4a1=j1;a2=j2;a3=j3;a4=j4;amax=max(a1,a2,a3,a4);amin=min(a1,a2,a3,a4);numbers=(amax-a1)*(a1-amin)+(amax-a2)*(a2-amin)+(amax-a3)*(a3-amin)+(amax-a4)*(a4-amin);neighbor

6、s=max(abs(a1-a2),abs(a2-a3),abs(a3-a4); if numbers0.5if neighbors=3 s=s+1;endendendendendends结果:(3)n=5 程序: s=0;n=5;for j1=1:4for j2=1:4for j3=1:4for j4=1:4for j5=1:4a1=j1;a2=j2;a3=j3;a4=j4;a5=j5;amax=max(a1,a2,a3,a4,a5);amin=min(a1,a2,a3,a4,a5);numbers=(amax-a1)*(a1-amin)+(amax-a2)*(a2-amin)+(amax-a

7、3)*(a3-amin)+(amax-a4)*(a4-amin)+(amax-a5)*(a5-amin);neighbors=max(abs(a1-a2),abs(a2-a3),abs(a3-a4),abs(a4-a5);if numbers0.5if neighbors=3 s=s+1;endendendendendend ends结果:以此类推:(4)n=6 结果:1776(5)n=7 结果:8216(6)n=8结果:366403 大学生就业问题源代码:a=1,3/4,3/2,3/2;4/3,1,2,2;2/3,1/2,1,1;2/3,1/2,1,1;n,n=size(a); p=ones

8、(n,100); q=ones(n,100); m=zeros(1,100); m(1)=max(p(:,1);q(:,1)=p(:,1);p(:,2)=a*q(:,1);m(2)=max(p(:,2);q(:,2)=p(:,2)/m(2);l=0.0001;i=2;k=abs(m(2)-m(1);while kpi=i+1; p(:,i)=a*q(:,i-1);m(i)=max(p(:,i);q(:,i)=p(:,i)/m(i);k=abs(m(i)-m(i-1);end a=sum(q(:,i);w=q(:,i)/a; t=m(i);w运行结果4 水塔流量一的容器装满水,上底面半径为r=1m,高度为H=5m,在下地面有一面积为0.001 m2 的小圆孔,现在让水从小孔流出,问水什么时候能流完?B用 Methamatic 解题的程序代码:H=5; r=1;S=p; B=0.001;29.85V=;pionts=5,0; Fort=1,H0.001,t=t+1,h=1*V*B/S; H=H-h;29.8HV=;r=r+h/5; S=p*r2;pionts=Appendpionts,H,t;Print水流完需要的时间为 :,

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论