第一篇：采矿CAD上机实验报告

采矿CAD上机实验报告

课程名称：采矿班

级：采矿姓

名：付孟雄学

号：指导老师：李宝富老师

CAD绘图实用教程 10-3班

311002010306

第二篇：上机实验报告格式

请各位同学按照下列格式写：否则按照0分记

上机实验报告格式

Matlab学习第？次上机实验报告（第？次）

姓名：？？？班级:???上机时间：？？？？？？

1.上机内容

2.建模及算法分析

3.程序

4.小结

5.参考文献

将文档发到我的邮箱里面

learn_matlab@163.com

第三篇：上机实验报告

一． 题目1． 建立一个学生档案，内容包括学号，姓名，年龄，性别，数学，物理和英语3门功课成绩。要求实现以下功能：1)数据输入；2)查询某个学生的成绩；3)按平均排列输出；4)统计某门课各分数段人数；5)删除某个学生记录；2． 编程实现对二位数进行加，减，乘运算，每运行一次程序做10道题，完成后给出成绩（每题10分）。二． 设计思想和模块划分1.1．先定义所需要的条件，例如，姓名，学号，性别，三门功课的成绩，平均分等。2．输入姓名，学号，性别，年龄，三门功课的成绩后，就输出相应的姓名，学号，性别，年龄，三门功课的成绩。3．打印表头；4．在求出平均分，并打印出平均分。5．在查找学生，并打印出学生的相关资料；并按照平均分的高低排列；6．在统计学生各科成绩是否》=60分，如果是就是通过，否就是没通过，最后打印出最后的结果。7．删除学生，选中删除的学生，如果确定要，那么该学生的一切记录就变为0；2．1．随机调用函数，产生两个其值为10到99的随机整数分别放在c,d中用作运算时的运算数。2．随机调用函数，产生一个值为1到3 的随机整数放入b中，用来选择不同的运算。根据b的值选择不同的运算。当b=1时，去进行c+d的运算练习；当b＝2 时，去进行c-d的运算练习；当b=3时，去进行c×d的运算练习。每完成一个算题就给出是否正确的信息。3．根据答案正确与否统计。正确时，显示’right’;错误时，显示’wrong’。4．步骤1.2.3.4.重复10次。5．输出学生成绩。三． 运行结果1.Input the 1 student :num:03name:wfage:18sex:fmath:98phy:75eng:65Input the 2 student :num:06name:scage:17sex:fmath:78phy:45eng:65Input the 3 student :num:09name:ytage:17sex:mmath:69phy:75eng:501.readin 2.finds 3.del 4.tj 5.exit1-----------------------------table----num name age sex math phy eng ave------3 wf 18 f 98.0 75.0 65.0 79.3------9 yt 17 m 69.0 75.0 50.0 64.7-------6 sc 17 f 78.0 45.0 65.0 62.7-------1.readin 2.finds 3.del 4.tj 5.exit2Into number:3---num name age sex math phy eng ave---3 wf 18 f 98.0 75.0 65.0 79.3----1.readin 2.finds 3.del 4.tj 5.exit3Into number:6---num name age sex math phy eng ave---6 sc 17 f 78.0 45.0 65.0 62.6---true? Y/Ny1----------------table------------------num name age sex math phy eng ave----3 wf 18 f 98.0 75.0 65.0 79.3-----9 yt 17 m 69.0 75.0 50.0 64.7-----0 0 0 f 0.0 0.0 0.0 0.0-----1.readin 2.finds 3.del 4.tj 5.exit4 1.input the math 2.input the phy 3.input the eng 1math: pass num is :3 no pass num is :02.32+82=114right!97*15=1455right!99-58=41right!76-66=10right!58+13=71right!37+49=86right!99+52=151right!49*69=5462wrong!73-38=31wrong!86+34=120right!mark is 80四． 主要错误改正方法1.在本题的编写过程中常出现begin 和end 不配对，只要始它们的个数相同就可以了，就可以了。在程序中常出现的’unknown identifier’没有定义的错误，只要在程序前加上定义，就可以了。还有就是type mismatch’的类型不匹配，只要根据前后内容，重新定义，就可以了。2.在本题编写中，题目要求是两个两位数运算，如果写成c:=random(100)在运行过程中，就会出现一位数运算，只要把它写成c:=random(90)+10，就可以了。五． 实习小结1．第一题的程序编写比较复杂，需要较多的定义，因而在后面的程序部分，就常出现标识符重复，而导致的类型不匹配。还有就是每个部分编好后，上下不能连接，而无法调用。2．第二题较第一题简单，和书上的例题类似，所以，比较简单，但从中也出现一些不问题。以上两大题中出现的问题，要在同学的帮助下，才能完成。总的来说两题程序比较困难六． 程序清单1.program twins;const m=3;n=3;typestudent=recordnum:integer;name:string[3];age:integer;sex:char;s:array[1..n] of real;math,eng,phy:real;ave:real;end;sarr=array[1..m] of student;ta=array [1..m] of student;f=string[6];varstu:sarr;ct:ta;k,d:integer;procedure readin(var stu:sarr);const wrong='0<=data<=100 ,again!';var j,i:integer;a:student;beginwriteln;writeln('Input ',m,' num name sex math phy eng',' of student.');for j:=1 to m dobeginwriteln;writeln('Input the ',j,' student :');with a dobeginwrite('num:');readln(num);write('name:');readln(name);write('age:');readln(age);write('sex:');readln(sex);while(sex<>'m')and(sex<>'f')dobeginwrite('sex:');readln(sex)end;for i:=1 to n do begincase i of1:begin write('math:');readln(s[i]);while(s[i]<0)or(s[i]>100)dobeginwriteln(wrong);write('math:');readln(s[i]);end;end;2:begin write('phy:');readln(s[i]);while(s[i]<0)or(s[i]>100)dobeginwriteln(wrong);write('phy:');readln(s[i]);end;end;3:begin write('eng:');readln(s[i]);while(s[i]<0)or(s[i]>100)dobeginwriteln(wrong);write('eng:');readln(s[i]);end;end;end;end;stu[j]:=a;end;writeln;end;end;procedure ave(var stu:sarr);var j,i:integer;k:real;beginfor j:=1 to m dobegink:=0;with stu[j] dobeginfor i:=1 to n do k:=k+s[i];ave:=k/nend;end;end;procedure px(var stu:sarr);var tm:ta;j,i,p:integer;beginfor j:=1 to m dobeginp:=j;for i:=j+1 to m doif stu[i].ave>stu[p].ave then p:=i;tm[1]:=stu[p];stu[p]:=stu[j];stu[j]:=tm[1];end;end;procedure head(ct:ta);var i:integer;beginwrite(' ');for i:=1 to 72 do write('-');writeln;write('',' num':4,' ','name':9,' ','age':8,' ','sex':5,' ','math':6,' ','phy':9,' ','eng':8,' ');writeln('ave':6,' ');write(' ');for i:=1 to 72 do write('-');writeln;with ct[1] dobeginwrite('',num:7,' ',name:8,' ',age:8,' ',sex:5,' ');for i:=1 to n do write(s[i]:7,' ');write(ave:10,' ');writeln;end;write(' ');for i:=1 to 72 do write('-');writeln;end;procedure find(var stu:sarr);var n,i:integer;u:boolean;beginu:=true;while u dobeginwrite('Into number:');readln(n);for i:=1 to m dobeginif stu[i].num=n then beginct[1]:=stu[i];u:=false;d:=iend;end;end;end;procedure del(var stu:sarr);var i:integer;b:char;beginhead(ct);write('true? Y/N');readln(b);if b='y' then begin write('1');with stu[d] dobeginnum:=0;name:='0';age:=0;sex:='f';for i:=1 to n do s[i]:=0;ave:=0end;endelseend;procedure tj(var stu:sarr);var w1,q1,q2,num,j:integer;h1,h2,h3:boolean;beginh1:=false;h2:=false;h3:=false;q1:=0;q2:=0;writeln(' ':30,'1.input the math 2.input the phy 3.input the eng ');readln(w1);case w1 of1:h1:=true;2:h2:=true;3:h3:=true;end;if h1 thenbeginbeginfor j:=1 to m dowith stu[j] doif stu[j].math>=60 thenq1:=q1+1elseq2:=q2+1;writeln('math:');end;if h2 thenbeginbeginfor j:=1 to m dowith stu[j] doif stu[j].phy>=60 thenq1:=q1+1elseq2:=q2+1;writeln('phy:');end;if h3 thenbeginbeginfor j:=1 to m dowith stu[j] doif stu[j].eng>=60 thenq1:=q1+1elseq2:=q2+1;writeln('eng:');end;end;end;end;writeln(' ':5,'pass num is :',q1);writeln(' ':5,'no pass num is :',q2);end;procedure head1(var stu:sarr);var j,i:integer;beginwriteln('----------------table--------------':60);writeln;write(' ');for i:=1 to 72 do write('-');writeln;write('',' num':4,' ','name':9,' ','age':8,' ','sex':5,' ','math':6,' ','phy':9,' ','eng':8,' ');writeln('ave':6,' ');write(' ');for i:=1 to 72 do write('-');writeln;for j:=1 to m do beginwith stu[j] dobeginwrite('',num:7,' ',name:8,' ',age:8,' ',sex:5,' ');for i:=1 to n do write(s[i]:7:1,' ');write(ave:10:1,' ');writeln;end;write(' ');for i:=1 to 72 do write('-');writeln;end;end;beginreadin(stu);ave(stu);k:=0;while k<>5 dobeginwriteln('1.readin 2.finds 3.del 4.tj 5.exit');read(k);readln;while(k<>1)and(k<>2)and(k<>3)and(k<>4)and(k<>5)dobeginwriteln(' mistake,please again');read(k)end;case k of1: begin px(stu);head1(stu)end;2: begin find(stu);head(ct)end;3: begin find(stu);del(stu);px(stu);head1(stu)end;4: begin tj(stu);end;5: writeln('exit!');end;end;end..2.program shadow;var a,b,c,d,e:integer;right:boolean;procedure s1;beginwriteln('right!');right:=trueend;procedure s2;beginwriteln('wrong!');right:=falseend;procedure s3(x,y:integer);var h:integer;beginwrite(x,'+',y,'=');readln(h);if h=x+y then s1else s2 end;procedure s4(x,y:integer);var h,w:integer;beginif x

