首页 科普 资讯 养生 问答 找医院 相关问答
首页> 问答

PASCAL 求各位大虾看看我的程序为何错了,20分!

发布网友 发布时间:2024-10-24 07:33

我来回答

4个回答

热心网友 时间:2天前

想要解决没有输出很简单,你在跳出循环的时候不应该使用exit,而应该是break
break用于跳出当前循环,exit则是用于跳出当前子程序
而当exit写在主程序里的时候,就成了结束程序的语句!
你想想,如果你每次一读完数据,就结束程序,怎么可能会有输出呢

但即使把exit改成break,使这个程序有了输出,还是有点小错误

错误1:跳出循环的条件有问题,你写的是当b[i]=b[i-1]时跳出循环,但如果是1001这种数据,b[3]=b[2]时程序就提前跳出了
解决1:将跳出循环改为if a=0 then break;,在你修改后的程序中,a每次都是要除以10的,很显然当a=0时表明所有的数位都被取尽了,也就可以跳出了

错误2:数据范围有问题,你将a变量定义为integer,那么a的最大值只可能是32767,也就是说当输入的数大于32767时(比如123456),a变量就会溢出变成负数,从而程序就会出现错误了
解决2:应当将a的数据类型设为范围更大的longint、dword或者qword,这三种数据类型的最大值分别为2^31-1、2^32-1和2^64-1

修改完善后的程序如下(亲测可以正确输出结果):
program ii;
var
c,d:array[0..10]of string;
b:array[0..10] of integer;
i,n:integer; a:longint;
begin
readln(a);
i:=1;
while true do
begin
b[i]:=a mod 10;
a:=a div 10;
if a=0 then break;
i:=i+1;
end;
c[0]:='zero'; d[9]:='yi';
c[1]:='one'; d[8]:='qianwan';
c[2]:='two'; d[7]:='baiwan';
c[3]:='three'; d[6]:='shiwan';
c[4]:='four'; d[5]:='wan';
c[5]:='five'; d[4]:='qian';
c[6]:='six'; d[3]:='bai';
c[7]:='seven'; d[2]:='shi';
c[8]:='eight'; d[1]:='yuan';
c[9]:='nine';
for n:=i downto 1 do
write(c[b[n]],' ',d[n],' ');
end.

热心网友 时间:2天前

改成 write(c[b[n]]+d[n]); 试试看

热心网友 时间:2天前

while true do
begin
b[i]:=a mod 10;
if b[i]=b[i-1] then exit;
i:=i+1;
end;
这段有问题:
你的 a 没有 DIV 10 所以每次取余都是相同的数
然后你就 exit 了
所以没输出

热心网友 时间:2天前

