Algoritmos (visualg)

[Bruno l s Melo 1]

 

Boa noite pessoal nao sei se consegui entre predar o que foi pedido abaixo mais fiz o seguinte Algoritmo gostaria de saber de vcs se esta correto segundo pedido abaix

 

Elabore um algoritmo que por N vezes possa calcular a raiz quadrada de um determinado valor inteiro.

algoritmo "semnome"

// Função :

// Autor :Bruno Melo

// Data : 05/05/2015

// Seção de Declarações

var

numero: inteiro

raiz: inteiro

inicio

// Seção de Comandos

escreval ("Escreva um numero inteiro: ")

leia(numero)

raiz <- 0

repita

raiz <- raiz+1

ate(raiz*raiz) > numero

raiz <- raiz-1

escreval ("o numero aproximado da raiz quadrada e ", raiz)

fimalgoritmo

 

[flavionorvel 0]

Tenta este código aqui:

 

 

 

algoritmo "raiz"

var

n,raiz:real

inicio

// Seção de Comandos

escreva ("Digite um número: ")

leia (n)

se n>=0 entao

raiz<-n^(1/2)

escreval(raiz)

senao

escreval("Opção inválida")

fimse

fimalgoritmo