visualg_algoritmos_aula10+exercícios

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

aula10/.DS_Store
__MACOSX/aula10/._.DS_Store
aula10/aula-pratica/.DS_Store
__MACOSX/aula10/aula-pratica/._.DS_Store
aula10/aula-pratica/01-tabuada.alg
algoritmo "Tabuada"
// =============================================================
// Algoritmo para mostrar a tabuada de um determinado numero.
//
// AUTOR: Gustavo Guanabara
// Curso COMPLETO disponivel GRATIS no site www.cursoemvideo.com
// =============================================================
var
 Cont, N, R: Inteiro
inicio
 Cont <- 1
 Escreva("Quer ver a tabuada de qual numero? ")
 Leia(N)
 Repita
 R <- N * Cont
 EscrevaL(N, " x ", Cont, " = ", R)
 Cont <- Cont + 1
 Ate (Cont > 10)
fimalgoritmo
aula10/aula-pratica/02-conta-negativos.alg
algoritmo "ContaNegativos"
// =============================================================
// Algoritmo para contar quantos valores digitados foram negativos.
//
// AUTOR: Gustavo Guanabara
// Curso COMPLETO disponivel GRATIS no site www.cursoemvideo.com
// =============================================================
var
 N, C, TotN: Inteiro
inicio
 C <- 1
 TotN <- 0
 Repita
 Escreva("Digite um numero: ")
 Leia (N)
 Se (N<0) entao
 TotN <- TotN + 1
 FimSe
 C <- C + 1
 Ate (C > 5)
 EscrevaL("Foram digitados ", TotN, " valores negativos.")
fimalgoritmo
aula10/aula-pratica/03-somador.alg
algoritmo "Somador"
// =============================================================
// Algoritmo para somar varios valores informados pelo usuario.
//
// AUTOR: Gustavo Guanabara
// Curso COMPLETO disponivel GRATIS no site www.cursoemvideo.com
// =============================================================
var
 N, S: Inteiro
 resp: Caractere
inicio
 S <- 0
 Repita
 Escreva ("Digite o valor ==> ")
 Leia(N)
 S <- S + N
 Escreva("Voce quer continuar? [S/N] ")
 Leia(resp)
 Ate (resp = "N")
 EscrevaL("A soma de todos os valores digitados e ", S)
fimalgoritmo
aula10/aula-pratica/04-fatorial.alg
algoritmo "Fatorial"
// =============================================================
// Algoritmo para calcular o Fatorial de um numero.
// Ex: 5! = 5 x 4 x 3 x 2 x 1 = 120
//
// AUTOR: Gustavo Guanabara
// Curso COMPLETO disponivel GRATIS no site www.cursoemvideo.com
// =============================================================
var
 C, N, F: Inteiro
 R: Caractere
inicio
Repita
 Escreva("Digite um numero: ")
 Leia(N)
 C <- N
 F <- 1
 Repita
 F <- F * C
 C <- C - 1
 Ate (C < 1)
 EscrevaL ("O valor do fatorial de ", N, " e igual a ", F)
 Escreva ("Quer continuar? [S/N]")
 Leia(R)
 LimpaTela
Ate (R = "N")
fimalgoritmo
aula10/aula-pratica/05-primo.alg
algoritmo "NumeroPrimo"
// =============================================================
// Algoritmo para verificar se um determinado numero e PRIMO ou nao.
//
// AUTOR: Gustavo Guanabara
// Curso COMPLETO disponivel GRATIS no site www.cursoemvideo.com
// =============================================================
var
 C, N, ContDiv: Inteiro
inicio
 C <- 1
 ContDiv <- 0
 Escreva("Digite um numero: ")
 Leia(N)
 Repita
 Se (N % C = 0) entao
 ContDiv <- ContDiv + 1
 FimSe
 C <- C + 1
 Ate (C > N)
 Se (ContDiv > 2) entao
 EscrevaL ("O valor ", N, " nao e primo!")
 senao
 EscrevaL ("O valor ", N, " e primo!")
 FimSe
