visual-foxpro - Visual Foxpro で数値の完全平方数をチェックするプログラムを作成する

Question

ユーザーに数字の入力を求めます。入力した数値が正二乗かどうかを確認します。私は試した。 ここに画像の説明を入力

Answer 1

local num, nSqrt
Input "Enter a number" to num
IF m.num > 0 
  nSqrt = SQRT(m.num)
  IF m.nSqrt == INT(m.nSqrt)
    ? LTRIM(STR(m.num)) + ' is a perfect square'
  ENDIF
endif