free pascal ide题目 给出一段序列(n<...

微机奥赛练习_百度文库
两大类热门资源免费畅读
续费一年阅读会员,立省24元!
微机奥赛练习
上传于||暂无简介
阅读已结束,如果下载本文需要使用1下载券
想免费下载本文?
下载文档到电脑,查找使用更方便
还剩36页未读,继续阅读
你可能喜欢PASCAL题求解_百度知道
PASCAL题求解
Swap(2;=N&lt,目标序列为0 2 3 8,交换相临的两个元素。输出格式一个整数=maxlongint,表示序列中每个元素:0 2 3 8数据范围对于30%的数据1&lt:0 2 8 3
3;=10^4,可进行三次操作的目标序列;=5*10^5:2 0 8 3
2.Swap(8:
1,即最少操作次数;=A[i]&lt.Swap(8。用最少的交换次数使原序列变成不下降序列。-maxlongint&lt。输入样例42 8 0 3输出样例3样例说明,0),3)。找到让这个序列变成不下降序列所需要的最小次数;=N&lt,表示序列的长度。对于100%的数据1&lt。输入格式:第一行一个整数N,0)。第二行为N个整数:开始序列为2 8 0 3有一段无序数字
解题思路.与具体程序,谢.
我有更好的答案
求逆序对。可以用归并排序或者树状数组搞到nlogn
其他类似问题
为您推荐:
pascal的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁pascal题目_百度知道
pascal题目
end!+1/writeln(&#39,x);x2:=1;e:=a*x&#47:=8:=x;n;x=&#39?(用pascal语言)二求一个长方形的面积;5+5/编程输出以下图形:=1:2*2+4*4+6*6+…n*n&lt?(用pascal语言)七编程求出下式中n最大值;for i,又多吃了一个.第二天吃了一半:=1 to 5 do beginx;1+1&#47:=(x1+x2)*2;x1;21+21/!,以下图形均为n=3);1500(用pascal语言)八打印以下图形;8+8&#47:=x2;2;x2.天天如此;end?(用pascal语言)六求e=1+1/3;计算公式(假设x的值以给出)e;2+2&#47!+…+1/a?(用pascal语言)三键入一个四位数(如3529)将其各位数字倒叙(如9253)打印,又多吃了一个;n:=1 to 10 dobegina:=e+a:⑴
*****一编程求1&#47?(用pascal语言)四输入圆的半径分别打印周长和面积值,第10天只有一个了问当初有几个;3+3/13+13/32…前20项的和?(用pascal语言)五猴子吃枣问题猴子买了一堆枣第一天吃了一半:=3,控制图形的行数阅读程序段:(键入n,写出运行后变量x的值x1
提问者采纳
begin21+21&#47编程求1&#47,i),j:double,(i mod 1000) div 100;e?(用pascal语言) i,(i mod 100) div 10:=1:2);
for i?(用pascal语言) i;8+8/2+2&#47?(用pascal语言) r.输入圆的半径分别打印周长和面积值;
end.键入一个四位数(如3529)将其各位数字倒叙(如9253)打印;3+3/5+5&#47:13+13/
write(e):=i+j.求一个长方形的面积;1+1&#47,k:=j,o;j:begin
writeln(2*pi*r):integer:0:=o:double:= 1 to 20 do
write(2*pi*pi):=1:=1;
write(i mod 10?(用pascal语言) h:=e+i/begin
readln(i);end,i,i div 1000);begin
write(h*i;32…前20项的和
提问者评价
我确实是初学者寒
其他类似问题
为您推荐:
其他6条回答
1+1&#47:=1;32…前20项的和编程求1/ write(h*i,k; begin writeln(2*pi*r),i div 1000):double:integer,(i mod 1000) div 100;
end:= 1 to 20 do begin e,j;13+13/3+3&#47:double?(用pascal语言) r; write(e)?(用pascal语言) i:=j;5+5&#47:=o;8+8/ begin readln(i);21+21&#47. 键入一个四位数(如3529)将其各位数字倒叙(如9253)打印:=1;
i?(用pascal语言) h;2+2&#47. 求一个长方形的面积:0?(用pascal语言) i:2); end. 输入圆的半径分别打印周长和面积值; o:=e+i/j. 加油; begin e,i: begin readln(h,i); write(2*pi*pi); write(i mod 10,(i mod 100) div 10; i,o;
e: end:=i+j:=1
好基础。基础到我都不想看了。还是好好学习吧,太简单的题都不会,你还是别学了
基础题好好学吧
canss,你怎么可以这样看不起人呢?说不定他是初学者。
初一的吧加油
慢慢学,楼上回答很好
pascal的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁Pascal题目求解,谢谢大家!_pascal吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名:今日本吧第个签到,本吧因你更精彩,明天继续来努力!
本吧签到人数:0成为超级会员,使用一键签到本月漏签0次!成为超级会员,赠送8张补签卡连续签到:天&&累计签到:天超级会员单次开通12个月以上,赠送连续签到卡3张
关注:8,946贴子:
Pascal题目求解,谢谢大家!收藏
问题 A: 化装晚会题目描述
万圣节又到了!Farmer John打算带他的奶牛去参加一个化装晚会,但是,FJ只做了一套能容下两头总长不超过S(1 & = S & = 1,000,000)的牛的恐怖服装。FJ养了N(2 & = N & = 50,000)头按1..N顺序编号的奶牛,编号为i的奶牛的长度为L_i(1 & = L_i & = 1,000,000)。如果两头奶牛的总长度不超过S,那么她们就能穿下这套服装。
FJ想知道,如果他想选择两头不同的奶牛来穿这套衣服,一共有多少种满足条件的方案。输入输入文件的第1行是 2个用空格隔开的整数:N 和 S, 第2..N+1行每行一个整数:L_i输出1行: 输出1个整数,表示FJ可选择的所有方案数。注意奶牛顺序不同的两种方案是被视为相同的样例输入4 63521样例输出4提示【输出说明】
4种选择分别为:奶牛1和奶牛3;奶牛1和奶牛4;奶牛2和奶牛4;奶牛3和奶牛4。【数据规模】对于30%的数据,N&=10000; 对于100%的数据,N&=50000
问题 B: 家族题目描述
在一个与世隔绝的岛屿上,有一个有趣的现象:同一个家族的人家总是相邻的(这里的相邻是指东南西北四个方向),不同的家族之间总会有河流或是山丘隔绝,但同一个家族的人不一定有相同姓氏。现在给你岛上的地图有n行,每行有若干列,每个格子中要么是“”,表示大海,要么是“*”,表示河流或山丘,要么是小写字母,表示一户人家的姓氏。输入第一行是个数字N,表示下面信息的行数。接下来是N行字符,每行由小写字母和*号组成,有些行的最前面也可能包含若干连续的空格,表示这些区域是大海,每一行最多不超过200个字符。输出一个数字,表示家族数。样例输入4*zlw**pxhl*zlwk*hx*w*tyy**yyy
zzl样例输出3提示10%的数据,n≤1。30%的数据,n≤10。100%的数据,n≤100每一行最多不超过200个字符。
问题 C: 毒药?解药?题目描述  
羽毛笔和im是抽签到同一个考场的,她们突然闻到一阵刺鼻的化学试剂的气味。  机灵鼠:(头都不抬)你们是考生么?还在门口磨蹭什么?快进来帮我忙!!……怎么还不进来?你们拖赛,拖赛,把你们的青春都拖掉赛……  im:开…开策了&_&  羽毛笔:哎呀~~机灵鼠大人要我们帮什么忙?^^  机灵鼠:你们看这里的这些药,都是我研制的对付各种症状的解药。可是我一个不小心,每种药都小小地配错了一点原料,所以这些药都有可能在治愈某些病症的同时又使人患上某些别的病症……(im:那…那是解药还是毒药啊?!)……经过我天才的努力(背景:我是天才!!),终于弄清了每种药的具体性能(路人甲:那是你自己配的吗?-_-),我会把每种药能治的病症和能使人患上的病症列一张清单给你们,然后你们要根据这张清单找出能治愈所有病症的最少药剂组合……顺便说一声,病症的数目不超过10种(小呆:偶是好人吧^^),我的药是用不完的,就是说每种药剂都可以被重复使用。给你们的单子里第一行是病症的总数n,第二行是药剂的种类m(0&m&=100),以下有m行,每行有n个数字用空格隔开,文件的第i+2行的n个数字中,如果第j个数为1,就表示第i种药可以治愈病症j(如果患有这种病的话则治愈,没有这种病则无影响),如果为0表示无影响,如果为-1表示反而能使人得上这种病(无病患上,有病无影响)。我制的药任何两种性能都不同。你们只要给我用的最少的药剂数就可以了。给你们个样例:样例输入321 0 1-1 1 0样例输出2提示
  其实还有可能用尽了所有的药也不能将所有病治愈(真是不好意思嗬^^bb),那样的话你们只要写上“The patient will be dead.”就可以了。  im:做不出来啊~~哇啊啊啊~~(暴走中)  羽毛笔:哎呀~~im……来来吃药了。^^
问题 D: 王伯买鱼题目描述
王伯退休后开始养鱼,他一早起来就赶去动物公园,发现这个世界的鱼还真不少,五光十色色彩斑斓。大的、小的,什么都有。这些鱼实在是太美了,买的人越来越多,湖里的鱼越来越少。没有美丽的鱼,哪来美丽的湖?于是动物公园不得不规定,对于每种鱼,每个人最多只能买一条。并且有些鱼是不能一起买的,因为他们之间会互相争斗吞食。王伯想买尽可能多的鱼,但很遗憾,他的资金有限。王伯冥思苦想,不知如何是好。请编写一个程序帮助他。如果有多个方案都能买尽可能多的鱼,选择所花资金最多的一个。输入
从文本文件读入输入数据,输入文件的第一行是两个正整数M(M&=1000), N(N&=30),分别表示王伯的资金和鱼的种类。一下N行,每行两个正整数S(1&=S&=N)、T,分别表示某种鱼的编号以及该鱼的价格。接着,每行有两个正整数P、Q。当P、Q均大于0时,表示P、Q不能共处;当p、Q均为0时,表示输入文件的结束。输出
输出文件的第一行为两个正整数X、Y,分别表示所买鱼的条数和总花费。以下X行,每行一个正整数,表示所买鱼的编号。编号按照升序排列输出。
如果题目有多个解,只需输出其中的一个。样例输入170 71 702 503 304 405 406 307 201 41 73 43 55 76 70 0样例输出4 1602456
问题 F: 负二进制数题目描述
学习信息学的人都熟悉 2 进制,但有没有人想过-2进制!那样的数字就不需要符号了!!2进制从低位到高位--即从右向左--的位权是1、2、4、8、16、....。-2进制的从右向左的位权当然就是1、-2、4、-8、16、....。-2进制是可以表示任何整数的。如:1, 110, 111, 100, 101, 1, 1,...表示1,2,3,4,5,6,7,8,9,....而11, 10, ,1111,...则表示-1,-2,-3,-4,-5,....现在给你一个十进制的整数n,请求出它的-2进制数。输入只一行,一个十进制整数 n。输出一个-2进制数。如果数字不为0,不能有前导0。样例输入-13样例输出110111提示【样例说明】从右向左:1*1 + 1*-2 + 1*4 + 0*-8 +1*16 + 1*-32 = -13【数据范围】-2,000,000,000≤n≤2,000,000,000
问题 H: 好数题目描述
在一个数列中,任何一个能表示成它前面任意两个数(不能相同)之和的数,就叫好数。先给定一个数列,求第k个好数在什么位置。输入第一行有一个整数N,表示数列中数的个数。(1≤N≤100000)第二行有N个整数Si,表示数列中第i个数。(0≤Si≤10^7)输出若干行整数,表示每个好数的位置。若没有好数,则输出“No!”(英文感叹号)样例输入输入1:51 2 3 4 5输入2:51 3 5 7 9样例输出输出1:345输出2: No!
问题 I: 车厢题目描述在某个火车站中,有一个这样的轨道:在A到C的轨道的两端,各有一条轨道向下延伸,并合并成一个新的轨道。按照车站的管理制度,从A处可以行驶至B处,但从B处却不能行驶回A处。同样,可以从B到C,却不能从C回到B。现已知有一串车厢组成的火车要从A处行驶至C处,问是否可以借助中转站B,到达C处时变换成另一个序列(各个车厢都是分离的,可以单独调度)?输入
输入包含多个测试样例,保证最多有20个样例。对于每个样例,分别包含了3行整数。第一行:一个整数N,代表了火车中有N个车厢。N最大不超过10000。第二行:N个整数,代表了火车的初始序列。(每个整数都小于等于N,保证每个数字不相同)第三行:N个整数,代表了火车到达C处时要排列成的序列序列。(每个整数都小于等于N,保证每个数字不相同)输出
对于每个测试样例,都只有一行输出。若可以按照给定顺序到达C处,输出“Yes”,否则输出“No”。样例输入51 2 3 4 555 4 3 2 1 5 1 2 3 4 5 3 4 2 1 551 2 3 4 51 5 2 3 4样例输出Yes YesNo提示【样例说明】第一个样例,可以直接将整个火车移到B处,在从上至下都移到C处。第二个样例,现将1、2移到B处,再将3、4移到C处,即可把2、1从B处移至C处,最后可把5移至C处。第三个样例无法实现,输出“No”。
问题 J: 游戏危机题目描述
CZY是一个爱好数学的学长,他的梦想就是找出所有游戏的必胜策略。一天,他在数学课上研究问题时被数学老师发现了,于是被毫不客气的请到了办公室。 在办公室里,数学老师问CZY:“你上课的时候都在干什么?”CZY答道:“研究游戏的必胜策略。” 老师说道:“那好,我相信你一定玩过这么一个游戏,给定一行m个格子,从最左格起,一次向右跳至少1格至多k格双方交替移动。。。” “我知道, ”CZY迫不及待地打断了了老师的介绍,“谁先到最后一格谁胜吗,我早就研究过了。” 老师诡谲的一笑,接着说:“那么,现在我们把游戏扩展到二维呢?给定一个x*y的矩形,你需要从左上角的格子走到右下角的格子,只能向右或向下走 ,向右与向下走的格子总数大于1小于k,先到右下角格子的人胜。你能告诉我必胜的策略吗?
于是CZY来到机房,求助于你——全二中最聪明的程序员,你能帮CZY解决这个问题吗?输入输入共n+1行,第一行为一个整数n,表示有n组询问。接下来n行,每行3个整数,为x,y,k。输出输出共n行,每行代表对应询问的答案。如果先手的CZY无论数学老师怎么移动,CZY都能先到右下角,则输出“CZY is saved!”否则输出“No zuo no die!”样例输入29 7 36 8 2样例输出CZY is saved! No zuo no die!提示对于 20% 的数据x&=10,y&=10,k&=3,n&对于 60% 的数据, x&=100,y&=100,k&=10,n&=1对于100% 的数据, x&=10^8,y&=10^8,k&=10^4 ,n&=10^6
问题 K: 作业狂魔题目描述
FZX是一名不折不扣的作业狂魔,他无时无刻不在做着作业。但是,他不幸患有一种奇怪的强迫症,那就是在做完一科作业后有一段时间不会再做同一科的作业。而且某一项作业必须在某一固定时刻完成。由于FZX有特别的刷作业技巧,所以他做完一项作业的时间可以忽略不计。也就是说FZX 一个时刻可以完成多项作业。现在给出FZX所有的作业,请你写一个程序告诉他最多能完成多少项作业。输入
输入共n行,第一行为作业的项数n。接下来n行,每行3个整数,分别代表该项作业的科目,完成时间,以及到何时之前不能再做该科作业,表示FZX在该时刻之后(包括该时刻)才能做同一科的作业。输出
输出只有一行,包含一个整数,为FZX最多能做的作业数。样例输入61 1 31 3 41 2 42 2 72 1 42 6 6样例输出4提示【输入输出样例说明】选择第1、2、5、6项作业。【数据范围】对于 20% 的数据, n&=10,要求完成时间,结束时间&=300,科目数&对于 40% 的数据,n&=1000,要求完成时间,结束时间&=500,科目数&=1对于100%的数据,n&=100000,要求完成时间,结束时间&=30000,科目数&=1000。
问题 L: 整理书籍题目描述
ZJG同学自称条理哥,却拥有着全二中最乱的课桌。一天,他突然决定整理自己的课桌,不辜负自己条理哥的名号。于是他把自己课桌里所有的书倒到了出来,开始整理的工作。ZJG把这些书籍按照自己脑中的规划编上了号,他需要把这些书排列成从小到大的顺序。(编号相同的可以任意排列),ZJG每次会选相邻两本书交换它们的位置。但是ZJG同学很懒,所以他想知道他最少需要交换多少次。现在给出 n本书籍和它们各自的序号,你能告诉ZJG他至少需要交换多少次吗?输入
第一行为一个整数n
接下来n行,每行一个整数,代表该书籍的编号输出
输出只有一行,包含一个正整数,即ZJG最少需要的交换次数。样例输入6124437442855样例输出4提示对于20%的数据,n&=300对于60%的数据,n&=5000对于100%的数据,n&=&=书籍编号&=.
三叔正版授权网游公测!
问题 M: 菌落题目描述
菌落由单个细菌、细胞或一堆同种细胞在适宜固体培养基表面或内部生长繁殖到一定程度,形成肉眼可见的子细胞群落。培养基中有一种细菌只以菌落形式存在,每个菌落中细菌的数量是相等的,并且只可能是2×21、4×21、6×21或9×1021个。不存在不属于任何菌落的细菌
现在告诉你容器中细菌总数,请你说出一个菌落中可能的细菌数量。输入
第一行输入一个数字n表示容器中的细菌总数为n×1021。输出
输出所有可能的答案。对每个可能的答案,都用一行输出。
若没有可能的答案,不输出任何数字。样例输入【输入样例1】18 【输入样例2】3600样例输出【输出样例1】2369 【输出样例2】2345689提示对于10%的数据,1≤n≤231-1对于100%的数据,1≤n≤10900
问题 N: 极差题目描述
在n个数组成的序列a中,任意选出m个数字使这m个数的极差(这m个数中最大值与最小值之差)最小。输入
第一行输入n,m。第二行n个数字,表示这个序列。输出
输出题目要求的极差的最小值。样例输入【输入样例1】6 31 3 5 7 8 4【输入样例2】10 92 5 234
43 5 3 4样例输出【输出样例1】2【输出样例2】232提示对于10%的数据,1≤n≤10对于30%的数据,1≤n≤1000对于100%的数据,1≤n≤100000, m≤n, 0≤a中的数字≤231-1
问题 O: 单项式连乘题目描述
初一学代数时,除了认识单项式、多项式的含义外,还有计算。第一课时,学习单项式连乘。请你敲敲键盘写一段自动约分的程序,直接输出最简单项式。由于是第一课题的第一小节,所以单项式中不含加减号,这使问题简单化了。输入
一行字符串,表示一些连续相乘的单项式,如样例所示。
--- * -----
表示为 a^7/b^2*c^2b/A^5
需要注意的是:
除字母系数外没有单独的数字,如1/a或a/1形式的单项式不会出现;
所有字母的指数小于2^31;
字母保证只有a-z、A-Z,区分大小写。 输出
一行字符串,表示最终化简后单项式结果,如样例所示。
表示为 a^7c^2/A^5b
需要注意的是:
若分母为1,则不需要显示分数线和分母;
输出字符按字母表顺序排列,大写在前小写在后;
若字母指数为1,则不以乘方形式显示;
分子间、分母间省略乘号,分子可以为1。样例输入a/b*b/a样例输出1
问题 P: 2048题目描述
想必大家都玩过2048吧。
2048是一款游戏,游戏中,面板上会显示带有数值的瓷砖。使用键盘方向键在面板上移动瓷砖。按向上键(Up)所有的瓷砖会向上移动。按向右键(Right)所有的瓷砖将向面板右侧移动,依此类推。每次移动,都会出现一块新的瓷砖。游戏的目的是让具有相同数值的瓷砖彼此相撞。如果具有相同数值的两块瓷砖撞到一起,它们会合并成数值翻一倍的一块瓷砖,并得到等于合并后数值的分数。因此,如果两块数值为“2”的瓷砖发生碰撞时,它们会变成一块数值为4的瓷砖,得到4分。如果两块数值为4的瓷砖发生碰撞,它们会变成一块数值为8的瓷砖,得到8分,依此类推。如果你能成功创建一块数值为2048的瓷砖,你便会获胜。
--摘自web2048
作为11班高智商症候群患者的zby自然不会放过这次写AI的机会。zby才不屑于经典的4×4面板,他要写n×n版的AI。对于瓷砖碰撞的代码段,zby本着给学弟学妹们练练手的好意留给了你,请你计算一次移动产生的得分。输入
第一行包含 2 个正整数 n, m,用一个空格隔开。m ( 1 ≤ m≤ 4)表示移动方向:1~4分别表示上下左右。
第 i + 1 行( 1 ≤ i ≤ n)中,每行n个数,用空格隔开,表示面板上的数字,每个数字为2k(0≤ k ≤12)或0,0表示空格子。输出
输出共 1 行,包含一个整数,表示一次移动产生的得分。样例输入4 12 4 32 82 4 2 02 4 0 00 0 2 0样例输出16提示对于 100%的数据, 2≤ n ≤ 1,000。
问题 Q: Soundex编码题目描述
Soundex编码是将基于它们的拼写听起来相同的单词归类在一起。例如,“can”和“khawn”,“con”和“gone”在Soundex编码下是等价的。
Soundex编码涉及将每个单词转换成一连串的数字,其中每一个数字代表一个字母:11表示B、F、P或V12表示C、G、J、K、Q、S、X或Z13表示D或T14表示L15表示M或N16表示R字母A、E、I、O、U、H、W和Y在Soundex编码中不被表示,并且如果存在连续的字母,这些字母是用相同的数字表示的,那么这些字母就仅用一个数字来表示。具有相同Soundex编码的单词被认为是相等的。输入输入的每一行给出一个单词,全大写,少于20个字母长输出对每行输入,输出一行,给出Soundex编码。样例输入KHAWNPFISTERBOBBY样例输出25 123611
问题 S: 牛跑步题目描述
新牛到部队,CG要求它们每天早上搞晨跑,从A农场跑到B农场。从A农场到B农场中有n-2个路口,分别标上号,A农场为1号,B农场为n号,路口分别为2...n-1号,从A 农场到B农场有很多条路径可以到达,而CG发现有的路口是必须经过的,即每条路径都经过的路口,CG要把它们记录下来,这样CG就可以先到那个路口,观察新牛们有没有偷懒,而你的任务就是找出所有必经路口。输入
第一行两个用空格隔开的整数n(3≤n≤2000)和e(1≤e≤8000)。
接下来从第2到第e+1行,每行两个用空格隔开的整数p和q,表示路口p和q之间有路径直达。
输入数据保证必经路口一定存在,并且每个路口都和A农场、B农场相连通。输出
第一行一个整数m,表示必经路口的数目。
第二行按从小到大的顺序依次输出每个必经路口的编号,每两个数之间用一个空格隔开。
注意:不包括起点和终点。样例输入6
6样例输出22
问题 T: Sramoc问题题目描述
Sramoc(K,M)表示用数字0,1,2,。。。,K-1组成的自然数中能被M整除的最小数。给定K,M,求Sramoc(K,M)。例如,K=2,M=7时,Sramoc(K,M)=1001。输入
输入文件第一行为两个整数K,M,满足2&=k&=10,1&=m&=1000。输出
输出文件包含Sramoc(K,M)的值。样例输入2
7样例输出1001
谢谢各位大神,请求您们帮帮我这个新手~记得要是Pascal哦,还要有代码哦~~~
a:array[1..100000]
i,j,s,n,z:begin
read(n,s);
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]+a[j]&=s then z:=z+1;
write(z);end.
登录百度帐号推荐应用
为兴趣而生,贴吧更懂你。或pascal习题二_百度文库
两大类热门资源免费畅读
续费一年阅读会员,立省24元!
pascal习题二
上传于||暂无简介
阅读已结束,如果下载本文需要使用0下载券
想免费下载更多文档?
下载文档到电脑,查找使用更方便
还剩4页未读,继续阅读
你可能喜欢

我要回帖

更多关于 free pascal ide 的文章

 

随机推荐