作业帮 > 综合 > 作业

pascal导弹拦截【题目描述】某国为了防御敌国的导弹袭击,发展出一种导弹拦截系统.但是这种导弹拦截系统有一个缺陷:虽然

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/21 13:54:43
pascal导弹拦截
【题目描述】
某国为了防御敌国的导弹袭击,发展出一种导弹拦截系统.但是这种导弹拦截系统有一个缺陷:虽然它的第一发炮弹能够到达任意的高度,但是以后每一发炮弹都不能高于前一发的高度.某天,雷达捕捉到敌国的导弹来袭.由于该系统还在试用阶段,所以只有一套系统,因此有可能不能拦截所有的导弹.
输入导弹一次飞来的高度(雷达给出的高度不大于30000的正整数).计算这套系统最多能拦截多少导弹.
p245
【输入】
n颗依次飞来的导弹高度,导弹颗数m then
begin
m:=b[i];
k:=i;
end;
writeln(b[k]);
write(a[k]);
while k>0 do
begin
write(' ',a[k-1]);
k:=c[k];
end;
end.
这样做有什么错?
应该为
for i:=n downto 1
不这样的话,c[n]=0,
可以用WATCH,和F7监视数据的变化.
再问: 我做的答案是对的,但一个点都过不到
再答: write(a[k]); 这里要加一句 k:=c[k]; while k>0 do begin write(' ',a[k-1]); 这句因改为write(' ',a[k]); k:=c[k]; end; 再附一组你会出错的数据 input 1 2 4 5 7 8 9 6 3 10 output 3 7 6 3