三九宝宝网宝宝百科宝宝知识

Pascal 2013年普及组试题

01月10日 编辑 39baobao.com

[2005中考语文试题]采菊东蓠下的陶渊明 人比黄花瘦的李清照 陶渊明(352或365或372或376—427),字元亮,别号五柳先生,晚年更名潜,卒后亲友私谥靖节。东晋浔阳柴桑人(今江西九江市)人。 李清照:(1084-约115...+阅读

var s,s1,s2,ss:string; i,x1,x2,j,x3,xx:longint; begin readln(s); s:=s+'='; //最后加上=,方便下面计算 i:=1; while i4 then s1:=copy(s1,length(s1)-4+1,4); //如果超过四位那么只取四位 if length(s2)>4 then s2:=copy(s2,length(s2)-4+1,4); val(s1,x1);val(s2,x2); x3:=x1*x2; str(x3,ss); if length(ss)>4 then ss:=copy(ss,length(ss)-4+1,4); delete(s,i,j-i); insert(ss,s,i); //插入得数 end else inc(i); //如果不是乘号就进行下一位 end; s1:=''; for i:=1 to length(s) do //取出第一个加数 if s[i]in['0'..'9'] then s1:=s1+s[i] else break; val(s1,x1);s1:=''; for i:=i+1 to length(s) do //算加法 if s[i]in['0'..'9'] then s1:=s1+s[i] else begin if length(s1)>4 then s1:=copy(s1,length(s1)-4+1,4); //同上,只去最后四位 val(s1,x2); x1:=x1+x2; str(x1,s1); if length(s1)>4 then val(copy(s1,length(s1)-4+1,4),x1); s1:=''; end; str(x1,s1); if length(s1)

以下为关联文档:

求艾斯英语听力高考英语听力模拟试题精编3强化训练mp3听力资《艾斯英语:高中英语听力模拟试题精编》网盘txt 最新全集下载 链接: 艾斯英语听力.rar723.80M 来自:网盘提取码: tw3d复制提取码跳转 提取码:tw3d 《艾斯英语:高中英语听力模拟试...

试题目是外卖垃圾会毁掉下一代吗解答思路是什么【热点链接】 近日,题为《外卖,正在毁灭我们的下一代》的文章,认为外卖业是塑料垃圾污染的罪魁祸首,还在文末提出了包括抵制外卖在内的多项倡议,这篇堪称犀利、热辣的网文火了,引...

加油站安全培训试题加油站员工培训考试试题 一、 单项选择题 1、冬天,一老客户开柴油车来加油,员工要求其熄火后加油,客户说熄火后不好启动,该如何处理。( ) A、对客户说不熄火不能加 B、反正是柴油,...

显卡知识求普及1,显卡并不是显存越大越好 2,显卡的好坏在于显卡的核心频率和流处理器数 3,英伟达的显卡目前都是GTX6XX系列和GTX7系列,好坏是看第二个数字,例如GTX590比 GTX660好,也不排除新技术...

哪位大神给我普及一下显卡知识楼主:这个问题比较书本化,我给你举几个例子吧 首先 显卡的数字越大一般就越好 不过在N卡上有例外 比如9800比GTX260就烂些 因为N卡经常改名字 以前都是用4位数 现在全部改成3...

100分求面试题目越多越好我是大四的学生,最近正在找工作。下面是一些我在求职的过程中搜集和整理出来的资料,关于面试时比较有可能提到的问题及答题的思路,比较实用的,希望能帮到你。有点长,耐心看看,会用...

基础会计学试题一、单选题(每小题2分,共10分) 1. C 2. C 3. D 4. C 5. D 二、多选题(每小题2分,共10分) 1. AB 2. AC 3. AD 4.CD 5.ACD 多选不确定 三、判断正误(每小题2分,共20分)错用X 对O 1.X 2....

学车的理论考试题目有哪些分四个阶段: 第一阶段:1道路交通法律、法规; 2、驾驶道德; 3、安全驾驶相关知识; 4、车辆结构常识; 5、上、下车及驾驶姿势; 6、起步前的准备; 7、操纵装置的规范操作方法 第二个阶...

西方经济学考试题经济学研究稀缺资源的配置,包括 (A) 生产什么 (B) 生产多少 (C) 如何生产 (D) 为谁生产 (E) 什么时候生产 ABCD经济学有一套以数量分析为特征的分析方法,包括 (A) 均衡分析法 (B) 边际分析法...

推荐阅读
图文推荐