erro de procedimento no visualg

Question

A inten��o do c�digo � perguntar se quer saber da �rea do quadrado de um n�mero. Por�m n�o funciona na parte que declaro as vari�veis locais.algoritmo testevar� digito : caractere��� procedi...

Jonathan Ab�lio · Answer

Ol�, voce pode resolver esse problema se declarar as variaveis do escopo do procedimento no var geral, algo que normalmente fa�o, ou logo abaixo do Procedimento coloque um var e declara ali mesmo. Tomei a liberdade de ajustar os espa�amentos e melhorar um pouquinho visual. Espero ter ajudado

//Corre��o abaixo

Algoritmo "�rea do Quadrado"

var
digito: caractere
lado, area : inteiro

Procedimento quadrado()

//var (pode colocar assim tamb�m)
//lado, area: inteiro

Inicio
Escreval (" ----------------------------- ")
Escreval (" �REA DO QUADRADO ")
Escreval (" ----------------------------- ")
Escreval ()
Escreva("Digite o valor do lado: ")
leia(lado)

area <- lado*lado
Escreval ()
Escreva("�rea do quadrado:", area, " m�")
Fimprocedimento

Inicio
Escreva("Gostaria de saber a �rea de um quadrado? [S/N] - ")
leia(digito)

Se (digito = "S") entao
LimpaTela
quadrado()
Fimse
Fimalgoritmo