visualg_algoritmos_aula12+exercícios

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

aula12/.DS_Store
__MACOSX/aula12/._.DS_Store
aula12/aula-pratica/01 - DetectorPesado.alg
algoritmo "DetectorPesado"
// =============================================================
// Algoritmo para detectar qual e a pessoa mais pesada, utilizando
// rotinas em algoritmos.
//
// AUTOR: Gustavo Guanabara
// Curso COMPLETO disponivel GRATIS no site www.cursoemvideo.com
// =============================================================
var
 I: Inteiro
 N, Pesado: Caractere
 P, Mai: Real
inicio
 LimpaTela
 EscrevaL("------------------------------------")
 EscrevaL(" D E T E C T O R DE P E S A D O ")
 EscrevaL(" Maior Peso ate agora: ", Mai, "Kg")
 EscrevaL("------------------------------------")
 Teste()
 Para I <- 1 ate 5 faca
 Escreva("Digite o nome: ")
 Leia(N)
 Escreva("Digite o peso de ", N, ": ")
 Se (P>Mai) entao
 MAI <- P
 Pesado <- N
 FimSe
 LimpaTela
 EscrevaL("------------------------------------")
 EscrevaL(" D E T E C T O R DE P E S A D O ")
 EscrevaL(" Maior Peso ate agora: ", Mai, "Kg")
 EscrevaL("------------------------------------")
 FimPara
 LimpaTela
 EscrevaL("------------------------------------")
 EscrevaL(" D E T E C T O R DE P E S A D O ")
 EscrevaL(" Maior Peso ate agora: ", Mai, "Kg")
 EscrevaL("------------------------------------")
 EscrevaL("A pessoa mais pesada foi ", Pesado, ", com ", Mai, " quilos.")
fimalgoritmo
aula12/aula-pratica/02 - SomaProcedimento.alg
algoritmo "FazSomaProcedimento"
// =============================================================
// Algoritmo para somar dois valores usando procedimentos.
//
// AUTOR: Gustavo Guanabara
// Curso COMPLETO disponivel GRATIS no site www.cursoemvideo.com
// =============================================================
var
 X, Y: Inteiro
Procedimento Soma(A, B: Inteiro)
inicio
 EscrevaL("Recebi o valor ",A)
 Escreval("Recebi o valor ",B)
 Escreval("A soma entre os dois e ", A + B)
FimProcedimento
inicio
 X <- 5
 Y <- 3
 Soma(X, Y)
fimalgoritmo
aula12/aula-pratica/03 - ParImparProcedimento.alg
algoritmo "ParOuImparProcedimento"
// =============================================================
// Algoritmo para verificar se um valor e par ou impar usando
// rotinas internas.
//
// AUTOR: Gustavo Guanabara
// Curso COMPLETO disponivel GRATIS no site www.cursoemvideo.com
// =============================================================
var
 N: Inteiro
Procedimento ParOuImpar(V: Inteiro)
inicio
 Se (V%2 = 0) entao
 EscrevaL("O numero ", V, " e PAR")
 senao
 EscrevaL("O numero ", V, " e IMPAR")
 FimSe
FimProcedimento
inicio
 Escreva("Digite um numero: ")
 Leia (N)
 ParOuImpar(N)
fimalgoritmo
aula12/aula-pratica/04 - SomaReferencia.alg
algoritmo "SomaParametrosReferencia"
// =============================================================
// Algoritmo para somar dois valores usando procedimentos com
// passagem de parametros por referencia.
//
// AUTOR: Gustavo Guanabara
// Curso COMPLETO disponivel GRATIS no site www.cursoemvideo.com
// =============================================================
var
 X, Y: Inteiro
Procedimento Soma (var A, B: Inteiro)
inicio
 A <- A + 1
 B <- B + 2
 EscrevaL("Valor de A = ", A)
 EscrevaL("Valor de B = ", B)
 EscrevaL("Soma A + B = ", A+B)
FimProcedimento
inicio
 X <- 4
 Y <- 8
 Soma (X, Y)
 EscrevaL("Valor de X = ", X)
 EscrevaL("Valor de Y = ", Y)
fimalgoritmo
aula12/aula-pratica/05 - FibonacciProcedimento.alg
algoritmo "FibonacciProcedimento"
// =============================================================
// Algoritmo para exibir os 10 primeiros elementos de uma serie de
// Fibonacci usando procedimentos com passagem de parametros por
// referencia.
//
// AUTOR: Gustavo Guanabara
// Curso COMPLETO disponivel GRATIS no site www.cursoemvideo.com
// =============================================================
var
 I, T1, T2, T3: Inteiro
Procedimento ProximoFibonacci(var N1, N2: Inteiro)
Var
 N3: Inteiro
Inicio
 N3 <- N1 + N2
 EscrevaL(N3)
 N1 <- N2
 N2 <- N3
FimProcedimento
inicio
 T1 <- 0
 EscrevaL(T1)
 T2 <- 1
 EscrevaL(T2)
 Para I <- 3 ate 10 faca
 ProximoFibonacci(T1, T2)
 FimPara
fimalgoritmo
aula12/aula12-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/aula12/._aula12-leia.txt
��������Mac OS X �����	���2���¬�������Þ��������������������������������������ATTR�������Þ���˜���F�������������������˜���F���com.apple.quarantine�q/0001;537a0167;Google\x20Chrome;5DE65D9A-A03D-4704-A3DF-C75482B5A8D0