第四篇：CAD实验报告格式

实验一

AutoCAD基本操作

一、实验目的和要求

1、熟悉CAD软件界面；

2、掌握利用鼠标、键盘操作绘图界面；

3、掌握图层设置；

4、掌握命令输入的各种方法。

二、实验内容

1、AutoCAD的启动；

2、AutoCAD的界面组成；

3、文件操作：命名、保存；

3、AutoCAD命令输入方式；

4、设置图层：中心线、粗实线、细实线、虚线；

5、绘制直线。

三、主要仪器

计算机、AutoCAD软件

四、操作方法与结果

1、启动AutoCAD；

2、设置图层：中心线、粗实线、细实线、虚线；

3、用line命令绘制正方形，边长为100mm;

4、命名文件为“学号+姓名”，并保存。实验二

AutoCAD二维图形绘制

一、实验目的和要求

1、掌握二维绘图命令；

2、掌握坐标输入方法；

3、掌握偏移命令；

4、掌握修剪命令。

二、实验内容

1、用直线命令绘制多边形；

2、用矩形命令绘制矩形；

3、绘制图框；

3、绘制标题栏；

三、主要仪器

计算机、AutoCAD软件

四、操作方法与结果

1、设置图层：中心线、粗实线、细实线、虚线；

2、绘制A4图框；

