一道编程题free pascal，求高手解答！_百度知道
一道编程题free pascal，求高手解答！
已有按由小到大顺序排列的数组a：10↙-6 –2 3 5 8 13 22 27 30 41↙20↙-22 –18 –6 0 4 9 14 25 31 42 49 55 59 62 71 78 91 99 101 112↙输出，b（≤20）。[样例输入与输出]输入，将它们合并成一个按由大到小顺序排列的数组c
提问者采纳
for i:=1 to j do read(a[i]):=1 to l do write(c[i]; c[j];).20]of integer:=b[i-j]:=j+1 to j+k do c[i];
c:=j+k:=i+1 to l do
if c[j]&gt:=c[0] 'begin
readln(j):=c[i]:=1 to j do c[i].:array[0,'c[i] then begin
end,k:=1 to l-1 do
for j:=c[j]; c[i];
readln(k):=a[i];
for i.:=1 to j do read(b[i]);
a.40]of integer,b,j;end
提问者评价
其他类似问题
按默认排序
其他2条回答
=1 to m+n-1 do a[j+1]; for i,m:=1 to m+n do write(a[i].,t; for i:=a[j+1];a[j+1] then
t:=n+1 to n+m do
read(a[i]);begin readln(n)var for i.50]):=t; &#39,n; a[j],' for i:=a[j]:=1 to m+n-i do
if a[j]&lt:array[1; readln(m):integer:=1 to n do
read(a[i]); a,j;end
可以过的。。。。vara,b,c:array[1..3333]i,j,k,m,n,l1,l2,l3:beginread(n);for i:=n downto 1 doread(a[i]);read(m);for i:=m downto 1 doread(b[i]);l1:=1;l2:=1;
l3:=0;while (l1&=n)and (l2&=m) do
if a[l1]&b[l2] then
c[l3]:=b[l2];
c[l3]:=a[l1];
if l1&n then
for i:=l2+1 to m do
c[l3]:=b[i];
if l2&m then
for i:=l1+1 to n do
c[l3]:=a[i];
for i:= 1to l3 do
write(c[i],'
pascal的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁Free Pascal练习题_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
喜欢此文档的还喜欢
Free Pascal练习题
F​r​e​e​ ​P​a​s​c​a​l​练​习​题
阅读已结束，如果下载本文需要使用
想免费下载本文？
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢一道 free pascal 的编程题目，如下： 请高手解答，我会加分，在线等！！_百度知道
一道 free pascal 的编程题目，如下： 请高手解答，我会加分，在线等！！
十。编写程序。但知道这个5位数是57或67的倍数，最后一行输出满足条件的个数，并统计满足条件的个数、个位数分别是1。输出的5位数一个占一行，其千位数和百位数已经变得模糊不清，输出所有满足这些条件的5位数、7，万、4一张单据上有一个 5 位数字组成的编号
有一题，两者以空格分隔（每种规格的盒数都不能为0）。输入部分，输出所有可能的包装方案：多组数据。输入样例：对于每组输入：5 3610 3215 2820 2425 2030 1635 1240 845 4none二选一做。两组输出之间以一行空行分割，可以加30分，说到做到：60013 输出样例，那么打印 none，包装的规格分别是，如果可以全部做对，每组数据有一个输入行;50000的整数）输出部分，第二个数据是需要的大盒数量，每一行中第一个数据是需要的小盒数量：小盒每盒12个；如果没有这样方案（正好能全部装满），大盒每盒15个，输入需要包装的变形金刚的数量（&lt！：有一批变形金刚需要包装
提问者采纳
writeln(i; readln:=1 to n div 12 do
writeln(ans):=0;&gt:=0 to 9 do
if (j mod 15=0) and (j&lt:=0 to 9 do
for j.第二道;
for i,j,j div 15); begin ; f;begin readln(n)第一道:=*i+100*j,ans:none&#39.除了百度默认8格缩进看不太习惯外其他都挺好.;
if (r mod 57=0) or (r mod 67=0) then inc(ans);0) then
end:=true：var n:boolean:longint,i;),j,' f;end:=false:=n-i*12; ' if f=false then writeln(&#39.,r
提问者评价
谢谢！给了你30分！！
其他类似问题
按默认排序
其他2条回答
if sum=0 then write('
sum:integer,i); begin
readln(total):=sum+1:=1 to big do
for j,j; begin
sum:=sum+1:=total div 12： var total:=0,i,small1,big:=1 to small do
if 12*j+15*i=total then
writeln(j;
sum:integer,';
writeln(i*100+10047); &#39,
for i:=1 to 99 do
if ((i*100+10047) mod 57=0) or ((i*100+10047)mod 67=0)then
end,sum:2;
write(sum):=total div 15： )none&#39
看到这几个题让我想起了高中生活。你还在线不。
pascal的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁Free Pascal 高手来看看这道题目
Free Pascal 高手来看看这道题目 5
&& 小球从100 米的高处自由落下，着地都又弹回高度的一半再落下，求20次着地时，小球共通过多少路程？
& 高手来帮我解答，再找个高手能教我 以后的编程& ， 小弟我还刚刚开始学。不懂得请教各位大哥大姐们。。
{下面的h表示路程，n表示反弹次数}vari,n,h,t:&begin&readln(n,h);{输入20，100即可}&t:=h;&&while t&&0 do&& begin&& t:=t div 2;&& h:=h+2*t;&&&&writeln(h);&end.{PS：100米高的时候，7次时下降到0}{结果是整数么，还是实数？}
如果是实数的话用下列代码program yxg；vari:h,t:beginh:=100;t:=100;for i:=1 to 20 dobegint:=t / 2;h:=h+2*t;writeln(h:0:30);{注：保留小数点后30位}end.
PS：发到网页上竟然不给我换行！所以请你在适当的地方加上空格，尤其是在保留字那里
program pp(input,output);
for i:=1 to 20 do
sum:=sum+k;
write(sum);
对不对不太清楚啊。好久没编了。也没调试，语法有错自己改下吧。
还有也不清楚你要输出的是整数还是小数。就输出小数了。
大哥& 怎么匿名呢， 帮我帮我以后吧。。。
我不是大哥-_- 还有我现在在用C，不用FP了。没法帮你啊。
你总知道一些吧 。 就是有时问下& 不会很麻烦的。
program pp(input,output);
for i:=1 to 19do
sum:=sum+2*k;
write(sum);
好像一开始的错了。这个是对的。忘了路程是两倍了。
相关知识等待您来回答
编程领域专家求pascal大师解答一下我的问题，不要去搜，（本人会），我自己编的太乱了，就两道题，一百分！_百度知道
求pascal大师解答一下我的问题，不要去搜，（本人会），我自己编的太乱了，就两道题，一百分！
第一行。入睡时刻和起床时刻都采用24小时制表示法(见备注)、数:00、平均分和名次.0 94，而且知道睡觉时间最少为1秒.7 1 78，有一天被老师逮个正着.0 88。输入第一行描述入睡时刻，三科成绩以及总分，四舍五入小数点后面保留一位，并统计出每个同学的名次，第二行描述起床时刻，范围为0到59，两个时刻都是采用“HH、你是个贪睡虫，每行包括6个数，范围为0到23.7 3 95.0
263。Sample Input
Copy 20.0 87:SS”:00 04，其中“HH”表示时，“MM”表示分，最多为24小时,取并列名次Sample Input
Copy 3 90 100 88 78 98 87 95 94 89 Sample Output
Copy 90,n(n&lt，范围为0到59:00 2，如果回答正确就可以免于处罚： 1:00 Sample Output
Copy 08。格式同输入一样：“给定入睡时刻和起床时刻:00，最后以表格的形式输出、输入N个同学的语、英三科成绩，计算他们的总分与平均分.0 87.0 98;100)
第二行开始,每行三个数据。Output输出一共睡了多长时间，计算一共睡了多长时间”.0 92，这个老师很有意思.0 100.0 278.0 92.0 89,表示该同学的三科成绩不知道是不是思路错了，提出一个问题。注意即使时分秒只有一位数也要通过加0补齐两位.0
278:MM,中间用空格隔开Output
按原表格得顺序输出n行,如果有并列地排名，“SS”描述秒:00，求大师解答一下
提问者采纳
{并列排名处理}
for i,ss2:array[1,2).5] of real,i);
{平均分排序} end:=old[i]:integer，并对名次数组赋初值}
readln(s2);;3*10)&#47:=hh2+24;
writeln(hh:6题目1,mm2;
val(copy(s1,4,j,2]+a[i:=a[i:6:=i+1 to n do
if aver[i]&lt:=mm2-mm1,hh,1,hh2:1;mm1 then begin mm2;
val(copy(s2.题目2;10:2:=no[old[i]],1]+a[i,i),1]; mm2:=t,num[i],&#39：var
n:=aver[j],4]:array[1;
val(copy(s1;
hh:=old[j];
val(copy(s2,7.100] of integer:=2 to n do if aver[i]=aver[i-1] then no[i],3],k,1,1],5];
{计算} aver[j]:6:=round(a[i,2):2),2]; old[j],i),2);aver[j] then begin
a,a[i:=1 to n do begin
s1;hh1 then hh2:integer,i):=ss2+60:&#39,mm:=k:=1 to n do writeln(a[i.100] of real,3];
k.100,hh2:2,num,mm1,mm2;
val(copy(s2;
aver[i]:=aver[i]:=no[i-1];
if mm2&lt,hh1,2),ss2:=1 to n do num[i];ss1 then begin ss2;,a[i;
t:=a[i,a[i,ss,
{恢复原序}
for i:string[8]:=i, hh2;
if hh2&begin
readln(s1);
end.;begin
readln(n), no[i]:array[1; aver[i],4],1,3]):integer,mm1;
val(copy(s1:=1 to n-1 do for j:=1 to n do readln(a[i:=mm2-1,5]:=hh2-1,7;
{保存原顺序,a[i,ss1:=i,2):=1 to n do begin old[i].,a[i;
a[i:=ss2-ss1:integer:&#39.; end:1:=mm2+60,i),a[i;;
end,',ss1:1:6:real,4]&#47:6,2),2]:=hh2-hh1:3).,s2:1;
第二题还有更简单的吗？我有些地方真的看不懂啊。。。。有没有更简单的啊？我会加分的！并且你这个也错了、、、当它的数很多时就会错，跟我编的程序一样的。第一题也错了，你看一下输出啊。。
for i:=1 to n do num[i]:=no[old[i]];
此行错误。应改为：for i:=1 to n do num[old[i]]:=no[i];
看一下评论
两题并着一题做：var
a,aa:array[1..1001]{存放卡片编号}
c:array[1..1000]{统计每种卡片张数}
no:array[1..1000]{名次数组}
i,j,k,m,t:
assign(f,'卡片.in');reset(f);
readln(f,n);
for i:=1 to n do read(f,a[i]);
for i:=1 to n-1 do for j:=i+1 to n do
if a[i]&a[j] then begin
t:=a[i]; a[i]:=a[j]; a[j]:=t;
{统计每种卡片张数。k存放卡片序号，m存放卡片张数}
a[n+1]:=0;
k:=1; m:=1;
for i:=1 to n do
if a[i]&&a[i+1] then begin c[k]:=m; inc(k); m:=1; end
else begin inc(m);
{去掉重复后的卡片并存入aa中}
for i:=1 to k-1 do begin m:=c[i]+m; aa[i]:=a[m];
{打印：序号、卡片号、卡片张数}
for i:=1 to k-1 do writeln(i:3,aa[i]:3,c[i]:3);{名次数组赋值}
for i:=1 to n do no[i]:=i;
{同名次处理}
for i:=2 to n do if a[i]=a[i-1] then no[i]:=no[i-1];
write('请输入分数=':11);readln(x);
for i:=1 to n do if x=a[i] then writeln('名次=',no[i]);end.
啊？？？您这是哪一题啊？另外这题可以不用text吗？看不懂啊，可以更简便吗？？看你回答了这么多题再多加二十吧。。。呵呵
哦！行了吧！一题一题问，一题一题答，不要想一口吃个胖子。否则连我都给你搅糊涂了! 不要你的分也罢。
提问者评价
其他类似问题
pascal的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}