請問一下這要怎麼寫呀?? 計算每一對角線之值，並記錄其最大值 紅色線之方格要相加，相加結果放於藍色線方格 綠色線為0 謝謝~~    

Hi peiyao 你好: 這是很基本的練習題喔, 有很多方法可以做, 要不要先說明你的概念, 再請這裡的眾高手指點. 我不是高手, 高手是正在銀幕前微笑的人. 發表人 -

------


我不是高手, 高手是正在銀幕前微笑的人.

這個問題對我實在太難了~我想了好久~ 都想不出來~拜託高手幫幫忙~ =.="

麻煩各位高手幫幫我找問題~~ c:=0; x:=0; y:=0; for z:=1 to 4 do begin x:=x 1; y:=y 1; C := C strtoint(floattostr(ary[x][y])); end; stg.Cells[x, y] :=inttostr(c);

hi, 試試看:    

procedure TForm1.Button1Click(Sender: TObject);
var
  index, i, j: integer;
  fsum: double;
begin
  RangeX := 4; // 數字的 x 座標最大 index
  RangeY := 5; // 數字的 y 座標最大 index
  for index := 1 to RangeY do
  begin
    i := RangeX;
    j := index;
    fsum := 0;
    while (i>=1) and (j>=1) do
    begin
      fsum := fsum   StrToFloat(StringGrid1.Cells[i,j]);
      i := i-1;
      j := j-1;
    end;
    StringGrid1.Cells[RangeX   1, index] := FloatToStr(fsum);
  end;
  for index := 1 to RangeX - 1 do
  begin
    i := index;
    j := RangeY;
    fsum := 0;
    while (i>=1) and (j>=1) do
    begin
      fsum := fsum   StrToFloat(StringGrid1.Cells[i,j]);
      i := i-1;
      j := j-1;
    end;
    StringGrid1.Cells[index, RangeY 1] := FloatToStr(fsum);
  end;
end;

非常謝謝你的幫忙~~ 可是我們好像出現了一些錯誤 麻煩請你再幫我們看看 謝謝~~

這是因為你的內容還未填完, 所以取出的 stringgrid 中的 cell 值是空字串, 無法轉為數值. 請你先將 stringgrid 填入如問題中的數字後, 再執行我貼上來的程式即可!

剛才那個問題解決了~真的非常感謝~ 那請問一下如何把紅色部份的數值 做比較,取出最大值回存到SQL欄位中~ 不好意思哦~又要麻煩你了~ ^^" ~謝謝~

我來接力 關於拿出最大值 以下給你參考

var
  i,j:Integer;
  maxval:Integer;
begin
  for i:=0 to 3 do
    for j:=0 to 3 do
      StringGrid1.cells[i,j]:=IntToStr(Random(20));
  maxval:=0;
  for i:=0 to 3 do
    maxval:=max(maxval,StrToInt(StringGrid1.Cells[2,i]));
  ShowMessage(IntToStr(maxval));
end;

那再加上紅色的部分取出最大值吧!    

var
  fMax: Double;    procedure TForm1.Button1Click(Sender: TObject);
var
  index, i, j: integer;
  fsum: double;
begin
  RangeX := 4; // 數字的 x 座標最大 index
  RangeY := 5; // 數字的 y 座標最大 index
  fMax := 0;
  for index := 1 to RangeY do
  begin
    i := RangeX;
    j := index;
    fsum := 0;
    while (i>=1) and (j>=1) do
    begin
      fsum := fsum   StrToFloat(StringGrid1.Cells[i,j]);
      i := i-1;
      j := j-1;
    end;
    StringGrid1.Cells[RangeX   1, index] := FloatToStr(fsum);
    if fsum > fMax then fMax := fsum;
  end;
  for index := 1 to RangeX - 1 do
  begin
    i := index;
    j := RangeY;
    fsum := 0;
    while (i>=1) and (j>=1) do
    begin
      fsum := fsum   StrToFloat(StringGrid1.Cells[i,j]);
      i := i-1;
      j := j-1;
    end;
    StringGrid1.Cells[index, RangeY 1] := FloatToStr(fsum);
    if fsum > fMax then fMax := fsum;
  end;
end;

真的非常感謝你~~ 已經可以執行了， 感謝你在這麼危急的時刻伸出援手， 真的謝謝你的幫忙~