一道pascal题目

正在上一年级的小卡卡最近开始学习数的加法运算,一天老师为了测试大家对加法的掌握情况,让同学们做了一个有趣的游戏。老师在黑板上从左到右写下了n个大于零的整数,老师接下来找出... 正在上一年级的小卡卡最近开始学习数的加法运算,一天老师为了测试大家对加法的掌握情况,让同学们做了一个有趣的游戏。老师在黑板上从左到右写下了n个大于零的整数,老师接下来找出n个同学完成下面的计算任务。第一个同学在黑板上抄下最左边的数字,第二个同学负责将第一个同学写下的数字,加上老师写下的左边第二个数字所得到的数写在了黑板上。以此类推,第m个同学将前面第m-1个同学所写下的数字加上老师在黑板上写下的从左边数的第m个数字所得之和,并将结果写到黑板上。当计算完成这n个数字之后,老师又让同学从最右边开始按相同的方法再次计算出n个数值。最后老师让同学们找出这所有数字当中共有多少个是相同的。 展开
 我来答
eofi
2012-02-29
知道答主
回答量:11
采纳率:0%
帮助的人:19.5万
展开全部
对于你的最后一个问题~在所有数中,总共有多少个数相同?有异议~
比如 1 1 1 2 2 这类数,到底回答有3个数相同呢?还是2个数相同?还是总共5个?这点是表达不清哈
所以呢~在你题目最后一问不确切的情况下 我只考虑存在1 1 1 2 3这类情况~~~(当然要考虑1 1 1 1 2 2 2 3 3 3)这类情况,等你把题表达清楚了~自己改改就行了~
代码如下~
program records;
var b:set of 1..255;//集合定义
n,x,i,s,d:integer;//n为总数,x为读入变量,s为求和,d为记录相同的个数
begin
readln(n);
i:=0;s:=0;b:=[];d:=1;//初始化,d为1,因为自身是和自身相同的~
while i<n do
begin
i:=i+1;
read(x);
if not(x in b) then b:=b+[x]//不在集合中,加入
else d:=d+1;//否则记录+1
s:=s+x;//求和
writeln('Line',i,':',s:3);//输出
end;
writeln('Totally same numbers');
write(d);
end.
PS:我开始已经说了哦~由于你的问题不是很清楚,导致无法给出一个确切的程序
上述代码只处理2 1 3 1 1 1等这类的~不处理1 1 1 2 2 2 3 3 3 3 4 4 4 4等等这类的
因为集合处理与顺序无关,所以你要从右边开始,只需要把数据倒着输入就行了~如果你硬要顺序输入,那么自己定义一个数组,把它们倒序排列~(效果一样哦)
时间复杂为n
望采纳~谢谢
追问
【输入文件】add.in
第共两行,第一行为n(1<n<100),第二行为n个数,用空格隔开,每个数的大小在0~200之间。
【输出文件】add.out
第一次与第二次计算出的数值中相同的个数
【样例文件】
add.in
7
3 6 2 1 4 5 2
add.out
3
追答
program records;
var b:set of 1..255;
b1:array[1..255] of integer;//因为你说要左右比较,所以加一个数组
n,x,i,s,d:integer;
begin
readln(n);
i:=0;s:=0;b:=[];
while i=1 do
begin
s:=s+b1[i];
writeln('LineR',n-i+1,':',s:3);//输出右边计算结果
if s in b then d:=d+1;//进行记录
i:=i-1;
end;
writeln('Totally same numbers');
write(d);
end.
富港检测技术(东莞)有限公司_
2024-06-06 广告
ISTA3L是一个基于研究、数据驱动的测试协议,它模拟了由零售公司完成的产品订单被直接运送给消费者时所经历的危险,它允许用户评估包装产品的能力,以承受运输和处理包装产品时所经历的供应链危险,从接收到任何电子商务零售商履行操作,直到最终消费者... 点击进入详情页
本回答由富港检测技术(东莞)有限公司_提供
柯南zqtzqt
2012-03-08 · TA获得超过124个赞
知道答主
回答量:144
采纳率:0%
帮助的人:62.4万
展开全部
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式