此主題相關圖片如下：1.jpg

 很久沒有解決的問題，敬請糾正，沒有同名的。非常感謝。

 不支持數組嗎？

fc:=c;
fo:=o;
cc:=0*c;
oo:=0*c;

for i=1 to datacount do begin
   if i=1 then begin
    cc[i]:=fc[i];
    oo[i]:=fc[i];
   end;

end;

 謝謝老師，請將以下代碼幫助寫成文華的：

m:=1;
for i=1 to datacount do begin
   if i=1 then begin
    cc[i]:=fc[i];
    oo[i]:=fc[i];
   end;
   
   if i>1 then begin
    cc[i]:=cc[i-1];
    oo[i]:=oo[i-1];
   end;

   if i>1 and cc[i-1]>=oo[i-1] and fc[i]>=cc[i]-(MI1) then begin
    cc[i]:=max(fc[i],cc[i-1]);
    oo[i]:=oo[i-1];
   end; 
 end;
  
 HM[m]:=max(oo[i],cc[i]);
 LM[m]:=min(oo[i],cc[i]);
 CM[m]:=cc[i]; 
end;

tmp:=d;

for j=1 to m do begin
  TJ1:=tmp-j+1;
  MJ1:=m-j+1;
    CM2[TJ1]:=CM[MJ1];
    HM2[TJ1]:=HM[MJ1];
    LM2[TJ1]:=LM[MJ1];
end

m:=1;
for i=1 to datacount do begin
   if i=1 then begin
    cc[i]:=fc[i];
    oo[i]:=fc[i];
   end;