简单的编程代码

实验4 选择结构程序设计

1. 编写程序实现：由键盘输入三个字符，输出其中最大者。

参考方法：

#include void main()

{ char a,b,c,max; cout<<”Please input three charactors:\\n”; cin>>a>>b>>c; max=a; if(b>max) max=b; if(c>max) max=c; cout<<”Max_character is:”<

2. 编写程序实现：输入三角形三边的长，求三角形的面积。若输入的三个边能构成三角形，则计算其面

积并输出；否则输出提示信息。 参考方法：

#include #include void main()

{ double a,b,c,s,area; cout<<”Please input 3 floating number:\\n”; cin>>a>>b>>c; if(a+b>c&&b+c>a&&a+c>b) { s=(a+b+c)/2; area=sqrt(s*(s-a)*(s-b)*(s-c)); cout<<”area=”<

3. 编写程序实现：从键盘键入企业利润L，计算并输出相应的奖金。

#include void main()

{ do

第二次实验报告

实验一：程序完成图

程序图

流程图

实验二： 流程图

程序：

assume cs:code code segment start : test2:

mov ah,01h int 21h cmp al,'9' jbe next1 jmp case3

next1:jmp case1

case3:cmp al,'z' ja next2 mov al,63h mov dl,al mov ah,2h int 21h

jmp end0；情况一，大于‘A’小于‘z’ next2:jmp test2;大于‘z’ case1:cmp al,0dh

je end0；情况二，回车停止 cmp al,'1' jae case2

jmp test2；情况三，小于‘1’切且不等于回车 case2:mov dl,al mov ah,2h

int 21h ；数字‘1’-‘9’ end0:mov ax,4c00H int 21H

CODE ENDS END START；结束

运行检验：

本次实验遇

用过VB的人都应该知道如何声明变量，在VBA中声明变量和VB中是完全一样的！

使用Dim语句

Dim a as integer '声明a为整型变量 Dim a '声明a为变体变量

Dim a as string '声明a为字符串变量

Dim a as currency ,b as currency ,c as currency '声明a,b,c为货币变量 ......

声 明变量可以是：Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（当前不支持）、 Date、String（只限变长字符串）、String * length（定长字符串）、Object、Variant、用户定义类型或对象类型。

强制声明变量 Option Explicit

说明：该语句必在任何过程之前出现在模块中。

声明常数 用来代替文字值。 Const

' 常数的默认状态是 Private。 Const My = 456

' 声明 Public 常数。

Public Const MyString = \

' 声明 Private Integer 常数。 Private Const MyInt As Integer

数控车床基本教程

表准备 码代 功作用范围能功 能能功 字 G功能 用作范 围能 代功 G码0 0G01G 02G 03G04 0G5G 60G 0 G087 0G9* * * * *点位定直 插补 线时针顺弧插补 圆时针逆弧插圆补暂 停 不指 抛物线插定 补指定不加 减速速不指定 Y 平X选面 择ZX 平面择选Y Z平 面择 不指定 选纹切削螺，等距螺 纹螺削，增螺切距 纹切削，减螺螺距不 指定 刀补偿具/刀具置偏销注刀具补偿- 左 刀具-补偿-右 *-* 具刀置偏-- 刀具偏置-左-

右G5 G51 G502 5G3 G5 4G5 G565 G75G 8 55G9 6G 06G G61 G632

* *

*具刀置0偏刀具偏置+/0 刀/具置偏/- 0线直偏移注 销线偏直 移 直X线偏移 Y直 线偏移Z 直偏移 线YX 直线移偏 X Z线偏直移 Z 准确定位Y精)(准确定位(中) 准确位(定粗)G0-G11 *6G 17 G1 G19 G80-G23 *2G3 3G3 G435 G3-63G *9G 0 G44 1G42G 34 44G

攻丝 不指*定刀具 偏置内角， 具刀置，外偏角不指 定固 定环循销注固定循 环 绝尺寸对增量

1、 构造SQL语句，列出在1981年入职的职员的姓名、入职时间和月收入（薪水和奖金

之和）别名为salary，并将入职时间显示为:：“1981-10-10”这种形式，月收入显示为”$12,345.67”这种形式。

2、 列出职员表中员工的姓名、薪水和薪水等级，并按薪水由高到低排序。等级数据来自于

表salgrade。

3、 列出职员表中的员工姓名和他们所在的部门名称及所在城市，按部门编码升序排列。暂

未分配部门的员工及没有员工的部门不予考虑。

4、 列出每个员工的名字(别名为EMPLOYEE)及他们的直接领导的名字（别名为MANAGER），

如果某些员工没有领导，则在其领导的位置上显示“boss”。

5、 查询员工分布在哪些不同的部门，列出这些部门的部门编码。去掉重复值显示。 6、 查询每个部门每个职位的员工人数，如下形式：

20 CLERK 2 7、 查询哪些职位的薪水总和大于5000元，列出这些职位和其薪水总和，并按薪水总和升

序排列。

8、 查询哪个部门的平均薪水比部门20的平均薪水低，列出这些部门的编码和平均薪水

值。

9、 查询机构中薪水最低的五名员工，列出员工名字和薪水值。

10、 按薪水从高到低排序，列出第五位到第八位员工的姓名、薪水和

//添加方法

public double add(double a,double c) {

return a+b; }

其余的你可以自己 写下就好了·都是一样的·只是符号不一样· 3个文本框 4个点击按钮 分别代表 + - * / 如果点击的+的按钮

你在+的点击事件里面 调用这个方法就好了

//添加按钮+的事件

private void btnX_1_Click(object sender, EventArgs e) {

//textbox3 是等于的值

this.textbox3.text=add(double.parse(this.textbox1.text),double.parse(this.textbox2.text)).tostring(); }

其余的按这个方法写就好了！

private void btnX_1_Click(object sender, EventArgs e) {

if (ttx_show.Text == \ {

ttx_show.Text = \ }

2（2）在考生文件夹下有一个工程文件sjt4.vbp，运行情

况如图所示。程序的功能是计算下列表达式的值：

z=(x+2)2

+(x+3)3

+(x+4)4

+…………+(x+n)n

其中的N和x的值通过键盘分别输入到文本框Text1、Text2中。之后如果单击标题为\计算\、名称为Command1的命令按钮，则计算表达式的值z，并将计算结果显示在名称为Label1的标签中。

注意：考生不得修改窗体文件中已经存在的程序。程序中不得使用^运算符，而应使用函数xn进行幂运算。程序至少运行一次，按照下图输入数据，使x=10，N=5，单击\计算\按钮，计算z的值，并将结果显示在标签Label1中，否则没有成绩。最后，程序按原文件名存盘。 【考点分析】本题考点有：标签

的Caption属性， Function()过程，Val()函数，Call语句，Sub()函数，文件操作(Open、Close、Output)，App.Path相对路径以及For循环语句。

【解题思路】通过For循环语句实现xn()的乘幂运算；Click事件过程中通过Val()函数实现字符类型向数值型的转换，通过循环语句及调用xn()函数，获得函数返回值，实现表达式的运算结果；运用Call 语句

G 代码

快速定位

G00

直线补间切削

G01

圆弧补间切削CW（顺时针）

G02

G03 圆弧补间切削CCW逆时针）

G02.3 指数函数补间正转G03.3 指数函数补间逆转G04 暂停指令

G05 高速高精度制御1

G05.1 高速高精度制御2

G07.1/107 圆筒补间

精确停止检测

G09

G10 程式参数输入/ 补正输入

G11 程式参数输入取消

G12 整圆切削CW

G13 整圆切削CCW

G12.1/112 极坐标补间有效G13.1/113 极坐标补间取消G15 极坐标指令取消

G16 极坐标指令有效

G17 平面选择X-Y

G18 平面选择Y-Z

平面选择X-Z

G19

G20 英制指令

G21 公制指令

G22

软体极限设定有效

G23

软体极限设定取消

G27

机械原点复归检测

G28

自动经中间点复归机械原点

G29 自动从参考点复归

G30 第2~4 参考点复归

G30.1 复归刀具位置1

G30.2 复归刀具位置2

G30.3 复归刀具位置3

G30.4 复归刀具位置4

G30.5 复归刀具位置5

G30.6 复归刀具位置6

G31 跳跃机能

G31.1 跳跃机能1

G31.2 跳跃机能2

G31.3 跳跃机能3

G33 螺纹切削

G34 特别固定循环（圆周孔循环）

G35

特别固定循环（角度直线孔循环）

G3

计算π的方法

一、蒙特卡罗法（Monte Carlo）

蒙特卡洛方法是一种以概率统计理论为指导的一类非常重要的数值计算方法。蒙特卡罗是摩纳哥公国的一座城市（赌城）。Buffon投针就是蒙特卡洛方法的思想，但是Buffon是蒙特卡洛方法的起源。蒙特卡洛方法同样可以通过随机通过产生随机数的方式来解决计算问题。比如估算和计算不规则图形的面积。

图1 蒙特卡罗方法模拟

这种方法是一种利用计算机随机数的功能基于“随机数”的算法，通过计算落在单位圆内的点与落在正方形内的点的比值求PI。

图2 蒙特卡罗方法

由于图形的对称性，我们靠考虑该图的四分之一部分。假定一点能够均匀地扔到一个正方形中，计算落入其中的点个数。通过计数其中落入内切圆的点的个数；

如果一共投入N个点，其中有M个落入圆中，则只要点均匀，假定圆周的半径为R，则：

式（1）该方法得到的要得到π的精度与投入点的个数有关，一般个数较大时精度比较高。

图3 蒙特卡罗示例代码

二、数学公式（级数）

由数学公式：

式（2）当n取1000时就很接近真实值了n=1000时，pi=3.1406380562059946。

图4 级数方法示例代码

三、划分网格计算π

图5 蒙特卡罗示例代码

将图片分为n*n个小方形，统计落在圆内的个数占所有方形的

// 计算器Dlg.cpp : 实现文件 //

#include \#include \计算器.h\#include \计算器Dlg.h\#include \

#ifdef _DEBUG

#define new DEBUG_NEW #endif

// 用于应用程序“关于”菜单项的 CAboutDlg 对话框

class CAboutDlg : public CDialogEx { public: CAboutDlg();

// 对话框数据 enum { IDD = IDD_ABOUTBOX }; protected:

virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV // 实现 protected: DECLARE_MESSAGE_MAP() };

CAboutDlg::CAboutDlg() : CDialogEx(CAboutDlg::IDD) { }

void CAboutDlg::DoDataExchange(CDataExchange* pDX) { CDialogEx::DoDataExchange(pDX); }

支持 BE