批口算编程
① 编程口算题输答案后判断对错,Python编程语句怎么写
import random
flag = ["+","-","×","÷"]
a1 = random.randint(0,9)
a2 = random.randint(0,9)
i_flag = random.randint(0,3)
str = f"{a1} {flag[i_flag]} {a2} = "
result = None
if flag[i_flag] == "+":
result = a1 + a2
elif flag[i_flag] == "-":
result = a1 - a2
elif flag[i_flag] == "×":
result = a1 * a2
elif flag[i_flag] == "÷":
result = a1 / a2
else:
pass
ins = input(str)
if f"{result}" == ins:
print(f"{ins} is correct! ")
else:
print(f"{ins} is wrong, right answer is : {str}{result}")
② 班级小管家能自动批改口算吗
能。
班级小管家是能自动批改口算的,这个功能在主页栏里就有。
班级小管家新增功能点:1、新增“ 批量批改”模式;2、批改页面可 “滑动头像”,快速切换学生,提高批改速度。3、优化评论区域,可换行;4、新增“ 快捷评语”,可自定义;5、新增按 AB打分,可选:A+、A、B、C、D、D。
③ 如何快速批改小学口算作业
作为小学家长,每天除了上班下班,回到家还要检查孩子的大量的口算作业,费时费力又费心;作为小学数学老师,每天要备课、上课、改作业等,批改全班40多位同学的口算作业,每天都要花费大量的精力。
啄木鸟查查是一款专门帮助数学老师和小学家长检查口算作业的APP。打开啄木鸟查查APP,只需要拍照或相册选择口算照片上传,秒出批改结果,并将有问题的地方用红圈标出,方便家长老师检查,特别贴心的是,检查作业后并没有给出正确答案,最大程度的保证家长与孩子协同高效的学习。
有了啄木鸟查查APP,口算题目一键拍照检查,不仅可以计算常规四则运算,小数、分数等复杂题型也可以轻松识别,不再需要人工批改,极大地提高了小学家长和老师批改口算题目的效率,赶紧下载试试吧。
④ 4年级口算自动出题自动批改!!!
4年级的口算题自动出题很多系统都可以实现,比如翌学就就有几十万道题库,轻松自动出题,然后就是自动批改。
自动批改也可以实现,难点在于小学没有答题卡,如果口算题自动批阅那就需要人工智能来实现,现在也确实有这样的技术。另外就是口算题是要写出答案的,并不是标光识别,这需要自动阅卷系统有识别手写字体的能力。
目前通过人工智能和大数据等技术可以实现选择、判断、填空或者只关注计算结果的计算题,你所说的4年级口算题完全可以自动批改。
⑤ 高分悬赏,C语言编程 口算自测系统
#include "stdio.h"
#include "windows.h"
#define ten 10
#define hundred 100
#define thousand 1000
void main()
{
int inp,mod_n,a,b,resul;
int operat=0;
int righ=0,rong=0;
printf("1.十位数内的加减乘法.\n");
printf("2.百位数内的加减乘法.\n");
printf("3.千位数内的加减乘法.\n");
scanf("%d",&inp);
switch (inp)
{
case 1:mod_n=ten;
break;
case 2:mod_n=hundred;
break;
case 3:mod_n=thousand;
break;
default:printf("输入错误,默认难度为1.\n"); }
do
{
system("cls");
printf("-1000退出练习,并统计结果.\n");
a=rand()%mod_n;
b=rand()%mod_n;
operat=rand()%3;
switch (operat)
{
case 0:resul=a+b;
printf("%d+%d=\n",a,b);
break;
case 1:resul=a-b;
printf("%d-%d=\n",a,b);
break;
case 2:resul=a*b;
printf("%d×%d=\n",a,b);
break;
// case 3:resul=a/b;
// printf("%d÷%d=\n",a,b);
// break;
}
scanf("%d",&inp);
if (inp==-1000)
{
break;
}
if (inp==resul)
{
printf("正确!");
righ++;
}
else
{
printf("错误!");
rong++;
}
} while (1);
printf("你一共完成%d题\n正确%d题,错误%d题。\n",
righ+rong,righ,rong);
}
⑥ 学校里组织了数学口算比赛,数学老师批卷太慢,你能编程利用计算机帮助他们批阅口算题么除法除外
随机函数
⑦ vb6.0编程的口算计分程序
5分太少.
看在你还是一线的情况下.我帮你吧..设计界面看图.
数据库用ACCESS2003,名为dbase.mdb,建立一张表,名为tiku
建立以下字段
ID数字tihao数字tumu文本daan数字
请手动加记录,记录必须大于240行....
代码如下:
OptionExplicit
PublicthAsInteger
PubliccwsAsInteger
PubliczthAsInteger
PublicslAsInteger
PublicdaAsInteger
PubliccnAsADODB.Connection
PublicrsAsADODB.Recordset
PublicsqlAsString
PrivateSubqjl()
rs.Close
cn.Close
Setrs=Nothing
Setcn=Nothing
EndSub
'声明数据库连接相关的.
PublicFunctionconstr()AsString
constr="provider=microsoft.jet.oledb.4.0;datasource="&App.Path&"dbase.mdb;"
EndFunction
'数据库路经
PublicFunctionseta()AsString
Setcn=NewADODB.Connection
Setrs=NewADODB.Recordset
cn=constr
cn.Open
EndFunction
PrivateSubtongji()
Ifopt1.Value=FalseAndopt2.Value=FalseThen
zth=zth+1
cws=cws+1
l6.Caption=Str(zth)
Else
Ifda=CInt(sl)Then
zth=zth+1
l6.Caption=Str(zth)
Else
zth=zth+1
cws=cws+1
l6.Caption=Str(zth)
EndIf
EndIf
EndSub
PrivateSubqkz()
t1.Enabled=False
t2.Enabled=False
opt1.Enabled=False
opt2.Enabled=False
l4.Caption="0"
l2.Caption="0"
l3.Caption="0"
l5.Caption=""
l6.Caption="0"
EndSub
PrivateSubcmdr_Click()
Callqkz
Ifzth=0Then
Callqkz
MsgBox"一个题也没有回答,没有结果!",vbInformation,"-提示-"
Else
Callqkz
IfMsgBox("你本次的考试成绩如下:"&vbCrLf&"你的总题数为:"&zth&"你的错题数为:"&cws&"你的正确率为:"&Format(((zth-cws)/zth)*100,"0.00")&"%."&vbCrLf&"是否要重新答题?",vbInformation+vbYesNo+vbDefaultButton2,"-提示-")=vbYesThen
Callqkz
MsgBox"请点<开始答题>按钮开始答案!",vbInformation,"-提示-"
Else
Callqkz
th="1"
zth=0
cws=0
da=2
sl=2
EndIf
EndIf
EndSub
PrivateSubcmds_Click()
l2.Caption="120"
l3.Caption="10"
t1.Enabled=True
t2.Enabled=True
th="1"
cmdn.Enabled=True
opt1.Enabled=True
opt2.Enabled=True
zth=0
cws=0
Callchuti
EndSub
PrivateSubchuti()
opt1.Value=0
opt2.Value=0
seta
sql="select*from[tiku]where[tihao]="&th&""
rs.Opensql,cn,adOpenKeyset,adLockOptimistic
Ifrs.Fields("tihao")=""Then
Callqjl
MsgBox"题库中没有题目!",vbInformation,"-提示-"
Else
th=CInt(rs.Fields("tihao"))+1
l4.Caption=Str(rs.Fields("tihao"))
l5.Caption=rs.Fields("timu")
da=CInt(rs.Fields("daan"))
Callqjl
EndIf
EndSub
PrivateSubForm_Load()
t1.Enabled=False
t2.Enabled=False
opt1.Enabled=False
opt2.Enabled=False
EndSub
PrivateSubopt1_Click()
sl="1"
EndSub
PrivateSubopt2_Click()
sl="0"
EndSub
PrivateSubt1_Timer()
IfCInt(l2.Caption)=0Then
t2.Enabled=False
t1.Enabled=False
IfMsgBox("总时间已到,不能再作答题!"&vbCrLf&"是否要查看结果??",vbInformation+vbYesNo,"-提示-")=vbYesThen
Callcmdr_Click
Else
ExitSub
EndIf
Else
l2.Caption=CInt(l2.Caption)-1
EndIf
EndSub
PrivateSubt2_Timer()
IfCInt(l3.Caption)=0Then
Calltongji
Callchuti
l3.Caption="10"
Else
l3.Caption=CInt(l3.Caption)-1
EndIf
EndSub