导弹拦截 NDK1508 题解

program NDK1508; var tot:longint; a:array [1..1000] of longint; f:array [-1..1000] of longint; procedure init; var i:longint; begin tot:=0; while not eoln do begin inc(tot);//记录导弹数 read(a[tot]); end; for i:=1 to tot do f[i]:=1;//初始化从1到i的最长下降序列为1（只包含a[i]，所以为1） end; procedure main; var i,j,max:longint; begin for i:=2 to tot do begin max:=-maxlongint; for j:=1 to i-1 do if (a[j]>a[i]) and (f[j]>max) then max:=f[j];//从2开始循环，如果在i之前的项有大于a[i]并且从1~j的最长下降序列比最大值大就更新 if max<>-maxlongint then f[i]:=max+1;//为了防止没有比a[i]大的情况如果max≠-maxlongint，max存的一定是之前某个f[j]的值，那么更新f[i]为max+1，因为确定a[j]一定大于a[i] end; end; procedure outit; var i,ans:longint; begin ans:=-maxlongint; for i:=1 to tot do if f[i]>ans then ans:=f[i];//从1到导弹长度中找到一个最长的下降序列 writeln(ans); end; begin assign(input,'NDK1508.in'); reset(input); assign(output,'NDK1508.out'); rewrite(output); init; main; outit; close(input); close(output); end.