=S2),（注:S2">
pascal编程问题，求大师解答！一道很简单的题目，不知道思路应该是怎样的："给定n个正整数，要求分成两堆，两堆数的和分别为S1和S2，分的方案要使得S1*S1-S2*S2的结果小(规定S1>=S2),（注:S2_百度作业帮
pascal编程问题，求大师解答！一道很简单的题目，不知道思路应该是怎样的："给定n个正整数，要求分成两堆，两堆数的和分别为S1和S2，分的方案要使得S1*S1-S2*S2的结果小(规定S1>=S2),（注:S2
pascal编程问题，求大师解答！一道很简单的题目，不知道思路应该是怎样的："给定n个正整数，要求分成两堆，两堆数的和分别为S1和S2，分的方案要使得S1*S1-S2*S2的结果小(规定S1>=S2),（注:S2可以等于0 ）"样例输入4 1 2 3 4样例输出0
没看懂。输入 4 ，后面的那个 1 2 3 4 是什么意思？又来个样例输出 0。不知道在搞什么求助Pascal题目_百度知道
求助Pascal题目
*X 的值中.;,e！,d：var s！的位数不大于1000位）输入输出示例,c,000）,pos(',st[b])):'
a.：输入N:=a+1 to n do
val(copy(st[a],st[a])-1);
if c&gt.'
val(copy(st[b]。2:=s[b]！1;
st[b];;!’;
end，则打印输出X和X;);，与N个版本号（必须各不相同）,length(st[a])+1):=1 to n do begin
readln(s[a]);
for a。（X；否则输出‘NO ANWSER.问题描述，其中1道请大家帮忙修改修改……谢谢了;
if pos(&#39,st[a])=0 then insert(&#39,pos(&#39.;d：N = 50 OUTPUT;R
writeln(&#39，可否找到整数X:integer:=s[a].可惜测试不对求助2道Pascal题目，使得X,e);
delete(st[b];,st[a]:=1 to n-1 do
for b.版本排序：75040 测试时间限制在 5 秒内:array[1;
for a:=1 to n do writeln(s[a]);
temp！= 1*2*3*:=s[a],1;
st[a];&gt,1;
end.0&#39:=
s[a];;end:=s[b]，并按照旧到新的顺序排序,e),c：如果能找到整数X;
delete(st[a].&#39。问题求解,b，包含有N.&#39:=s[a]:;
s[b]：INPUT;,st[a]));d then begin
temp,pos(&#39，让系统判断哪个版本号较新;
for a,st，哪个较旧;.&#39,pos(&#39,1.&#39,st[b])-1)。我的程序;
readln.50];begin
readln(n),n;
end，谢谢了,1，请大家帮忙修改修改：对于整数N（N≤150
第1题请大家给个具体的程序，谢谢。第2题，规定要用字符串做的……
提问者采纳
=s+chr(a[j]+48):=1; while (a[len]=0) and (len&gt:=1 to 1000 do begin h！只给一个程序不明白什么意思:); k,s1),i;str(n;:longint:=0;
｛把高精度数转化为字符串｝ if pos(s1;a[1]; ' a[j].至于第二题 题目清楚一点可能会改;read(n);｛读入并将N转换成字符串｝fillchar(a,k,s:=h mod 10; end,sizeof(a):=' ｛求X;&gt！｝len.1000] end:=h div 10:=len-1:=1000;a！刚好1000位左右｝ begin k,0)！ 谢谢; for j,
｛判断并输出｝0) do len:=len downto 1 do write(a[kk]):array[0,n; for kk.;0
then begin writeln(i);s1,s)&lt:=len downto 1 do s,j:=1 to 450 do
｛I＝450时X:=a[j]*i+k;N='beginwrite(&#39,h第一题 ｛经FREE PASCAL运行过 可以通过｝var end
提问者评价
其他类似问题
为您推荐：
pascal的相关知识
其他3条回答
2。我建议你数字处理最好在排序前做好、？还有，就用高精做丫.x？那如果是x！或者x，肯定能过，再做排序？如果后面有字母的话为什么不把字母删掉转real类型呢，你是用冒泡排序吗！的位数最多只有1000位，直接用real来表示不就好了么。累加x。匹配的话最傻的枚举就可以了，最好kmp时限5s.y的话为什么要读入字符串呢、莫非输入的版本都是x，直到找到匹配的x！的位数大于1000就跳出.y.题目没有描述清楚、？好像看起来有点混乱丫1
第二题没看明白。。。。。。第一题的做法是这样的：先:x:=0;str(n,ss);{把所要找的N转化为字符串ss}repeatinc(x);用高精度方法求出x的阶乘，以字符串形式存在s里if pos(ss,s)&&0 then beginwriteln(x);until x=0;(这个条件可以随便设，因为这个循环是在if里跳出的，跟这个没太大关系)··然后就OK了第二题把题目描述得再清楚一点吧～～没理解题是什么意思
varn,k,i,j,z:a:array[1..1000000]
readln(n);
k:=1; a[1]:=1;
for i:=2 to n do
for j:=1 to k do
a[j]:=a[j]*i;
for z:=1 to k+4 do
begin a[z+1]:=a[z] div 10+a[z+1]; a[z]:=a[z] mod 10;
while (a[k]=0) and (k&0) do k:=k-1;
for i:=k downto 1 do write(a[i]);
end.这是求阶乘的
参考资料：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁一道pascal问题，似数学题，不知道思路是怎样的，请给最简洁的程序！已知C、D两队相距S公里，C速度为Vc公里/小时，D为Vd公里/小时，另有一名通讯员骑摩托车从C队驻地与C队一起出发，一遇_百度作业帮
一道pascal问题，似数学题，不知道思路是怎样的，请给最简洁的程序！已知C、D两队相距S公里，C速度为Vc公里/小时，D为Vd公里/小时，另有一名通讯员骑摩托车从C队驻地与C队一起出发，一遇
一道pascal问题，似数学题，不知道思路是怎样的，请给最简洁的程序！已知C、D两队相距S公里，C速度为Vc公里/小时，D为Vd公里/小时，另有一名通讯员骑摩托车从C队驻地与C队一起出发，一遇到D队马上折回驶向C队，以此类推，每遇一队立即折回驶向另一队，为行进中的两队传递信息。摩托车的速度为Vm公里/小时。当两队距离小于等于0.8公里时，摩托车停下来不再传递信息。输入S、Vc、Vd、Vm的值，计算通讯员一共跑了多少趟（从一队驶向另一队为一趟）。请你编写程序帮助小明解决这个问题。样例输入1005460样例输出33
你好，我根据你的提议，简单描述一下算法思路：模拟创建一个过程,在通讯员遇到一队时运行一次,过程的程序体如下：1.判断两对距离是否小于等于0.8；在大于0.8的情况下执行下列：2.通过计算下次相遇所用时间计算出下次相遇时两队相距路程；3.计数；4.再次调用自身,处理下一次相遇end注意：别忘了通讯员是在和那一对相遇,这个可以用if,也可以用mod+1。(*^__^*)温馨提示(*^__^*)真心希望你能采纳我的回答，如有不明白，可以继续追问，若满意，记得及时采纳。Pascal 求余运算 毫无思路，需要一-中国学网-中国IT综合门户网站
> 信息中心 >
Pascal 求余运算 毫无思路，需要一
来源：互联网 发表时间： 13:21:22 责任编辑：王亮字体：
为了帮助网友解决“Pascal 求余运算 毫无思路，需要一”相关的问题，中国学网通过互联网对“Pascal 求余运算 毫无思路，需要一”相关的解决方案进行了整理,用户详细问题包括:RT,我想知道:Pascal 求余运算 毫无思路，需要一份参考程序，具体解决方案如下：解决方案1：
&k。代码如下;;//这里计算的和用qword,&#39,i;ss：var&nbsp,'&nbsp.我写出的程序就是这样了,k);=&#39:&&&&^&#39其实这题很简单;&nbsp:=1;&&;&nbsp:=ss&&&nbsp,p;do&nbsp，其实这题也可以用高精度做;mod&k的值writeln(b;&&nbsp，以防数据范围爆掉beginreadln(b;to&nbsp:=ss*b,p;&&&i;//求b^q的值ss,ss);&nbsp。用几个longint的变量加一个qword的变量计算即可;&p&&//求mod&&&//输出&//输入mod&'&;&b;&nbsp,k:=1&&nbsp,p;&nbsp,k;//先将ss变量设为1for&nbsp,'&nbsp，只不过会很麻烦:&nbsp
1个回答1个回答1个回答1个回答4个回答5个回答2个回答2个回答1个回答1个回答1个回答1个回答1个回答1个回答1个回答1个回答1个回答1个回答
相关文章：
最新添加资讯
24小时热门资讯
Copyright © 2004- All Rights Reserved. 中国学网 版权所有
京ICP备号-1 京公网安备02号求详细讲解这个pascal题目，后面两题给个思路_百度知道
求详细讲解这个pascal题目，后面两题给个思路
我有更好的答案
你好，第一题你没给题意，应该是判断一个字符串是不是回文串吧，就是顺序读和逆序读一样。不知道你哪里没懂，程序思路很简单就是判断第1位和第n位是否相同再判断第2位和n-1位…给你解释一下几个语句吧 char是单字符类型，string是字符串类型，s[i]表示字符串s的第i个字符，length(s)是s的长度，exit是直接退出程序。读入方面，因为题意是遇到句号就停止，所以用while语句写，这种写法好好看看就行了。字符串的加法就是把两个字符串拼接到一起，s:=s+c。
第二题找找规律就行了，就是说第几行该输出几个空格几个星。
第三题用数组，看来你还没学过数组啊。数组就是一列数，a[i]表示数组a中的第i个数。
var a: array [1..100] m, i: begin read (m); for i := 1 to m do read (a[i]); for...
其他类似问题
为您推荐：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}