上机代码填空
【实验2-3】
Private Sub Form_Load()
Label1.Left = Form1.ScaleWidth / 2 - Label1.Width / 2 Label1.Top = Form1.ScaleHeight / 2 - Label1.Height / 2 Label2.Left = Label1.Left + 60
Label2.Top = Label1.Top + 40
End Sub
【实验2-4】
Private Sub Command5_Click()
Text1.FontStrikethru = Not Text1.FontStrikethru
End Sub
Private Sub Command6_Click()
Text1.FontBold = Not Text1.FontBold
End Sub
Private Sub Command7_Click()
Text1.FontItalic = Not Text1.FontItalic
End Sub
Private Sub Command9_Click()
Text1.FontSize = Text1.FontSize - 5
End Sub
【实验3-1】
Private Sub Command1_Click()
Const pi = 3.1415926535898
Dim h As Single, r As Single
h = Val(Text1.Text)
r = Val(Text2.Text)
Text3.Text = Format(pi * r ^ 2, "0.000")
Text4.Text = Format(2 * pi * r * h, "0.000")
Text5.Text = Format(pi * r ^ 2 * h, "0.000")
End Sub
【实验3-2】
Private Sub Timer1_Timer()
Label1.Caption = Format(Int(Rnd * 10)) & Format(Int(Rnd * 10)) Label2.Caption = Format(Int(Rnd * 10)) & Format(Int(Rnd * 10)) Label3.Caption = Format(Int(Rnd * 10)) & Format(Int(Rnd * 10)) Label4.Caption = Format(Int(Rnd * 10)) & Format(Int(Rnd * 10)) Label5.Caption = Format(Int(Rnd * 10)) & Format(Int(Rnd * 10)) Label6.Caption = Format(Int(Rnd * 10)) & Format(Int(Rnd * 10)) End Sub
Private Sub Command1_Click()
Randomize
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
【实验3-3】
Private Sub Timer1_Timer()
Text1.Text = Year(Now)
Text2.Text = Month(Now)
Text3.Text = Day(Now)
Text4.Text = Hour(Now)
Text5.Text = Minute(Now)
Text7.Text = DateDiff("d", Now, "2008-08-08 20:00:00")
Text8.Text = DateDiff("h", Now, "2008-08-08 20:00:00")
End Sub
【实验3-5】
Private Sub Command1_Click()
Dim s1 As String, s2 As String, location As Integer
s1 = Trim(Text1.Text)
s2 = Trim(Text2.Text)
location = InStr(1, UCase(s1), UCase(s2))
Label3.Caption = s2 & " first occurs in position" & Str(location) Text2.SetFocus
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
End Sub
【实验4-1】
Private Sub Command1_Click()
temp = Text1.Text: tempcolor = Text1.ForeColor
Text1.Text = Text2.Text: Text1.ForeColor = Text2.ForeColor
Text2.Text = Text3.Text: Text2.ForeColor = Text3.ForeColor
Text3.Text = Text4.Text: Text3.ForeColor = Text4.ForeColor
Text4.Text = Text5.Text: Text4.ForeColor = Text5.ForeColor
Text5.Text = Text6.Text: Text5.ForeColor = Text6.ForeColor
Text6.Text = temp: Text6.ForeColor = tempcolor
End Sub
思考题代码：
添加一个计时器（Timer）控件，将Timer1的Interval属性的值设为10000，Timer1控件的Timer事件代码如下：
Private Sub Timer1_Timer()
temp = Text1.Text: tempcolor = Text1.ForeColor
Text1.Text = Text2.Text: Text1.ForeColor = Text2.ForeColor
Text2.Text = Text3.Text: Text2.ForeColor = Text3.ForeColor
Text3.Text = Text4.Text: Text3.ForeColor = Text4.ForeColor
Text4.Text = Text5.Text: Text4.ForeColor = Text5.ForeColor
Text5.Text = Text6.Text: Text5.ForeColor = Text6.ForeColor
Text6.Text = temp: Text6.ForeColor = tempcolor
End Sub
【实验4-2】
A1 = Val(Text1.Text)
B1 = Val(Text2.Text)
C1 = Val(Text3.Text)
A2 = Val(Text4.Text)
B2 = Val(Text5.Text)
C2 = Val(Text6.Text)
X = (C1 * B2 - C2 * B1) / (A1 * B2 - A2 * B1)
Y = (A1 * C2 - A2 * C1) / (A1 * B2 - A2 * B1)
Form1.CurrentX = 2000
Form1.CurrentY = 1800
Form1.Print "X="; X
Form1.CurrentX = 2000
注意：以上CurrentX、CurrentY的值是根据实际情况调整的。
思考题：
（1）使用一个标签来显示计算机结果，且分二行显示结果。添加一个标签控件Lebel5，输出结果代码如下：
Label5.Caption = "x=" & Str(x) & Chr(13) & Chr(10) & "y=" & Str(y) 或：Label5.Caption = "x=" & Str(x) & vbCrLf & "y=" & Str(y)
使用消息框显示计算结果，且分两行显示，代码如下：
用MsgBox函数：
a = MsgBox("x=" & Str(x) & vbCrLf & "y=" & Str(y))
或MsgBox ("x=" & Str(x) & vbCrLf & "y=" & Str(y))
用MsgBox语句
MsgBox "x=" & Str(x) & vbCrLf & "y=" & Str(y)
【实验4-3】
Private Sub Command1_Click()
X = Val(Text1.Text)
X1 = X * 3.1416 / 180
SX = Sin(X1)
CX = Cos(X1)
Text2.Text = Text2.Text & Format(X, "0.000") & " " & Format(SX, "0.000") & " " & Format(CX, "0.000") & Chr(13) & Chr(10)
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
注意：Chr(13)是回车，Chr(10)是换行，保证新的一组数据另起一行，也可用vbCrLf 回车换行。
【实验4-4】
Private Sub Picture1_Click()
Dim S As String * 1
S = InputBox("请指定一个字符")
Picture1.Print Tab(1); String(11, S); Spc(3); String(1, S)
Picture1.Print Tab(2); String(9, S); Spc(3); String(3, S)
Picture1.Print Tab(3); String(7, S); Spc(3); String(5, S)
Picture1.Print Tab(4); String(5, S); Spc(3); String(7, S)
Picture1.Print Tab(5); String(3, S); Spc(3); String(9, S)
Picture1.Print Tab(6); String(1, S); Spc(3); String(11, S)
End Sub
【实验5-1】
Private Sub Command1_Click()
Dim A As Single, B As Single, C As Single
Dim P As Single, S As Single
A = Val(Text1.Text)
B = Val(Text2.Text)
C = Val(Text3.Text)
‘用块结构条件语句
If A + B <= C Or B + C <= A Or C + A <= B Then
MsgBox "输入的边长不能构成三角形", vbCritical, "注意"
Else
P = (A + B + C) / 2
S = Sqr(P * (P - A) * (P - B) * (P - C))
Label4.Caption = Format(Str(S), "0.00") ' 显示时保留两位小数
End If
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub
用单选结构条件语句：
If A + B <= C Or B + C <= A Or C + A <= B Then _
MsgBox "输入的边长不能构成三角形", vbCritical, "注意" Else _ P = (A + B + C) / 2: S = Sqr(P * (P - A) * (P - B) * (P - C)): _
Label4.Caption = Format(Str(S), "0.00")
【实验5-2】
Private Sub Command1_Click()
x = Val(Text1.Text)
Select Case x
Case Is < 0, Is > 100
Label2.Caption = ""
MsgBox "分数超出范围，请重新输入", vbExclamation, "注意"
Case Is >= 90
Label2.Caption = "优"
Case Is >= 80
Label2.Caption = "良"
Case Is >= 70
Label2.Caption = "中" Case Is >= 60
Label2.Caption = "及格" Case Else
Label2.Caption = "不及格" End Select Text1.SetFocus
‘以下代码实现将焦点定位在文本框Txet1中，选中其中的文本 Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
【实验“统计 MsgBox "输入了非法字符", vbCritical, "注意"
Text1.SetFocus
Text1.SelStart = 0
Exit Sub End If
If Not IsNumeric(Text2.Text) Then
MsgBox "输入了非法字符", vbCritical, "注意"
Text2.SetFocus
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
Exit Sub
End If
If Not IsNumeric(Text3.Text) Then
MsgBox "输入了非法字符", vbCritical, "注意"
Text3.SetFocus
Text3.SelStart = 0
Text3.SelLength = Len(Text3.Text)
Exit Sub
End If
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
'求平均分
ave = (a + b + c) / 3
'求最高分
Max = a
If b > Max Then Max = b
If c > Max Then Max = c
'求最低分数
Min = a
If b < Min Then Min = b
If c < Min Then Min = c
' 显示结果
Label5.Caption = Format(ave, "0.00")
Label7.Caption = Str(Max)
Label9.Caption = Str(Min)
End Sub
【实验5-4】
Private Sub Timer1_Timer()
If Shape1.Top + Shape1.Height >= Form1.ScaleHeight Or Shape1.Top < 0 Then step = -step
End If
Shape1.Top = Shape1.Top + step
End Sub
【实验6-1】2
2
2)1
2
2
+
+
+n
+
3
2(
7
5
+
1-
Private Sub Command1_Click()
Sum = 0
n = Val(Text1.Text)
For k = 1 To 2 * n - 1 Step 2
Sum = Sum + k ^ 2
Next k
Label2.Caption = Sum
End Sub
（1）输入n，求2
2
2)
2
2
2
+
-
+
+
-
-
n-
)1
2(
1n
2(
4
2
3
Private Sub Command1_Click()
Sum = 0
n = Val(Text1.Text)
For k = 1 To n
If k Mod 2 = 0 Then Array Sum = Sum - k ^ 2
Else
End If
Next k
Label2.Caption = Sum
End Sub
（2）输入n和a(a是一个数字)，求S n=a+aa+aaa+aaaa+aa…a的值。例如，设n 为4，a为2，则S n=2+22+222+2222
Private Sub Command1_Click()
Sum = 0
f = ""
n = Val(Text1.Text)
a = Val(Text2.Text)
For k = 1 To n
f = f & Str(a)
Sum = Sum + Val(f)
Next k
Label2.Caption = Sum
End Sub
【实验6-2】
End Sub
【实验6-3】输入一个等差数列的第一项、差值、总项数，显示该等差数列：Private Sub Command1_Click()
Num = Val(Text1.Text)
Step = Val(Text2.Text)
n = Val(Text3.Text)
Text4.Text = ""
For i = 1 To n
Text4.Text = Text4.Text & Str(Num)
Num = Num + Step
Next i
End Sub
【实验6-4】求1×3×5×……×（2n-1）大于400 000的最小值。
Private Sub Command1_Click()
Product = 1 Product表示累乘积
N = 1 N表示第1项
Do While Product <= 400000
Product = Product * N
N = N + 2
Loop
Text1.Text = Product
End Sub
【实验6-5】
Private Sub Command1_Click()
M = Val(Text1.Text)
N = Val(Text2.Text)
X = M * N
R = M Mod N
Do While R <> 0
M = N
N = R
R = M Mod N
Loop
Label3.Caption = N
Command2.Enabled = True
Private Sub Command2_Click()
Label4.Caption = X / N
End Sub
注意：X = M * N为什么写在Commad1的Click事件中。因为本程序必须算出最大公约数后才能算出最小公倍数。
修改：各自按钮可独立算出。
Private Sub Command1_Click()
M = Val(Text1.Text)
N = Val(Text2.Text)
X = M * N
R = M Mod N
Do While R <> 0
M = N
N = R
R = M Mod N
Loop
Label3.Caption = N
Label4.Caption = X / N
End Sub
Private Sub Command2_Click() M = Val(Text1.Text)
N = Val(Text2.Text)
X = M * N
R = M Mod N
Do While R <> 0
M = N
N = R
R = M Mod N
Loop
Label4.Caption = X / N
End Sub
【实验7-1】
Private Sub Command1_Click()
S = 0
For i = 1 To 100
S1 = 0
For j = 1 To i
S1 = S1 + j
Next j
S = S + 1 / S1
Next i
Text1.Text = S
End Sub
思考：求1！+2！+3！+ (20)
Private Sub Command1_Click()
S = 0
For i = 1 To 100
S1 = 1
For j = 1 To i
S1 = S1* j
Next j
S = S +S1
Next i
Text1.Text = S
End Sub
【实验7-2】
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim s1 As Integer, s2 As Integer
For a = 1 To 9 ‘百位数不能为0
For b = 0 To 9
For c = 0 To 9
s1 = 100 * a + 10 * b + c
s2 = a ^ 3 + b ^ 3 + c ^ 3
If s1 = s2 Then
Text1.Text = Text1.Text & s1 & " "
End If
Next c, b, a
End Sub
【实验7-3】
Private Sub Command1_Click()
x = Val(Text1.Text)
ex = 1 ' 用ex保存ex的近似值
i = 0
t = 1 ' 用t表示每一个累加项
Do
i = i + 1
t = t * x / i
ex = ex + t
Loop Until t < 0.000001
Text2.Text = Format(ex, "0.0000000000")
End Sub
【实验7-4】
Private Sub Label3_Click()
a = 1
b = 4
Do While b - a > 0.00001
f1 = a ^ 3 + 4 * a ^ 2 - 10
x = (a + b) / 2
f = x ^ 3 + 4 * x ^ 2 - 10
If f1 * f > 0 Then
a = x
Else
b = x
End If
Loop
Label3.Caption = "方程的根为：" & Format(x, "0.0000") End Sub
【实验8-1】
Private Sub Command1_Click()
Randomize
Text1.Text = ""
For i = 1 To 100
a(i) = Int(Rnd * 10 + 1)
Text1.Text = Text1.Text & Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
For i = 1 To 50 ‘注意循环变量的终值
'以下代码对数组元素a(i)和a(101 - i)进行交换
t = a(i)
a(i) = a(101 - i)
a(101 - i) = t
Next i
Text2.Text = ""
'以下代码显示交换后的结果
For i = 1 To 100
Text2.Text = Text2.Text & Str(a(i))
Next i
End Sub
【实验8-2】
“输入成绩”按钮代码
二年级C语言程序填空题答题技巧
二年级C语言程序填空 题答题技巧 内部编号：（YUUT-TBBY-MMUT-URRUY-UOOY-DBUYI-0128）
程序填空题答题技巧 程序填空题是计算机等级考试中的重点中度难点，占有的分值为30 分。做填空题时注意掌握答题技巧。 填空题的分类： （一）、数学题目 解题方法： 1.量赋初值，如果这个量以后用到的是加减运算，则赋初值0或者为是0.0；如果以后用到的是乘除运算，则赋初值为1或者是1.0； 2.循环条件的填空，分析表达式的规律，看表达式中的最后一项的值是否到了第m项或者是第n项，如果到了第m或者第n项，则在循环中的第二个表达式中用到的是i<=m或者是i<=n; 3.循环条件中如果用的是while 语句，则循环变量的初值应该在while 的外面定义和赋初值，在循环语句中必须给变量自加或者是自减。如果没有则一般填的是i++; 例子：int i=1; while（i<5）{} （二）、字符串题目 1、循环的条件是判断该字符是否和结束符\0相等，如果相等，说明该字符串结束，否则说明没有结束，继续循环。While(s[i]!=’\0’) 2、把一个数字字符转变成对应的数值的格式是：ch=’1’-‘0’;把大写字母转变为小写字母 的格式：c h=c h+32 ;把小写字母转变为大写字母的格式为：ch=ch-32 ;
3、区分好字符数组中的指针和指针所指的值的关系。在循环语句中，当指针往后走一个位置的时候，用的是指针的自加，而不是指针所指的值的自加。 char ch[5]=”abcd” ; char * p; p=ch; p指向哪个字母？*p 代表什么？p指向下一个字母如何操作？p++还是(*p)++ 4、掌握字符数组中的函数的使用的格式。即：strlen(a)、strcmp(a,b)、strcpy(a,b) 、sizeof() 、strcat()的使用格式。注意里面的格式中使用的都是指针或数组名。 5、字符数组结束时都有一个结束符：‘\0’;在字符数组中的题目中的结束后要加上一个结束符。 （三）、结构体题目 结构体类型的题目 1、看清题目的意思。 2、定义结构体变量时的格式。 struct student *stu1 stu1->name struct student stu2 https://www.wendangku.net/doc/737078820.html, 3、结构体中成员的调用格式。结构体中的成员分为多种类型，调用结构体重的成员，使用的是“.”或者是“—>”运算符。得到结构体中学生分数，a— >score[i]。 4、如果返回的是结构体的话，函数的返回类型必须是结构体类型。调用函数的格式中，调用的若是结构体数组，则只用写结构体数组名。 （四）、函数题目（重点）
数据挖掘作业
数据挖掘作业The document was prepared on January 2, 2021
1、给出K D D的定义和处理过程。 KDD的定义是：从大量数据中提取出可信的、新颖的、有用的且可以被人理解的模式的高级处理过程。因此，KDD是一个高级的处理过程，它从数据集中识别出以模式形式表示的知识。这里的“模式”可以看成知识的雏形，经过验证、完善后形成知识：“高级的处理过程”是指一个多步骤的处理过程，多步骤之间相互影响反复调整，形成一种螺旋式上升的过程。 KDD的全过程有五个步骤：1、数据选择：确定发现任务的操作对象，即目标数据，它是根据用户的需要从原始数据库中抽取的一组数据；2、数据预处理：一般可能包括消除噪声、推到技术却只数据、消除重复记录、完成数据类型转换等；3、数据转换：其主要目的是消减数据维数或降维，即从初始特征中找出真正有用的特征以减少数据开采时要考虑的特征或变量个数；4、数据挖掘：这一阶段包括确定挖掘任务/目的、选择挖掘方法、实施数据挖掘；5、模式解释/评价：数据挖掘阶段发现出来的模式，经过用户或机器的评价，可能存在冗余或无关的模式，需要剔除；也有可能模式不满足用户的要求，需要退回到整个发现阶段之前，重新进行KDD过程。 2、阐述数据挖掘产生的背景和意义。 数据挖掘产生的背景：随着信息科技的进步以及电子化时代的到来，人们以更快捷、更容易、更廉价的方式获取和存储数据，使得数据及信息量以指数方式增长。据粗略估计，一个中等规模企业每天要产生100MB以上的商业数据。而电信、银行、大型零售业每天产生的数据量以TB来计算。人们搜集的数据越来越多，剧增的数据背后隐藏着许多重要的信息，人们希望对其进行更高层次的分析，以便更好的利用这些数据。先前的数据库系统可以高效的实现数据的录入、查询、统计等功能，但无法发现数据中存在的关系与规则，无法根据现有的数据来预测未来的发展趋势。缺乏挖掘数据背后隐藏的知识的手段。导致了“数据爆炸但知识贫乏”的现象。于是人们开始提出“要学会选择、提取、抛弃信息”，并且开始考虑：如何才能不被信息淹没如何从中及时发现有用的知识、提高信息利用率如何从浩瀚如烟海的资料中选择性的搜集他们认为有用的信息这给我们带来了另一些头头疼的问题：第一是信息过量，难以消
上机13+程序设计
实习十三-1基于流程图的可视化编程环境 Raptor 【实验目的与要求】 ●掌握Raptor 基本符号。 ●熟悉Raptor编程环境。 ●学习赋值、输入、输出语句符号。 【实验内容与要点】 一、基础知识 Raptor有六种基本符号，每个符号代表一个独特的指令类型。包括赋值（assignment），调用(Call)，输入(Input)和输出(Output)及选择（Selection）和循环（Loop）。 填写其中3种基本符号作用说明。 二、安装和熟悉Raptor可视化编程环境 从互联网上通过百度搜索出Raptor汉化的安装包，安装Raptor可视化编程环境。安装界面如图所示。接着指定安装的文件夹目录后就可以安装了。安装成功后桌面出现恐龙图标的快捷方式。
Raptor 程序是一组连接的符号，表示要执行的一系列动作。符号间的连接箭头确定所有操作的执行顺序。Raptor 程序执行时，从开始（Start ）符号起步，并按照箭头所指方向执行程序。Raptor 程序执行到的结束（End ）符号时停止。所以右侧编程区的流程图设计窗口最初都有一个main 子图，其初始有开始（Start ）符号和结束（End ）符号。 图7.25Raptor 程序开发环境 右侧编程区完成程序设计后，在工具栏中的四个按钮控制程序的运行 方式。 按钮控制程序正常运行， 控制程序暂停运行可以观察“符号区”下面变量显 示区中变量值情况， 终止程序运行， 单步运行可以清楚了解每条指令的运行后变量 值情况。 调速滑块可以调节程序的执行速度，方便观测程序的执行。 设 置编程区的流程图设计窗口显示的比例。 调速滑块 符号区 变量显示区 子图
特殊符号大全
*标点符号：．。，、；：？！ˉˇ¨`~ ?～‖∶＂＇｀｜·… —～ - 〃 …?“”??【】々〆〇〈〉《》「〒〓」『（）［］｛｝????*数学符号：＋－×÷﹢﹣±／＝∥∠≌?≦≧≒﹤﹥≈ ≡ ≠ ＝≤ ≥ ＜＞≮≯ ∷∶∫ ∮∝∞ ∧∨∑ ∏ ∪∩ ∈∵∴?∥∠?? √∟???％‰ *单位符号：???????????℡％‰ ℃℉ °′″＄?￥?♂ ♀? *数字序号：??????????ㄜㄝㄞㄟㄠㄡ ㄢㄣㄤㄥ№ ??????????????????? ? ????⊕???⊙?????????? ? ⅠⅡⅢⅣⅤⅥⅦⅧⅨⅩⅪⅫⅰⅱⅲⅳⅴⅵⅶ ⅷⅸⅹ *希腊字母：Α Β Γ Γ Δ Ε Ζ Θ Η Κ Λ Μ Ν Ξ Ο Π Ρ ? Σ Τ Φ Υ Φ Χα β γ δ ε δ λ μ ν π ξ ζ ε ζ η θ ι κ η υ θ χ ψ ω
*俄语字符：А Б В Г Д Е Ё Ж З И Й К Л М Н О П Р С Т У Ф Х Ц Ч Ш Щ Ъ Ы Ь Э Ю Я а б в г д е ? ж з и й к л м н о п р с т у ф х ц ч ш щ ъ ы ь э ю я *汉语拼音：ā á ǎ à ō ó ǒ ò ē é ě è ī í ǐ ì ū ú ǔ ù ǖ ǘ ǚ ǜ ü ê ɑ ń ň ɡ ?????ーヽヾ??????ㄅㄆㄇㄈㄉㄊㄋㄌㄍㄎㄏㄐㄑㄒ ㄓㄔㄕㄖㄗㄘㄙㄚㄛ *中文字符： 偏旁部首：横起：夬丅乛竖起：丄丩乚撇起：夊亅亇厃?捺 起：丂 零壹贰叁肆伍陆柒捌玖拾佰仟万亿吉太拍艾 分厘毫微 卍卐卄巜弍弎弐朤氺曱甴囍兀?〆の〔?? ??????? *日语：〔〕〖〗?????〝〞??〡〢〣〤〥〦〧〨〩????????????????????にぬねのはばぱひびぴふぶぷへべぺほぼぽまみむめもゃやゅゆょよらりるれろゎわゐゑをん *注音码：???????゛゜ゝゞ??ァアィイゥウェエォオカガキギクグケゲコゴサザシジスズセゼソゾタダチヂッツヅテデトドナ
C语言程序填空
程序填空 第1题 题目：求出二维数组中的最大元素值。 1). max_value(3,4,a) 2). array[][4] 3). max=array[i][j] 第2题 功能：数组名作为函数参数，求平均成绩。 1). a 2). av 3). &sco[i] 4). sco 第3题 题目：求数组中的最大值。 程序中有4个空，填空使程序完整。 1). &a[i] 2). a[i] 3). int x,int y 或 int y,int x 4). z 或 ( z ) 第4题 题目：找出数组中最大值和此元素的下标，数组元素的值由键盘输入。 1). a + i 或 &a[i] 2). p-a 或 -a+p 3). > 4). *s 第5题 功能：通过函数的递归调用计算阶乘。 1). power(n-1)*n 或 power( n - 1 ) * n 2). &n 3). y 第6题 题目：有5个学生，每个学生有3门课的成绩，从键盘上输入以上数据（包括学生的学号、姓名和3门课的成绩），计算出平均成绩，将原有数据和计算出来的平均成绩存放在磁盘文件“stu”中。 1). *fp 2). k/n 3). &a[i] 4). &b[i] 第7题 题目：下面程序的功能是：将一个字符串中下标为m的字符开始的全部字符复制成为另一个字符串。程序中有4个空，填空使程序完整。 1). char *p1 , *p2 ;
2). p1= str1 + m; 3). *p2++=*p1++; 或 *(p2++)=*(p1++); 4). strcopy(str1,str2,m); 第8题（10.0分）题号:422 题目：文件操作。 1). FILE 2). r 3). fclose(fp) 第9题 题目：输入学生成绩并显示。 1). i++ 或 ++i 或 i=i+1 2). &stu[i] 3). &stu[i] 4). printf 第10题 题目：输入数组，最大的与最后一个元素交换，最小的与第一个元素交换，输出数组。 1). i<9 或 9>i 2). min=p 3). l=*p 4). array[9]=k 第11题 题目：以下程序的功能是删除一个字符串中的所有数字字符。 1). s[i]!= 或 *(s+i)!= 2). || 3). s[j]=s[i] 4). delnum(item) 第12题（10.0分）题号:436 题目：输出两个整数中大的那个数，两个整数由键盘输入。 1). (int *) 2). p1 3). *p1 第13题 题目：以下程序的功能是删除字符串中的指定字符，字符串和要删除的字符均由键盘输入。 1). str 2). !='\0' 3). str[k]=str[i] 4). str[k]='\0' 第14题 题目：从键盘输入一个字符串，将小写字母全部转换成大写字母，然后输出到一个磁盘文件“test”中保存。输入的字符串以！结束。
【原创】R语言药物关联规则apriori模型分析代码
有问题到淘宝找“大数据部落”就可以了 可以看到数据中一共有这些变量: colnames(trans.list) [1] "住院号""流水号" [3] "病案号""姓名" [5] "付款方式""合同单位" [7] "是否特病""住院次" [9] "性别""出生年月日" [11] "年龄""新生儿月份" [13] "新生儿体重""新生儿入院体重" [15] "婚姻""职业" [17] "出生地""民族" [19] "国籍""身份证号" [21] "出生地.省""市" [23] "县""籍贯.省" [25] "市.1""现住址.省" [27] "市.2""县.1" [29] "X""邮编" [31] "户口地址.省""市.3" [33] "县.2""X.1" [35] "邮编.1""工作单位及地址" [37] "工作单位电话""工作单位邮编" [39] "入院日期""入院途径" [41] "入院科别""出院科别" [43] "出院日期""出院科别" [45] "住院天数""门.急.诊诊断" [47] "门.急.诊诊断ICD""入院诊断" [49] "入院诊断ICD.10""病理诊断" [51] "病理诊断ICD.10""其他诊断" [53] "其他诊断ICD.10""出院诊断" [55] "出院诊断ICD.10""入院病情" [57] "损伤.中毒""药物过敏" [59] "过敏药物名称""日期" [61] "手术.操作编码""手术.操作名称" [63] "手术级别""手术.操作日期" [65] "麻醉方式""切口种类" [67] "愈合等级""尸检" [69] "血型""Rh" [71] "出院诊断2""入院病情2" [73] "出院诊断3""入院病情3"
C语言上机实验_代码_上课用
上机实践1 初识C语言实验1 一个简单的C程序 simple.c #include
实验答案 实验1 【代码1】：printf("很高兴学习C语言\n"); 【代码2】：printf ("We are students\n"); 实验2 【代码1】：printf("how are you\n"); 【代码2】：printf("******\n");
上机实践2 C程序的基本结构实验1 有多个源文件的C程序 main.c #include
c语言程序填空题
#include
} } #include
同学录系统设计(源代码及全套资料)
同学录设计论文 第一章前言 Internet是目前世界上最大的计算机互联网络，它遍布全球，将世界各地各种规模的网络连接成一个整体。作为Internet上一种先进的，易于被人们所接受的信息检索手段，World Wide Web(简称WWW)发展十分迅速，成为目前世界上最大的信息资源宝库。据估计，目前Internet上已有上百万个Web站点，其内容范围跨越了教育科研、文化事业、金融、商业、新闻出版、娱乐、体育等各个领域，其用户群十分庞大，因此，建设一个好的Web站点对于一个机构的发展十分重要。 近年来计算机技术的快速发展，特别是计算机网络的发展，越来越深刻的改变了人们生活的方方面面。使得人们能以更低廉的价格，开发出更方便、更实用的网络工具。各种在线服务系统，更是深刻的影响了人们的联系方式，使得人们可以在远隔千里之遥随时通讯。过去的种种陈旧的联系方式，已经不能满足现代生活的需要。同学录作为一种方便同学之间联系的实用系统便应运而生。工商同学录是为工商同学之间进行交流和联系提供的一个平台。通过提供完善的同学录服务和规范同学录的管理，可以达到增进同学之间、同学与母校之间的感情，方便校友联系的目的。 要实现这样的功能，离不开后台数据库的支持。用户验证信息，收集到的用户点击信息，主题层次信息，分析得出的关联规则表等大量的数据都由数据库管理系统管理。本文中数据库服务器端采用了Microsoft Access数据库作为ODBC(Open DataBase Connectivity )数据源，并以先进的ADO（ActiveX Data Objects）技术进行数据库存取等操作，使Web与数据库紧密联系起来。 整个个性化页面生成系统主要由使用Dreamweaver_MX开发的关联规则采掘系统和利用IIS+ASP技术实现的个性化Web页面生成器两部分组成。关联规则采掘系统对数据库中的历史记录进行分析，产生用户关联规则表；页面生成器则负责记录用户行为和根据关联规则表动态生成用户个性化Web页面。二者通过数据
汇编语言上机实验指导书(不含源代码)
汇编语言上机实验指导书 一、概述 上机实验总学时为14学时，其中综合性实验为2学时。实验共有6项暂定为7次，每次2学时。 1.实验辅导的主要内容 实验辅导的内容包括每个实验的实验目的；实验内容；对实验的算法及实验方法的必要说明；实验准备；实验步骤；实验报告要求；实验程序及参考框图。开始的实验介绍较细，后面的实验简要介绍。 2.实验的软硬件要求 关于汇编语言程序设计的硬件要求不高，有IBM-PC/XT即可，但应有彩色显示器以便进行图形实验。软件方面应有MASM.EXE5.0版（包括LINK.EXE）,与MS-DOS版本配套的DEBUG程序和EDIT.EXE编辑软件（其它编辑软件也可以）。 3.加强实践能力的培养 实验目的不光是为了验证书本理论，更重要的是对实践能力的培养。其中包括： 实际调试程序的能力，例如修改程序参数的能力，查看结果的能力，设置断点调试运行的能力等； 开发汇编语言应用程序的能力，例如应用有关汇编软件的能力，进行系统调用和BIOS功能调用的能力，进行模块程序设计的能力等。 对某一问题用不同的程序实现的能力，例如我们为每个实验提供了参考程序（或程序段），目的是让每个实验者参照样板程序将实验成功地实现，在掌握其方法后，自己改变程序或自己编制程序加以实现。 实验一汇编语言运行环境及方法、简单程序设计(2学时、验证性) 1.实验目的： (1) 熟悉汇编语言运行环境和方法 (2)了解如何使用汇编语言编制程序 (3) 熟悉DEBUG有关命令的使用方法 (4) 利用DEBUG掌握有关指令的功能 (5) 利用DEBUG运行简单的程序段 2.实验内容 (1)学会输入、编辑汇编语言程序 (2)学会对汇编语言程序进行汇编、连接和运行 (3)进入和退出DEBUG程序 (4)学会DEBUG中的D命令、E命令、R命令、T命令、A命令、G命令等的使用。对于U命令、N命令、W命令等，也应试一下。 3.实验准备 (1)仔细阅读有关汇编语言环境的内容，事先准备好使用的例子。 (2)准备好源程序清单、设计好调试步骤、测试方法、对运行结果的分析。 (3) 编写一个程序：比较2个字符串所含的字符是否相同。若相同则显示’Match.’，否则显示’No match!’； (1)仔细阅读有关DEBUG命令的内容，对有关命令，都要事先准备好使用的例子。 4.实验步骤 (1)在DOS提示符下，进入MASM目录。 (2)在MASM目录下启动EDIT编辑程序，输入源程序，并对其进行汇编、连接和运行。 ①调用edit输入、编辑源程序并保存在指定的目录中；例：edit abc.asm ②用汇编程序masm对源程序汇编产生目标文件obj。例：masm abc 不断修改错误，直至汇编通过为止。 ③用连接程序link产生执行文件exe.例：link abc
c语言程序填空题(1)
三、程序填空题 导读：在程序填空题中，已经给出了程序的主干，读者首先要理解程序的思路，再选择正确的内容填入空白处，使程序完成既定的功能。这类习题的设计就是要引导读者逐步掌握编程的方法。本节习题的难度适中，可能有些典型的程序在课堂上已经有所接触，读者一定要独立完成它，这样就可以逐步提高自己的编程能力。在程序设计语言学习的中期，读者对程序设计已经有了初步的了解，而自己编写程序又不知从何处入手，此时解答此类题目可以避免盲目性，从而提高学习的效率。 【3.1】下面程序的功能是不用第三个变量，实现两个数的对调操作。 #include
for(i=1；i<=n；i++) s=s+ ① ； return( ② )； } 【3.3】下面的程序的功能是求一维数组中的最小元素。findmin(int *s,int t,int *k) { int p； for(p=0,*k=p；p 人工智能上机实习题 一．概述 1．实习名称 该实习是一个Windows环境下的可以进行人机对弈的五子棋程序，程序的名称是快乐五子棋。 2．运行环境和编程语言版本 运行环境：Microsoft Windows 98 或者Microsoft Windows NT。 编程语言：Microsoft Visual C++6.0 企业版 3．程序文件目录清单及文件说明 整个五子棋程序所有文件放在Five目录下。 Five.h 五子棋类的头文件 Five.cpp 五子棋类的实现文件 以上两个文件是Visual C++自动生成的 Fivedlg.h 五子棋程序主窗体类的头文件，所有的程序控制和大部份的 数据结构都在这里定义和实现 Fivedlg.cpp 五子棋程序主窗体类的实现文件，是整个程序的核心 Queue.h 优先队列的头文件 Queue.cpp 优先队列的实现文件 Node.h 优先队列的节点类头文件 Node.cpp 优先队列的节点类的实现文件 Settings.h 五子棋设置类的头文件 Settings.cpp 五子棋设置类的实现文件 设置类是一个对话框，主要负责对五子棋的人工智能部份的参数的控制。 StdAfx.cpp MFC类必需的文件，由Microsoft提供 StdAfx.h 同上 Five.dsp 五子棋程序的工程文件，可以通过打开它来打开整个工程 Res子目录存放本程序的资源，如图标，位图等。 另外还有一些文件是VC自已生成的，与我们这个具体的程序是没有关系的，所以在里就不再特别说明了。 4．程序使用说明 本五子棋程序界面亲切友好，玩家可以很容易上手。下面是一些基本的使用说明。 程序的主界面是一个大的对话框，它里面又分为三个部份。左边是一排按钮，分别是“开始新游戏”，“设定”，“认输”，“确定这样走”，“我不走这步了”，“关于本程序”，“退出”。单击“设定”后又会弹出一个对话框，里面可以对先后手，难度以及电脑的棋风进行设定。“认输”按钮只有在游戏开始以后才可以用。玩家每走一步，需要进行确定，即走完一步后点击“确定这样走”，若发现走错了，只需点击“我不走这步了”， ?. 基本符号 ?.1??○?⊕◎Θ?¤㊣★☆??????▲▼△▽⊿?? ?.2▆▇██■▓回□ 〒≡╝╚╔╗╬═╓╩┠┨┯┷┏ ?.3┓┗┛┳?『』┌┐└┘∟「」↑↓→←↘↙??┇┅﹉﹊﹍﹎╭ ?.4╮╰╯*^_^* ^*^ ^-^ ^_^ ^（^ ∵∴‖｜｜︴﹏﹋﹌（）〓〔 ?.5【】〕〖＠： / " _ < > `,·。≈{}~ ～() _ -『』√ $ @ * & # ※ ?.6卐?∞Ψ ∪∩?∏ の℡〗§∮”〃ミ灬ξ№∑?ξζω＊ ㄨ≮≯＋ ?.7－×÷＋－±／＝∫∮∝∞ ∧∨∑ ∏ ‖∠≌∽≤ ≥ ≈＜＞? ?.8☆veve↑↓??★☆■?『』???▲Ψ ※??→№←㊣∑?〕〖＠ ?.9ξζω□∮〒※∴ぷ▂▃▅▆█∏卐【】△√ ∩¤???∞?ㄨ≡↘↙▂ ?.10▂▃▄▅▆▇█┗┛╰☆╮ ≠▂▃▄▅ ?.单行组合符号 ?.猫猫抱抱版本符号 01 ?.1．·°∴☆．．·°?Yesterday is memory?Today is a gift ?Tomorrow is a mystery ?．·°.☆`.`* `★* `* `.* .☆`.`* `★* `* `. ?.2?KicaZ宝贝o(╥﹏╥)o ???☆ve 【??????】*° ^_^.......?? ?.3┢┦aΡｐy ?^_^???? ?.4【】—一▄【┻┳═一▄【┳一▄【┻═┳一▄【┳-一 ?.5▄【┻═┳【┳═一▄【┳一·▄【┳═一【┳═一oO ?.6-—═┳【∝╬══→::======>>┈━═☆┣▇▇▇═— ?.7ゅ≈小鱼≈ゅ卐?ゞ、时差7 or 8 小时…ヅ??◇ ?. 8 ...¤??.·′ˉ`·.?·.>>--? 洛雨·晴缘 ?---<<·.??.·′ˉ`·.??.¤... ?. 9 ╬叮咛╬One fifth...?? &( ^___^ )& 麻花辫女孩 ?. 10 (？o？) 喔？ (☆＿☆) 眼睛一 亮(*^〓^*) 羞羞脸 【程序填空】 功能：写一个函数，求一个字符串的长度，在main函数中输入字 符串，并输出其长度。 len=length(str．．．); I．nt length ．．．．．．．．(p) N．++．．; P．++．．; 【程序改错】 功能：将一个字符串中的大写字母转换成小写字母。 bool (char) ．．．．．．fun(char *c) fun= c;(return *c) ．．．．．．．．．． puts(*p);(putchar(*p)) ．．．．．．．．．．．．． 【程序设计】 功能：编写函数实现两个数据的交换，在主函数中输入任 意三个数据，调用函数对这三个数据从大到小排序。 ------------------------------------------------*/ #include 第三章 运输问题 主要内容 运输问题的模型、算法 讲授重点 运输问题的模型、算法 讲授方式 讲授式、启发式 第一节 运输问题及其数学模型 一、运输问题的数学模型 设某种物品有m 个产地A 1,A 2,…,A m ，各产地的产量分别是a 1,a 2,…,a m ；有n 个销地B l ,B 2,…,B n ,各销地的销量分别为b l ,b 2,…,b n 。假定从产地A i (i ＝1,2,…,m)向销地B j (j ＝1,2,…,n)运输单位物品的运价是c ij ，问怎样调运这些物品才能使总运费最小? 这是由多个产地供应多个销地的单品种物品运输问题。为直观清楚起见，可列出该出该问题的运输表，如表3-1所示。 设 ij x 表示从A i 运往B j 的物品数量， ij c 表示从A i 运往B j 的单位物品的运价。则对于平 衡运输问题（ ∑∑=== n j j m i i b a 1 1），其数学模型的一般形式可表示为： ∑∑=== n j m i ij ij x c s 11 min ()()()????? ???? ==≥====∑∑==n j m i x n j b x m i a x ij j m i ij i n j ij ,2,1;,2,10 ,,2,1,,2,11 1 (3.1) 二、运输问题数学模型的特点 对于平衡运输问题( ∑∑=== n j j m i i b a 1 1 )，可以证明其有如下两个特点： (1)矩阵A 的秩R(A)＝m+n-1。 (2)问题必有最优解，而且当j i b a ,皆为整数时，其最优解必为整数最优解。 第二节 表上作业法求解运输问题 一、给出运输问题的初始可行解（初始调运方案） 1、最小元素法 解题步骤： ⑴在运价表中找到最小运价c 1k ； ⑵将的A L 产品给B k ； C语言上机实验心得 C语言上机实验心得 1 在初学Ｃ语言的一个学期后，我们进行了Ｃ语言实训阶段，尝试编写一个比较复杂的程序系统。在为期两周的时间中，我们同组的同学共同的感受是：Ｃ语言实训和平时上课所接触的程序是有很大不同的，所经受的考验和克服的困难是平时所无法比拟的。好在同组的搭档们精诚合作，分工明确，有问题共同解决，攻克了Ｃ语言实训的复 杂程序。在这里，我作为其中的参与者，感触良多。 在这次实训中，我对对C语言有了一个更深的了解认识，也对这个学期学的知识得到巩固，还尝试运行编程，每次运行程序成功， 让我对下面的项目就充满信心。通过自己与同学合作编写程序，最终把最初的理论知识转化基本技能。这次的实训，使我对C语言的学习产生浓厚的兴趣。 还是这次实训，最令人激动的就是合作做项目，虽然那只是一个很小很小的项目。每天大家来得很早，大家在一起学习，取长补短，我们很好的在实训中长知识，提高我们的学习热情。实训中深切体会到了老师认真负责的伟大的精神和热情为同学指导的促学方式，虽然对有些时候老师没给我们指出解决问题的方法有些小抱怨，但是到了结束时才知道，这种教学让我们自己学会了自学，学会了去看懂别人的代码。更多是老师给的感动，每天在我们来之前就到了教室，在讲 课中海给我们分享他在公司上班的一些心得和体会，还有那些我们应该注意的事项，这些是平时上课时无法学到的，是更深层次的巨大收 获。通过这次实训，也使我们发现了许多问题。 在实训中，我们认识到自己还有很多的知识没学好，基础知识没理清，而且许多东西还要去翻书，去上网搜索。而且遇到一些小错 误运行不出来，就会烦躁不安，觉得有些自暴自弃或者抱怨项目的变态，以后要克服，尽量保持一颗良好的心态，学好C语言，也学好用C语言编写一个按要求的系统。 还有就是对于未来，近程就是下学期，我觉得我还有许多方面需要提高。首先我要继续学习好C语言的基础知识，然后能在电脑上熟练的运用。然后每天都能写一些程序，上网时候多看一些优秀的教程和优秀的代码。遇到问题时多和同学讨论，并且多弄出几套方案，多锻炼自己结局问题的能力和与同学合作的能力。 总之，这一切都成为我记忆里面的一个篇章，更是在C语言编程上的一个里程碑。 C语言上机实验心得 2 在科技高度发展的今天，计算机在人们之中的作用越来越突出。 而C语言作为一种计算机的语言，学习它将有助于我们更好的了解计算机，与计算机进行交流，因此，我们一定要学好C语言，这对我们以后的发展是十分重要的。 说到这，上机实验当然就是一个必不可少的环节了，C语言灵活、简洁的特点，只有通过编程实践才能真正了解，真正说懂。为了 更好地学习语法规定、掌握程序设计方法、提高程序开发能力，我们 必须实际上机、编写程序。 表上作业法的源代码-标准化文件发布号：（9456-EUATWK-MWUB-WUNN-INNUL-DDQTY-KII /* 表上作业法的源代码 */ #include "stdio.h" #include "alloc.h" #include "math.h" /* #define debug */ #define a(j) (*(C+(M-1)*N+j)) /*销量数组*/ #define b(i) (*(C+i*N+N-1)) /*产量数组*/ #define c(i,j) (*(C+i*N+j)) /*运价数组*/ #define x(i,j) (*(X+i*(N-1)+j)) /*运量数组 */ /*(<1.0E15:基本解,>=1.0E15:运量为0) */ #define s(i,j) (*(S+i*(N-1)+j)) /*检验数数组Sij */ #define u(i) (*(U+i)) /*位势数组Ui*/ #define v(i) (*(V+i)) /*位势数组Vi*/ #define cpi(k) ((CP+k)->i) /*闭回路点i标*/ #define cpj(k) ((CP+k)->j) /*闭回路点i标*/ #define cpf(k) ((CP+k)->f) /*闭回路点i标*/ /* f=0:j++; f=2:j--; f=1;i--; f=3:i++; */ /*void TP(int M,int N,double *C,double *X); */ 10 6 30 0 20 30 40 50 60 12 7 14 16 9 10 9 13 8 14 183 185 119 162 137 102 179 118 114 189 107 169 161 179 169 140 135 112 184 149 128 106 165 178 199 183 194 127 184 173 124 125 151 127 178 160 162 105 150 185 179 153 174 121 142 108 163 157 138 189 171 114 131 165 150 159 131 155 135 165 124 167 107 109 107 149 175 162 108 182 135 181 106 136 183 134 179 188 136 131 189 166 158 159 180 162 104 116 159 111 void main() { int M,N,i,j; double *C; /*存储运价,产量及销量 */ double *X; /*存储运量分配方案 */ float z; FILE *fp; char fn[80]; double sum; void TP(int M,int N,double *C,double *X); printf("please input the data file name: "); scanf("%s",fn); 数据挖掘第一次作业 第一题： (a).由最大-最小规范化公式vi′=vi?minA maxA?minA new_maxA?new_minA+new_minA得 35规范化后的值为35?13 70?13 1?0+0=0.386 (b).先计算属性的均值A’和标准差σA A’=1 n (v1+v2+?+v n)=1 27 13+15+16+?+70=29.963 35经过Z分数规划后的结果为v?A′ σA =35?29.963 12.94 =0.38 (c).由于属性绝对值最大为70，我们用100来除每个值 35规范化后的结果为 0.35 (d).最大—最小规范方法保持原始数据值之间的联系；Z分数规范化当属性的最大值和最小值未知，或离群点左右了最小-最大规范化时，该方法有用；小数定标规范化过于简单。我比较喜欢最小-最大规范化，因为这种方法计算起来没有Z分数复杂，并且不会使原始数据改变很多，保留了它们之间的联系。 第二题： (a).?X∈transaction,共有4个事务，最小相对支持度为60%，因此最小支持度计数阀值为3，用Apriori算法找到最大的频繁项集 L3={Milk, Cheese, Bread}，过程如下： L3的非空子集{Milk,Cheese},{Milk,Bread},{Cheese,Bread},{Milk},{Cheese},{Bread},结果关联规则如下： {Milk, Cheese}=>Bread, confidence=3/3=100% {Milk, Bread}=>Cheese, confidence=3/4=75% {Cheese, Bread}=>Milk, confidence=3/3=100% Milk=>{Cheese, Bread}, confidence=3/4=75% Cheese=>{Milk, Bread}, confidence=3/3=100% Bread=>{Milk, Cheese}, confidence=3/4=75% 由于min_conf=80%,所以只有第一个、第三个和第五个规则可以输出，是强规则。即，所有强规则如下： ?X∈transaction buys(X, Milk)^buys(X, Cheese)=>buys(X, Bread) ?X∈transaction buys(X, Bread)^buys(X, Cheese)=>buys(X, Milk) ?X∈transaction buys(X, Cheese)=>buys(X, Milk)^ buys(X, Bread) (b)?X∈customer,共有3个事务，最小相对支持度为60%，因此最小支持度计数阀值为2，用Apriori算法找到的最大频繁项集 L2={{Sunset-Milk, Dairyland-Cheese, Wonder-Bread}, {Dairyland-Milk, Wonder-Bread, Tasty-Pie} }共两个最大频繁项集 过程如下：人工智能上机实习题
符号大全~~
c语言程序填空(含答案)
表上作业法
C语言上机实验心得(20200505190812)
表上作业法的源代码
数据挖掘作业