程序设计-点的线段覆盖（Pascal）

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/05/22 10:23:45

程序设计-点的线段覆盖（Pascal）
Description 在一条射线上有n个点,用一条长为k的线段去覆盖,最多能盖住几个点?假定：线段的顶点碰到某个点,就可以认为该点已被覆盖.Input 第一行只有两个正整数：n k 其中：n表示点的个数,k表示线段的长度第二行共有n个正整数xi,表示点的坐标,数与数之间用一个空格隔开 ( 1 < n < 10000 ,0 < xi

var max,now,i,j,n,k:longint; x:array[1..1000]of longint; procedure qsort(l,r:longint); var i,j,mid,tt:longint; begin i:=l; j:=r; mid:=x[(i+j)div 2]; repeat while x[i]mid do dec(j); if ij; if i

电脑程序设计:PASCAL语言 free pascal程序设计,尽量用简单语言,难的看不懂谁知道郑启华的PASCAL程序设计第五章习题答案 program 【pascal 程序设计】问题：begin 1.试打印出1-20的自然数.（用while do 语言）用长为2008个长度单位的线段AB放在数轴上,能覆盖（）个整数点. pascal程序设计输入一个整数n,n 数轴上坐标是整数的点称为整点，3条线段的长度之和是19.99，把这三条线段放在数轴上，覆盖的整点最多有（　　）个，最少有已知数轴上有一条长为100个单位长度的线段,该线段可能覆盖了多少个表示整数的点已知数轴上有一条长为100个单位长度的线段该线段可能覆盖了多少个表示整数的点用长为2011个单位长度的线段AB放在数轴上,最多能覆盖——个整数点. 用长为2008个单位长度的线段AB放在数轴上，能覆盖______个整数点．词语(覆盖）的词性