批口算編程
① 編程口算題輸答案後判斷對錯，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