掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
計算に条件をつけるには？ (ID：10376)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure TForm1.Button1Click(Sender: TObject); var a, b, c, sum : Integer; begin ListBox1.Clear; ListBox1.Font.Name := 'ＭＳ ゴシック'; sum := 0; for a:=2 to 19 do begin for b:=2 to 19 do begin c := a*a - b*b; if c in [11..99] then begin ListBox1.Items.Add(Format('a=%.2d b=%.2d a*a-b*b=%.3d', [a, b, c])); inc(sum, c); end; end; end; ListBox1.Items.Add(Format('総和 = %d', [sum])); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.