Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original
aula08/aula-pratica/01 - NotasAluno.alg algoritmo "Aluno" var N1, N2, M: Real inicio Escreva("Primeira Nota: ") Leia(N1) Escreva("Segunda Nota: ") Leia(N2) M <- (N1 + N2) / 2 EscrevaL("A media do aluno foi ", M:4:2) Se (M >= 7) entao EscrevaL("Aluno APROVADO") senao Se (M >= 5) e (M <7) entao EscrevaL ("Aluno em RECUPERACAO") senao EscrevaL ("Aluno REPROVADO") FimSe FimSe fimalgoritmo aula08/aula-pratica/02 - ImcCompleto.alg algoritmo "CalculoIMC" var M, A, IMC: Real inicio Escreva("Massa (Kg): ") Leia(M) Escreva("Altura (m): ") Leia(A) IMC <- M / (A ^ 2) EscrevaL("IMC: ", IMC:5:2) Se (IMC < 17) entao EscrevaL ("Muito abaixo do Peso") senao Se (IMC >= 17) e (IMC < 18.5) entao EscrevaL ("Abaixo so Peso") senao Se (IMC >= 18.5) e (IMC < 25) entao EscrevaL ("Peso ideal") senao Se (IMC >= 25) e (IMC < 30) entao EscrevaL ("Sobrepeso") senao Se (IMC >= 30) e (IMC < 35) entao EscrevaL ("Obesidade") senao Se (IMC >= 35) e (IMC < 40) entao EscrevaL ("Obesidade Severa") senao EscrevaL ("Obesidade Morbida") FimSe FimSe FimSe FimSe FimSe FimSe fimalgoritmo aula08/aula-pratica/03 - CriancaEsperanca.alg algoritmo "CriancaEsperanca" var D : Inteiro Valor: Real inicio EscrevaL ("---------------------------") EscrevaL (" CRIANCA ESPERANCA ") EscrevaL ("---------------------------") Escreval (" Muito obrigado por ajudar ") Escreval (" [1] para doar R$10 ") Escreval (" [2] para doar R$25 ") Escreval (" [3] para doar R$50 ") Escreval (" [4] para doar outros valores ") Escreval (" [5] para cancelar ") Leia (D) Escolha D Caso 1 Valor <- 10 Caso 2 Valor <- 25 Caso 3 Valor <- 50 Caso 4 Escreva ("Qual o valor da doacao? R$") Leia (Valor) Caso 5 Valor <- 0 FimEscolha Escreval ("------------------------") Escreval (" SUA DOACAO FOI DE R$", Valor) Escreval (" MUITO OBRIGADO!") Escreval ("------------------------") fimalgoritmo aula08/aula-pratica/04 - Dependentes Funcionario.alg algoritmo "DependentesFuncionario" var Nome: Caractere Sal, NSal : Real Dep : Inteiro inicio Escreva ("Qual o nome do Funcionario? ") Leia (Nome) Escreva ("Qual o salario do Funcionario? R$") Leia (Sal) Escreva ("Qual e a quantidade de dependentes? ") Leia (Dep) Escolha Dep Caso 0 NSal <- Sal + (Sal*5/100) Caso 1, 2, 3 NSal <- Sal + (Sal*10/100) Caso 4, 5, 6 NSal <- Sal + (Sal*15/100) OutroCaso NSal <- Sal + (Sal*18/100) FimEscolha EscrevaL ("O novo salario de ", Nome, " sera de R$", NSal:5:2) fimalgoritmo aula08/aula08-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/aula08/._aula08-leia.txt ��������Mac OS X ����� ���2���¬�������Þ��������������������������������������ATTR�������Þ������F����������������������F���com.apple.quarantine�q/0001;537a0167;Google\x20Chrome;5DE65D9A-A03D-4704-A3DF-C75482B5A8D0� aula08/exercicios-propostos/01-AproveitamentoAluno.alg algoritmo "SituacaoAluno" var nota1, nota2, media: Real inicio EscrevaL("-----------------------") EscrevaL(" ESCOLA JAVALI CANSADO ") EscrevaL("-----------------------") Escreva("Primeira Nota: ") Leia(nota1) Escreva("Segunda Nota: ") Leia(nota2) media <- (nota1 + nota2)/2 EscrevaL("-----------------------") EscrevaL(" MEDIA: ", media:3:1) Se (media >=9) e (media <= 10) entao EscrevaL(" APROVEITAMENTO: A ") senao Se (media >= 8) e (media < 9) entao EscrevaL (" APROVEITAMENTO: B ") senao Se (media >= 7) e (media < 8) entao EscrevaL (" APROVEITAMENTO: C ") senao Se (media >= 6) e (media < 7) entao EscrevaL (" APROVEITAMENTO: D ") senao Se (media >= 5) e (media < 6) entao EscrevaL (" APROVEITAMENTO: E ") senao EscrevaL(" APROVEITAMENTO: F ") FimSe FimSe FimSe FimSe FimSe EscrevaL("-----------------------") fimalgoritmo aula08/exercicios-propostos/02-TimesFutebol.alg algoritmo "PartidaFutebol" var gols1, gols2, dif: Real inicio EscrevaL("-----------------------") EscrevaL(" BANGU x MADUREIRA ") EscrevaL("-----------------------") Escreva("Quantos gols do BANGU? ") Leia(gols1) Escreva("Quantos gols do MADUREIRA? ") Leia(gols2) Se (gols1 > gols2) entao dif <- gols1 - gols2 senao dif <- gols2 - gols1 FimSe EscrevaL("-----------------------") EscrevaL(" DIFERENCA: ", dif) Escolha dif Caso 0 EscrevaL(" STATUS: EMPATE ") Caso 1, 2, 3 EscrevaL(" STATUS: PARTIDA NORMAL ") Caso 4,5, 6, 7 EscrevaL(" STATUS: GOLEADA ") OutroCaso EscrevaL(" STATUS: ALGO INCOMUM. ") EscrevaL(" Voce digitou os dados corretos? ") FimEscolha EscrevaL("-----------------------") fimalgoritmo