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

Informe um valor inteiro: 64
O número 64 é um quadrado perfeito
Informe um valor inteiro: 28
O número 28 não é um quadrado perfeito
Informe um valor inteiro: 16
O número 16 é um quadrado perfeito

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

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
  escreva("Informe um valor inteiro: ")
  leia(valor)

  // vamos testar se o número informado é um quadrado perfeito
  se testar_quadrado_perfeito(valor) entao
    escreva("O número ", valor, " é um quadrado perfeito")
  senao
    escreva("O número ", valor, " não é um quadrado perfeito")
  fimse

fimalgoritmo