3、在A4图框中绘制标题栏;

实验三

AutoCAD二维图形绘制

一、实验目的和要求

1、掌握二维绘图命令；

2、掌握移动命令；

3、掌握旋转命令；

4、掌握镜象命令。

二、实验内容

1、完成A4图框绘制；

2、绘制几何图。

三、主要仪器

计算机、AutoCAD软件

四、操作方法与结果

1、设置图层：中心线、粗实线、细实线、虚线、作图线；

2、绘制完成A4图框；

3、综合运用作图命令，绘制几何图形。

实验四

图案填充

一、实验目的和要求

1、掌握图案填充方法；

2、掌握渐变色填充方法；

3、掌握填充图案编辑方法。

二、实验内容

1、在图形中填充图案；

2、在图形中填充渐变色；

3、编辑填充图案。

三、主要仪器

计算机、AutoCAD软件

四、操作方法与结果

1、填充各类剖面图案；

2、调整填充图案格式；

3、完成图案和渐变色填充。

实验五

文字书写

一、实验目的和要求

1、掌握文字样式设置；

2、掌握单行和多行文字输入方法；

3、掌握文字编辑方法；

二、实验内容

1、设置文字样式；

2、创建单行文字；

3、创建多行文字；

4、编辑文字。

三、主要仪器

