Como testar se um número é um quadrado perfeito em VisuAlg - Solução usando RaizQ() e Int() - Exercícios Resolvidos de VisuAlg

algoritmo "Número quadrado perfeito em VisuAlg"

var
  // variáveis usadas na resolução do problema
  valor: inteiro

funcao testar_quadrado_perfeito(numero: inteiro): logico
var
  raiz_quadrada: real

inicio
  // primeiro calculamos a rais quadrada do número recebido
  raiz_quadrada <- RaizQ(numero)

  // agora testamos se a raiz quadrada do número menos o arredondamento
  // dele para baixo é igual a 0
  retorne ((raiz_quadrada - Int(raiz_quadrada)) = 0)
fimfuncao

inicio
  // vamos pedir para o usuário informar um valor inteiro