DATA SEGMENT
STRING DB 13, 10, 'Please iuput number_1 : $'
STRING2 DB 13, 10, 'The average is : $'
NUM DB 7 DUP (?)
MAX DB 0
MIN DB 255
N_SUMDW ?
NUM_XDB ?
DATA ENDS
CODE SEGMENT
START:
MOV AX, DATA
MOV DS, AX
MOV CX, 7
MOV SI, 0
IN_X:
MOV DX, OFFSET STRING
MOV AH, 9 显示字符串
INT 21H
CALL INPUT
MOV NUM[SI], BL
CALL OUTPUT
INC SI
INC STRING + 24
LOOP IN_X
--------------------------
CALL SUM
MOV N_SUM, BX
MOV AL, MAX
MOV AH, 0
SUB BX, AX
MOV AL, MIN
MOV AH, 0
SUB BX, AX
MOV AX, 5
XCHG AX, BX
DIV BL
MOV NUM_X, AH
MOV AH, 0
XCHG AX, BX
MOV DX, OFFSET STRING2
MOV AH, 9 显示字符串
INT 21H
CALL OUTPUT
CALL OUTPUT2
EXIT:
MOV AH, 4CH
INT 21H
----------------------------------
SUM:
MOV BX, 0
MOV CX, 7
MOV SI, 0
LP1:
MOV AL, NUM[SI]
CMP AL, MAX
JBLP2
MOV MAX, AL
LP2:
CMP AL, MIN
JAHE
MOV MIN, AL
HE:
MOV AH, 0
ADD BX, AX
INC SI
LOOP LP1
RET
----------------------------------
INPUT:
PUSH CX
MOV BX, 0
MOV CX, 2
IN_1:
MOV AH, 1
INT 21H
CMP AL, 13
JZIN_END
CMP AL, '0'
JBIN_1
CMP AL, '9'
JAIN_1
AND AL, 0FH
MOV AH, 0
XCHG AX, BX
MOV DL, 10
MUL DL
ADD AX, BX
XCHG AX, BX
LOOP IN_1
IN_END:
POP CX
RET
----------------------------------
OUTPUT2:
MOV AH, 02H
MOV DL, '.' 小数点
INT 21H
MOV AL, NUM_X
MOV BL, 10
MUL BL
MOV BL, 5
DIV BL
MOV NUM_X, AH
ADD AL, '0'
MOV DL, AL
MOV AH, 2
INT 21H
MOV AL, NUM_X
MOV BL, 10
MUL BL
MOV BL, 5
DIV BL
MOV NUM_X, AH
ADD AL, '0'
MOV DL, AL
MOV AH, 2
INT 21H
RET
----------------------------------
OUTPUT:
MOV AX, BX
MOV BL, 10
DIV BL
ADD AX, 3030H
MOV DX, AX
MOV AH, 2
INT 21H
MOV DL, DH
INT 21H
RET
----------------------------------
CODE ENDS
END START
----------------------------------
’3个label，2个commandPrivate Sub Command1_Click()
Dim s, i, j, arr(1 To 10), t, sum
For i = 1 To 10
s = InputBox("输入评分（0-10分）：", "第" &i &"个分数")
If IsNumeric(s) Then
s = Val(s)
If s <0 Or s >10 Then
i = i - 1
Else
arr(i) = s
End If
Else
i = i - 1
End If
Next
For i = 1 To 9
For j = i + 1 To 10
If arr(i) >arr(j) Then
t = arr(i): arr(i) = arr(j): arr(j) = t
End If
Next
Next
For i = 2 To 9
sum = sum + arr(i)
Next
Label1.Caption = "最高分为：" &arr(10)
Label2.Caption = "最低分为：" &arr(1)
Label3.Caption = "选手最后得分：" &Round(sum / 8, 1)
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Command1.Caption = "评分"
Command2.Caption = "结束"
With Label1
.Caption = ""
.AutoSize = True
End With
With Label2
.Caption = ""
.AutoSize = True
End With
With Label3
.Caption = ""
.AutoSize = True
End With
End Sub
1、 辩论赛开始2、 宣布辩题
3、 介绍参赛代表队及所持立场
4、 介绍参赛队员
5、 介绍规则评委及点评嘉宾
6、 辩论比赛
7、 规则评委及点评嘉宾退席评议
8、 观众自由提问时间
9、 规则评委入席，点评嘉宾评析发言
10、 宣布比赛结果
11、 辩论赛结束
辩论赛评分标准
A、团体评分细则
一、立论陈词
评分标准（15分）：
论点明晰，论据充足，引证恰当，分析透彻。语言表达清晰、流畅；层次清楚，逻辑严密。
二、攻辩环节
评分标准 （20分）：
提问简明，击中要害；回答精准，处理问题有技巧；表达清晰，论证合理而有力。
需要扣分的情形 ：
1.提问内容与辩题无关，
2.发言内容不健康或进行人身攻击
三、自由辩论
评分标准（30分）：
能速抓住对方观点及漏洞，驳论精到，切中要害，明确阐述本方立论和观点并博采出众。
需要扣分的情形：
1、对方已经明确回答的问题，仍然纠缠不清的；
2、发言不健康，或进行人身攻击的；
3、辩论与辩题无关；
4、在一方发言完毕另一方停顿时间过长未起立发言。
四、总结陈词
评分标准（15分）：
语言表达清晰、流畅；层次清楚，逻辑严密；对对方观点进行质疑，同时强化本方观点，并能首尾呼应。
需要扣分的情形：
辩论双方应针对辩论赛整体态势总结陈词，脱离实际的背稿适当扣分。
五、评委提问
评分标准（10分）：
反应敏捷，应对能力强，巧妙回避，且很好的把握现场气氛。
六、团体配合
评分标准（10分）：
四位辩手，配合默契，观点统一。
注：1、比赛中若连续超时，要适当扣分；（1-3分）
2、评分时去掉一个最高分，一各最低分，其余求平均数即为最后得分。
B、个人评分细则
最佳辩手
一、语言表达30分
1．辩手辩论应符合辩题，不得在主要观点上脱离辩题。10分
2．辩手应有真情实感，且可以用幽默诙谐的语言调节现场气氛。5分
3．辩手应吐字清晰，语速适当，有肢体语言，语言文明，相互尊敬礼貌。10分
4．辩手应运用精炼的语言，阐述自己的观点。5分
二、逻辑思维20分
1．辩手辩论应有理有据，逻辑严密，论证有力。10分
2．辩手辩论应层次清晰，围绕本方观点进行辩驳。10分
三、辩驳能力15分
1．辩手可以合理使用各种辩论技巧。5分
2．辩手能够抓住对方失误，切中要害。5分
3．辩手可以运用适量例证来反驳对方观点。5分
四、整体意识10分
1．辩手应团结合作，配合默契，观点统一。5分
2．辩手辩论观点统一，未脱离本方观点。5分
五、临场反应10分
1．辩手应积极回答，从容应对，表现稳定心态和良好素质。5分
2．辩手反应敏捷，从容应对，不回避。5分
六．综合印象15分
1．仪态着装合理，大方自然。5分
2．尊重评委，对方辩友以及现场观众。5分
3．有风度以及幽默感。5分
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）