var
st:string;
l,i:longint;
ge,shi,bai,qian,wan,shiwan:char;
begin
read(st);
l:=length(st);
ge:=st[l];
shi:=st[l-1];
bai:=st[l-2];
qian:=st[l-3];
wan:=st[l-4];
shiwan:=st[l-5];
write(shiwan,'shiwan',wan,'wan',qian,'qian',bai,'bai',shi,'shi',ge,'yuan');
end.
做梦梦见一个火麒麟和一个黑麒麟一边一个站着是什么意思?这个梦是... ...男的骑在一个金黄色的麒麟上,这预示着什么? 户口居转户条件 经常打哈欠怎么预防和治疗?求解答 联通大王卡,第一个月用了90GB(已解除封顶),下个月还有没有大王卡... 怎么把u盘视频导入手机 造价工程师在日本叫什么 日本造价工程师叫什么 ...在U盘复制文件到U盘完成后,在没有拔出U盘查看文件还在,拔后再插入查... 日本造价工程师叫什么名字 u盘里的视频怎么用手机播放 日本造价工程师叫什么职业 日本的造价工程师叫什么 在天府新区买住宅需要什么资质条件? 在天府新区买住宅需要满足什么条件? 治疗女性性冷淡的药物有哪些 凯乐石冲锋衣辨别真伪方法 语不惊人 (打一语文用语)灯谜大全及答案 今天广州到昆明班机时间是多少?? 我2010年高考英语成绩是116分,已经报考2011的4级英语了通过的可能性大... 本人2010年高考考了429分英语101分能被漯河医专英护录取吗 请查一下12月26号从广州到昆明的机票钱是多少!谢谢 沉默的大多数-王小波文集图书信息 Y 今天下午有没有飞机从广州到昆明的呢?下午几点的呀? 《沉默的大多数》摘录(上) 调酒师在酒吧都要做些什么?拜托各位大神 回国时护照丢失了,签证是日本的家族滞在3年的,怎样补办然后回日本 谢 ... 我老公在日本读研究生,给我办理家族滞在,现已拿到日本家族滞在再留... ...我现在在中国他这次续的是三年的签证 如果我们想在这期间领结婚证... 我爸爸在日本工作,现已取得3年签证,现在我也拿到了家族滞在的3年签证... 名字和八字相克表现什么 我一两天打一次飞机会怎么? 有一种深情叫默默关注 绿松石估价 隋唐英杰传九游攻略下载地址 隋唐英杰传攻略1下载地址 隋唐英杰传最新全攻略下载地址 国产战棋游戏的黄金年代:百花齐放,大作云集 隋唐英杰传攻略下载地址 ...XP SP3 快速装机版2012.06 我下载了这个系统,可是无法打开啊~~~_百... 生蚝怎么开壳容易 王者正新鸡排真的那么火爆吗? 王者正新鸡排店夫妻两可以开吗? 王者正新鸡排为什么火爆? 扁桃体经常发炎做过手术是在10岁时 可没有效果 我的孩子扁桃体发炎了,前几天有一天还高烧了,后来吃安瑞克退烧了,吃了... ...我没有交入学费,当我看到学信网上还有我的信息... 我是13年高考、高考后被一家民办学校录取、但是我没去。去了一家公办... 什么叫举牌股 月经推迟6天是不是怀孕了 这是干什么的 是喝水的杯子吗 和田玉的雕刻工艺介绍-和田玉资讯 《斗罗大陆》的漫画单行本在哪里买的到? ...用迅雷下载,都变成固定278.69KB大小的WORD文档?而且是乱码?_百度... 斗罗大陆漫画第几册是小舞爆摔猥琐男 ...了输尿管结石今天不舒服不检查结果又有肾结石请问这有什么关连吗?4... ...是自动将文件名更改为“历史”的WORD文档或者下载下来后打不开提示... 如何锻炼自己的高效自律力? 筹码的拼音狐筹码的拼音是什么 和田玉器加工的步骤-和田玉资讯 有为人的气节,必有为文的气节 阳台种植土壤如何消毒? 迎国庆征文的最后一段怎么写 ...而且用迅雷下的就变成网页了,不是word文档。 基本保险金额对应的现金价值是什么意思? 身边亲人得寸进尺怎么办? 和田玉玉器的雕琢过程-和田玉资讯 国庆献礼征文(必备5篇) 现金价值和保额的关系是什么? 为爱所困2024泰剧演员表 谈恋爱就要啪啪啪?婚前性行为,该支持吗? 神剑奇缘3闪灵王怎么获得 国际货物运输国际货物运输保险 我跟前男友分手都几个月了。他之前就一直叫我拿给我用了的钱,都是微 ... 芒果嗨q h7第二代可以用手机玩游戏吗 ...己酉,度支部当制钱十文,宣统年造。现在值不值钱??? 芒果嗨q h7二代开机启动软件如何关闭? 芒果嗨q界面添加的应用怎么取消 问下。有个魔兽地图。角色扮演的。和剑有关系 游戏里角度随这人物动的... 我有一枚大清已酉铜币,现在值多少钱 出口运输保险 植物对重金属污染产生耐性作用的主要机制是什么? 公司为什么说买不进社保 科尔多瓦 皇家马德里让两球半场1比1怎么算 出口货物运输保险出口货物运输保险业务 输尿管结石治疗,4种情况6项注意 国庆献礼征文(必备5篇) 之前我跨栏的时候没当心,脚背撞在了铁栏杆上,随即就剧痛,走不了路,一... 谈恋爱就要啪啪啪?婚前性行为,该支持吗? PASCAL问题:我的程序哪里错了?
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com