Baixe o app para aproveitar ainda mais
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�
Compartilhar