題意

對于給定的一個長度為N的正整數數列A[i]，現要將其分成連續的若干段，并且每段和不超過M（可以等于M），問最少能將其分成多少段使得滿足要求。

分析

一個一個加上s，如果s>m，那么s就變成當前的數字，并且tj+1

var
n,m,tj,i,s,w:longint;
begin
? ? readln(n,m);
? ? tj:=1;
? ? s:=0;
? ? for i:=1 to n do
? ? begin
? ? ? ? read(w);
? ? ? ? if (s+w)<=m then s:=s+w else
? ? ? ? begin
? ? ? ? ? ? s:=w;
? ? ? ? ? ? inc(tj);
? ? ? ? end;
? ? end;
? ? write(tj);
end.

轉載于:https://www.cnblogs.com/YYC-0304/p/9500206.html

總結

以上是生活随笔為你收集整理的数列分段pascal程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。