试卷批分pascal程序

某学校进行了一次英语考试，共有10道是非题，每题为10分，解答用1表示“是”，用0表示“非”的方式。但老师批完卷后，发现漏批了一张试卷，而且标准答案也丢失了，手头只剩下了3张标有分数的试卷。

试卷一：① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩
0 0 1 0 1 0 0 1 0 0 得分：70
试卷二：① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩
0 1 1 1 0 1 0 1 1 1 得分：50
试郑三：① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩
0 1 1 1 0 0 0 1 0 1 得分：30

待批试卷：① ② ③ ④ ⑤ ⑥ ⑦ ⑧ ⑨ ⑩
0 0 1 1 1 0 0 1 1 1 得分：？
问题求解：

请编一程序依据这三张试卷，算出漏批的那张试卷的分数。

这题我是用搜索的方法来做的

我先把试卷的答案记录下来，再一个一个填，填完了就check，如果check成立，那么就输出分数

const
a:array[1..5,1..10]of longint=((0,0,1,0,1,0,0,1,0,0),
(0,1,1,1,0,1,0,1,1,1),
(0,1,1,1,0,0,0,1,0,1),
(0,0,1,1,1,0,0,1,1,1),
(0,0,0,0,0,0,0,0,0,0));
var
b:array[1..5]of longint;
procedure check;
var
i,j:longint;
beginfillchar(b,sizeof(b),#0);for i:=1 to 4 dofor j:=1 to 10 doif a[i,j]=a[5,j] then inc(b[i]);if (b[1]=7)and(b[2]=5)and(b[3]=3) thenbeginwrite(b[4]*10);halt;end;exit;
end;
procedure search(dep:longint);
var
i:longint;
beginif dep>10 thenbegincheck;exit;end;for i:=0 to 1 dobegina[5,dep]:=i;search(dep+1);end;
end;
beginfillchar(b,sizeof(b),0);search(1);
end.

转载于:https://www.cnblogs.com/YYC-0304/p/9500242.html

试卷批分pascal程序相关推荐

试卷批分(c++打表版)
某学校进行了一次英语考试,共有10道是非题,每题为10分,解答用1表示"是",用0表示"非"的方式.但老师批完卷后,发现漏批了一张试卷,而且标准答案也丢失了,手 ...
基于小程序·云开发构建高考查分小程序丨实战
2019高考报名人数达到了 1031 万的新高,作为一名三年前参考高考的准程序猿,赶在高考前,加班加点从零开始做了一款高考查分小程序,算是一名老学长送给学弟学妹们的高考礼.上线仅 1 个月,用户数就突 ...
Expo大作战(十九)--expo打包后，发布分用程序到商店的注意事项
简要:本系列文章讲会对expo进行全面的介绍,本人从2017年6月份接触expo以来,对expo的研究断断续续,一路走来将近10个月,废话不多说,接下来你看到内容,讲全部来与官网我猜去全部机翻+个人 ...
外卖分销返佣分佣程序外卖cps小程序返利系统外卖项目优惠券返利
外卖CPS红包小程序源码分享外卖券外卖省省外卖探探美团饿了么外卖联盟优惠券小程序系统软件开发源码美团/饿了么外卖CPS联盟返利公众号小程序裂变核心源码今天和大家分享下外卖CPS项目,这个其实和做 ...
一分赛车程序制作 mysql主从配置
(1) .准备两台主机,一分赛车程序制作q<115.28.8.00.9.9>主服务器my.cnf配置log-bin=master-bin.log ,server-id=1 ,从服务器ser ...
计算机办公软件应用三套题目,Office办公软件初级应用第三套试卷100分.doc
Office办公软件初级应用第三套试卷100分 Office办公软件高级应用第三套试卷总分:100 考试时间:100分钟一.单项选择题 1.在Word 2010编辑状态下,若要进行字体效果的设置( ...
黄金比例检测评分小程序构思
黄金比例检测评分小程序构思小程序无服务器云数据库接口百度人体分析的两个接口调用: 人体关键点识别(核心) 人体检测和属性识别前端可直接获取access_token 思路通过相机截取三张 ...
Pascal程序结构
Pascal程序结构什么是Pascal程序结构 Pascal程序结构是指Pascal程序的基本组成部分及其组织方式,包括程序.单元.过程.函数.类型定义.变量定义.语句和表达式等.程序结构的良好设计 ...
java扫描试卷改分,电子阅卷系统方案电脑改卷系统
电子阅卷系统方案电脑改卷系统网上阅卷系统包括: 系统管理模块:完成阅卷系统的客户管理,权限分配,考卷的分值设定.题目设定.标准答案.教师阅卷分配等功能. 试卷扫描模块:完成考生原始考卷的扫描,并将 ...

试卷批分pascal程序

试卷批分pascal程序相关推荐

最新文章

热门文章