fimalgoritmo
aula10/aula10-leia.txt
==================================
SEJA BEM-VINDO AO CURSOEMVIDEO.COM
Cursos GRATIS feitos com QUALIDADE
==================================
Essa aula faz parte de um pacote do Curso de Algoritmos, criado pelo Prof. Gustavo Guanabara. 
A chave para o bom aprendizado e sempre a PRATICA, entao pratique muito e nao deixe de acompanhar todas as aulas disponiveis no site abaixo:
------------------------------------------------
www.cursoemvideo.com/course/curso-de-algoritmos/
------------------------------------------------
Todas as aulas sao gratuitas, mas possuem o direito autoral reservado ao autor, Gustavo Guanabara.
Todos os testes praticos feitos durante a aula estao na pasta AULA-PRATICA.
Todos os exercicios propostos pelo professor estao na pasta EXERCICIOS-PROPOSTOS.
Abra o VISUALG e clique em Arquivo > Abrir ou pressione Ctrl+A. Em seguida, localize o arquivo desejado em sua respectiva pasta.
BONS ESTUDOS!
__MACOSX/aula10/._aula10-leia.txt
��������Mac OS X �����	���2���¬�������Þ��������������������������������������ATTR�������Þ���˜���F�������������������˜���F���com.apple.quarantine�q/0001;537a0167;Google\x20Chrome;5DE65D9A-A03D-4704-A3DF-C75482B5A8D0�
aula10/exercicios-prontos/.DS_Store
__MACOSX/aula10/exercicios-prontos/._.DS_Store
aula10/exercicios-prontos/01-contador-menu.alg
algoritmo "SuperContador"
// =============================================================
// Algoritmo para criar um contador atraves de menus.
//
// AUTOR: Gustavo Guanabara
// Curso COMPLETO disponivel GRATIS no site www.cursoemvideo.com
// =============================================================
var
 op, Cont: Inteiro
inicio
 Repita
 EscrevaL("")
 EscrevaL("=================")
 EscrevaL("| M E N U |")
 EscrevaL("=================")
 EscrevaL("| [1] De 1 a 10 |")
 EscrevaL("| [2] De 10 a 1 |")
 EscrevaL("| [3] Sair |")
 EscrevaL("=================")
 Leia(op)
 Escolha op
 Caso 1
 Cont <- 1
 Repita
 Escreva (Cont, "..")
 Cont <- Cont + 1
 Ate (Cont > 10)
 Caso 2
 Cont <- 10
 Repita
 Escreva (Cont, "..")
 Cont <- Cont - 1
 Ate (Cont < 1)
 Caso 3
 EscrevaL("SAINDO...")
 Caso 4
 EscrevaL("INVALIDO!")
 FimEscolha
 Ate (op = 3)
fimalgoritmo
aula10/exercicios-prontos/02-seletor-pessoas.alg
algoritmo "SeletorPessoas"
// =============================================================
// Algoritmo para ler Sexo, Idade e Cor de Cabelo de diversas pessoas
// e ao final, mostrar:
// = Total de HOMENS com mais de 18 ANOS e cabelos CASTANHOS.
// = Total de MULHERES entre 25 e 30 ANOS e cabelos LOIROS.
//
// AUTOR: Gustavo Guanabara
// Curso COMPLETO disponivel GRATIS no site www.cursoemvideo.com
// =============================================================
var
 sexo, resp: caractere
 idade, cabelo, TotH18, TotM25: inteiro
inicio
 Repita
 LimpaTela
 EscrevaL("==========================")
 EscrevaL(" SELETOR DE PESSOAS ")
 EscrevaL("==========================")
 Escreva("Qual o Sexo? [M/F] ")
 Leia(sexo)
 Escreva("Qual a idade? ")
 Leia(idade)
 EscrevaL("Qual a cor do Cabelo?")
 EscrevaL("---------------------")
 EscrevaL("[1] Preto")
 EscrevaL("[2] Castanho")
 EscrevaL("[3] Loiro")
 EscrevaL("[4] Ruivo")
 Leia(cabelo)
 Se (sexo = "M") e (idade > 18) e (cabelo = 2) entao
 TotH18 <- TotH18 + 1
 FimSe
 Se (sexo = "F") e ((idade >= 25) e (idade <= 30)) e (cabelo = 3) entao
 TotM25 <- TotM25 + 1
 FimSe
 Escreva("Quer continuar? [S/N] ")
 Leia(resp)
 Ate (resp = "N")
 LimpaTela
 EscrevaL("------------------------------------")
 EscrevaL(" RESULTADO FINAL ")
 EscrevaL("------------------------------------")
 EscrevaL("Total de homens com mais de 18 e cabelos castanhos ", TotH18)
 EscrevaL("Total de mulheres entre 25 e 30 e cabelos loiros ", TotM25)
fimalgoritmo