计算机、AutoCAD软件

四、操作方法与结果

1、调整字形、字高、对齐方式；

2、在A4图框标题栏中输入文字。

实验六

尺寸标注

一、实验目的和要求

1、掌握尺寸样式设置方法；

2、掌握各种类型尺寸标注方法。

二、实验内容

1、尺寸标注的规范要求；

2、创建长度型尺寸标注样式；

3、创建径向尺寸标注样式；

4、创建角度型尺寸标注样式；

5、编辑尺寸标注样式。

三、主要仪器

计算机、AutoCAD软件

四、操作方法与结果

1、在几何图形上标注尺寸。

实验七

综合绘图

一、实验目的和要求

1、综合运用绘图命令；

2、绘制并编辑图形；

3、完成尺寸标注；

二、实验内容

1、绘制练习册1-6图形；

三、主要仪器

计算机、AutoCAD软件

四、操作方法与结果

1、绘制图形；

2、标注尺寸；

3、将图形移入A4图框。

实验八

综合绘图

一、实验目的和要求

1、综合运用绘图命令；

2、绘制并编辑图形；

3、完成尺寸标注；

二、实验内容

1、绘制练习册1-7图形；

三、主要仪器

计算机、AutoCAD软件

四、操作方法与结果

1、绘制图形；

2、标注尺寸；

3、将图形移入A4图框。

第五篇：cad实验报告

预习报告成绩： 指导教师审核（签名）： 年 月 日

预习报告

1、实验目的

（1）了解完整的PCB板设计工序及方法；（2）掌握制作元件原理图库、封装库的方法；（3）掌握PCB板设计方法及其后处理。

2、实验用仪器设备、器材或软件环境

（1）微机（最低配置: Pentium 4 CPU, 128M内存）；（2）Protel DXP软件（最低版本：V7.0）；

（3）Windows2000/XP环境、MS Office 2000以上版、Adobe Acrobat 5.0以上版。

3、设计要求

本实验要求在Protel DXP软件平台上设计GPS定位系统电路的PCB板，GPS定位系统电路图见附录1。具体要求如下：

（1）采用双面板设计PCB（外形及尺寸根据具体电子系统合理布局）；（2）PCB板中的过孔为穿透式、元件安装方式为单面安装；

（3）PCB板中的信号导线的宽度≥10mil、电源导线宽度≥30mil，其他参数自定。

4、芯片封装信息

查找ATmega32芯片，在美国atmel公司http://www.teniu.cc/dyn/products/product_card.asp?part_id=2014网上查阅了芯片封装信息，详细数据如下：

内蒙古工业大学信息工程学院

内蒙古工业大学信息工程学院

实验报告成绩： 指导教师审核（签名）： 年 月 日

实验报告

