Número Primo #visualg #algoritmo

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Algoritmo "Numero_Primo"
// Disciplina : Lógica de Programação e Algoritmos
// Professor :
// Autor(a) : Vinicius
// Data atual : 30/09/2016
//------------------------------------------------------------------------+
// Descrição : Algoritmo recebe um número inteiro.
//
// Após a inserção , efetua os devidos cálculos.
//
// Se a quantidade de restos das divisões for :
// - IGUAL a 'zero' informa: "É PRIMO!"
// - DIFERENTE de 'zero' informa: "Não é PRIMO!"
//
// Logo após a inserção do número , exibe:
// - a quantidade de restos da divisão.
// - conceito atribuido.
//------------------------------------------------------------------------+
Var
// Seção de Declarações das variáveis
i, start , stop : inteiro
numero , resto , qnt_restos : inteiro
conceito : caractere
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
//------------------------------------------------------------------------+
// Passando valores iniciais para as variáveis
//------------------------------------------------------------------------+
i <- 0
start <- 1
stop <- 0
numero <- 0
resto <- 0
qnt_restos <- 0
conceito <- ""
//------------------------------------------------------------------------+
// Apresentação
//------------------------------------------------------------------------+
escreval ("")
escreval (" Software verifica se o número inserido é PRIMO ou não.")
escreval ("")
escreval ("")
//------------------------------------------------------------------------+
// Entrada de dados
//------------------------------------------------------------------------+
escreva (" Número ...........: ")
leia (numero)
//------------------------------------------------------------------------+
// Laço de repetição
//
// Efetuará as divisões possíveis (de 1 até ao número inserido).
//------------------------------------------------------------------------+
para i de 1 ate numero faca
 //---------------------------------------------------------------------+
 // Efetuando cálculos das divisões
 //---------------------------------------------------------------------+
 resto <- (numero mod i)
 //---------------------------------------------------------------------+
 // A cada divisão de resto igual a 'zero' , incrementa '+1' à
 //
 // variável 'qnt_restos'.
 //---------------------------------------------------------------------+
 se (resto = 0) entao
 qnt_restos <- qnt_restos + 1
 fimse
fimpara
//------------------------------------------------------------------------+
// Verificando o valor final da variável 'qnt_restos'.
//
// Conceituando o número inserido.
//
// E passando o conceito atribuido para a variável 'conceito'.
//------------------------------------------------------------------------+
se (qnt_restos = 2) entao
 conceito <- "é PRIMO!"
senao
 conceito <- "NÃO é PRIMO!"
fimse
//------------------------------------------------------------------------+
// Saída de dados
//------------------------------------------------------------------------+
escreval ("")
escreval (" Qnt. Restos ......:", qnt_restos)
escreval ("")
escreval (" Conceito .........: ", conceito)
//------------------------------------------------------------------------+
// Pulando linhas
//------------------------------------------------------------------------+
escreval ("")
escreval ("")
escreval ("")
escreval ("")
escreval ("")
escreval ("")
escreval ("")
escreval ("")
escreval ("")
escreval ("")
escreval ("")
escreval ("")
escreval ("")
FimAlgoritmo