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