一、仪器设备型号及编号 LENOVO F41

二、实验器材或软件环境

（1）Protel DXP2004（2）Windows2002环境、MS Office 2007、Adobe Acrobat 5.0

三、实验步骤、程序调试方法

1、设计原理图元件

Protel DXP提供了丰富的原理图元件库，没有元件ATMEGA32，建立自己的元件库。

2、绘制原理图

找到所有需要的原理元件后，开始原理图绘制。完成原理图后，用 ERC(电气法则检查)工具查错。找到出错原因并修改原理图电路，重新查错到没有原则性错误为止。

3、设计元件封装

和原理图元件库一样，Protel DXP部分元件的封装。没有得元件须自行设计并建立新的元件装库。

4、设计 PCB板

确认原理图没有错误之后，开始 PCB板的绘制。首先绘出 PCB板的轮廓，确定工艺要求。然后将原理图传输到 PCB板中来，在网络表(简单介绍来历功能).设计规则和原理图的引导下布局和布线。

5、元器件的布局

Protel DXP 提供了强大的自动布局功能,在预放置元件锁定的情况下,可用自动布局放置其他元件。在Auto Place 对话框中选择自动布局器。Protel DXP提供布局。

6、自动布线

在布线质量满足设计要求的情况下，可使用自动布线器以提高工作效率装。

7、布线后的调整完善

布通之后，对布线进行手工初步调整。调整的内容有：需加粗的地线、电源线、功率输出线等进行手动加粗；某几根绕得太多，太过繁琐的线重布；消除部分不必要的过孔。

另外，我们还要切换到单层显示模式下将每个布线层的线拉整齐和美观。手工调整时应经常进行DRC，因为有时有些线会断开。快完成时可将每个布线层单独打印出来以方便改线。调整完毕后用VIEW3D功能查看实际效果。

四、实验数据处理及结果分析（1）GPS定位系统电路原理图

内蒙古工业大学信息工程学院

（2）ATMEGA32元件封装图

（3）PCB板正面

内蒙古工业大学信息工程学院

PCB板反面

（4）3D效果图

内蒙古工业大学信息工程学院

五、实验中存在的问题

protel 2004 dxp 在pcb布线时，手工放置几个焊盘后，想从其他元器件引线连接到焊盘上，导线变红，变红就是报错了，因为这时候放的焊盘和将要跟它连接到一起的元器件不在一个网络上。现在状态下修改的方法就是双击焊盘修改它的网络与将要跟它连接到一起的元器件网络一致，关闭设置对话框就可以了。再有就是把现在的焊盘删除，重新在导线上直接放置焊盘，之后载调节焊盘到合适位置。

六、体会及思考题

在实训的一周里我不仅了解到了实在的学习内容，并且对专业以外的知识做了很深的了解，当我们要去学习或研究一门技术或学问时，去了解有关这门技术或学问的历史背景是非常重要的，这也就是“寻根”。欲学习一门技术或学问却不去了解它的历史，将有如无根之萍，无法深入并获得其中的乐趣!我们每画的一个零件图就好象跟CAD的历史一样，一步一步的渐进，自己从中吸取很多的精华，例如，当尺寸没有按照标准画时，在标注尺寸的时候就需要修改数据，不仅影响到了图的雅观，还直接影响了图的真实性，所以在画图过程中就要很细心，一步一步慢慢来，做到精确，无误差，在比如，在修剪多余直线的时候很有可能会出先剪不掉的现象，我经常遇到，那是因为连线的时候线与线之间根本就没有连接在一起，表现出作图不扎实的意思，在老师的帮助下，我改正了这个不好的习惯，作图，就要用心去做，扎扎实实的完成任务！

总之，在本周的CAD实训中，我感觉我学到的东西比一个学期学的东西还多，绘图技巧在平常的学习中是学不到，我希望以后能够有更多的这种实训的机会，这一周感觉过的很充实，我也真正的融入到了学习当中去，别无他思，一切都还不错，感觉非常好