計算に条件をつけるには？

解決

karuru 2004-08-12 09:48:38 No: 10375

ボタンを押すと10<a*a-b*b<100、ただしa,bは整数で1<a<b<20の範囲で、という式を満たすa,bをすべて求めて求めて表示して、また、その解の総和も計算して表示したいのですが、正し以下の部分の付け足し方が分かりません。どなたか手助けをおねがいします。（余力がありましたら表示した解の総和の求め方も教えていただけるとありがたいです

暑さでバテバテ余力なし 2004-08-12 10:32:18 No: 10376

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;

karuru 2004-08-13 02:28:59 No: 10377

丁寧なレスありがとうございます・・・ですがこちらの入力ミスでもひとつの問題が・・別口で質問しますので余力がありましたらお願いします