1樓：匿名使用者
有難度，3天后出答案
導彈攔截pascal動態規劃 （注意資料範圍是100000） 別超時
2樓：匿名使用者
varn:integer;
h:array[1..100] of integer;
len:array[1..100] of integer;
i,j,max,maxid:integer;
f:text;
begin
assign(f,'導彈攔截.in'); reset(f);
readln(f,n);
for i:=1 to n do read(f,h[i]);
close(f);
len[1]:=1;
for i:=2 to n do beginmax:=1;
for j:=1 to i-1 do beginif h[j]>=h[i] then beginlen[i]:=len[j]+1;
if len[i]>max then max:=len[i];
end;
end;
len[i]:=max;
end;
max:=len[1];
for i:=1 to n do if len[i]>max then max:=len[i];
writeln(max);
end.
3樓：匿名使用者
。。。。。。。。。。。。。。。。。。。。。錯發
pascal簡單問題，pascal簡單問題一個。！
1.program aaa const eps 1e 7 varx,t,s real n integer begin read x n 1 t x s x repeat n n 2 t t x x n 1 n s s t until abs t writeln s end.2.program bbb...
pascal問題 5，pascal問題
pascal問題 它是下標變數，a是陣列名，i是下標。如要真正了解，需學習陣列型別。陣列的第i個元素 如 var a array 1.5 of integer begina 1 3 a 2 4 a 3 8 a 4 6 a 5 5 write a 3 end.就會輸出陣列a中的第3個元素8 陣列中的第...
pascal程式設計
var a array 1.100 of byte n,i,j,k,i1 byte begin readln n for i 1 to 13 do a i i i 1 j 13 for k 1 to n 1 do begin inc i for i1 1 to k do begin inc j a ...