掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
組み合わせ。前回の続きです。ごめんなさい。 (ID:16345)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
pＣq は押して知るべし。一般解あるかな？ var sName: array[1..17]of string = ('a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q'); fData: array[1..17]of Double = (10.3, 69.97, 53.55, 0.3125, 0.0363, 0.0393, 0.1843, 14.4, 4.019, 65.63, 42.87, 13.58, 26.61, 5.737, 19.02, 0.7183, 100); procedure TForm1.Button1Click(Sender: TObject); var i, j, k, Cnt: Integer; begin Memo1.Font.Name := 'ＭＳ ゴシック'; Memo1.Font.Size := 10; Cnt := 0; for i:=Low(fData) to High(fData)-2 do begin for j:=i+1 to High(fData) do begin for k:=j+1 to High(fData) do begin inc(Cnt); Memo1.Lines.Add(sName[i]+'＋'+sName[j]+'＋'+sName[k]+'＝'+FloatToStr(fData[i]+fData[j]+fData[k])); end; end; end; Memo1.Lines.Add('組み合わせの数は '+IntToStr(Cnt)+' 通り'); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.