free pascall难题，求解

来源：蜘蛛抓取(WebSpider) 时间：2016-09-23 05:50 标签： titan x pascal
PASCAL难题求代码_百度知道有没有pascal编程的高手，帮儿子解决问题，这题儿子说没思路？
按时间排序
表示没有看懂题目
出题者语文不过关
已有帐号？
无法登录？
社交帐号登录pascal问题解决删数问题
pascal问题解决删数问题
09-07-13 &匿名提问
var i,j,k,l,m,n,left,min,js:s,mid:ch:beginreadln(s);readln(k);left:=k;n:=0;for js:=1 to length(s) dobeginmin:=10;inc(n);for i:=0 to left dobeginmid:=s;delete(mid,n,i);if ord(mid[n])-48&min thenbeginmin:=ord(mid[n])-48;l:=i;delete(s,n,l);dec(left,l);delete(s,length(s)-left+1,left);writeln(s);end.
请登录后再发表评论!&&&&背包问题Pascal语言详解
背包问题Pascal语言详解
Pascal编程中的问题，关于背包问题的详解
若举报审核通过，可奖励20下载分
被举报人：
举报的资源分：
请选择类型
资源无法下载
资源无法使用
标题与实际内容不符
含有危害国家安全内容
含有反动色情等内容
含广告内容
版权问题，侵犯个人或公司的版权
*详细原因：
VIP下载&&免积分60元/年（1200次）
您可能还需要
课程资源下载排行PASCAL难题题目描述在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
var a,b:array[1..1000000]
i,j,k,t,:procedure qsort(s,t:longint);var i,j,x:begini:=s;j:=t;x:=a[i];while (i<j) do begin
while (i<j) and (x<=a[j]) do dec(j);
a[i]:=a[j];
while (i<j) and (a[i]<=x) do inc(i);
a[j]:=a[i];a[i]:=x;if
then qsort(s,i-1);
if j+1<t then qsort(j+1,t);begin readln(n,m); for i:=1 to n do read(a[i]); qsort(1,n);
for i:=1 to n-m+1 do begin
b[i]:=a[i+m-1]-a[i]; t:=100000; for i:=1 to n-m+1 do if b[i]<=t then t:=b[i];
writeln(t);end.
为您推荐：
扫描下载二维码

我要回帖

更多关于 titan x pascal 的文章

 

随机推荐