visualg_algoritmos_aula07+exercícios

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

aula07/aula07-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!
aula07/aula-pratica/01-idade.alg
algoritmo "CalculoIdade"
// =============================================================
// Algoritmo para verificar se uma pessoa ja atingiu a maioridade
//
// AUTOR: Gustavo Guanabara
// Curso COMPLETO disponivel GRATIS no site www.cursoemvideo.com
// =============================================================
var
 ano, nasc, idade: Inteiro
inicio
 Escreva("Em que ano estamos? ")
 Leia(ano)
 Escreva("Em que ano voce nasceu? ")
 Leia(nasc)
 idade <- ano - nasc
 Escreva ("Em ", ano, " voce tera ", idade, " anos")
 Se (idade >= 21) entao
 EscrevaL (" e ja tera atingido a maioridade. ")
 FimSe
fimalgoritmo
aula07/aula-pratica/02-parimpar.alg
algoritmo "ParOuImpar"
// =============================================================
// Algoritmo para verificar se um valor e PAR ou IMPAR
//
// AUTOR: Gustavo Guanabara
// Curso COMPLETO disponivel GRATIS no site www.cursoemvideo.com
// =============================================================
var
N: Inteiro
inicio
Escreva("Digite um numero qualquer: ")
Leia(N)
Se (N % 2 = 0) entao
 EscrevaL("O numero ", N, " e PAR")
senao
 EscrevaL("O numero ", N, " e IMPAR")
FimSe
fimalgoritmo
aula07/aula-pratica/03-imc.alg
algoritmo "CalculoIMC"
// =============================================================
// Algoritmo para calcular o Indice de Massa Corporal de uma pessoa
//
// AUTOR: Gustavo Guanabara
// Curso COMPLETO disponivel GRATIS no site www.cursoemvideo.com
// =============================================================
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 >= 18.5) e (IMC < 25) entao
 Escreva("Parabens! Voce esta no seu peso ideal")
 senao
 Escreva("Voce nao esta na faixa de peso ideal")
 FimSe
fimalgoritmo
aula07/exercicios-propostos/01-detran.alg
algoritmo "AptoDirigir"
// =============================================================
// Algoritmo para verificar se uma pessoa ja pode tirar carteira de motorista
//
// AUTOR: Gustavo Guanabara
// Curso COMPLETO disponivel GRATIS no site www.cursoemvideo.com
// =============================================================
var
 ano, nasc, idade: Inteiro
 apto: Logico
inicio
 EscrevaL("--------------------------")
 EscrevaL(" DEPARTAMENTO DE TRANSITO ")
 EscrevaL("--------------------------")
 Escreva("Ano Atual (yyyy): ")
 Leia(ano)
 Escreva("Ano de Nascimento (yyyy): ")
 Leia(nasc)
 idade <- ano - nasc
 Se (idade >= 18) entao
 apto <- verdadeiro
 senao
 apto <- falso
 FimSe
 EscrevaL
 EscrevaL ("-------- STATUS --------")
 EscrevaL (" IDADE: ", idade, " ANOS")
 Se (apto) entao
 EscrevaL (" APTO A TIRAR CARTEIRA ")
 senao
 EscrevaL (" INAPTO A TIRAR CARTEIRA ")
 FimSe
 EscrevaL ("------------------------")
fimalgoritmo
aula07/exercicios-propostos/02-aluno.alg
algoritmo "SituacaoAluno"
// =============================================================
// Algoritmo para verificar se um aluno esta APROVADO ou REPROVADO
//
// AUTOR: Gustavo Guanabara
// Curso COMPLETO disponivel GRATIS no site www.cursoemvideo.com
// =============================================================
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 >= 7) entao
 EscrevaL(" ALUNO APROVADO ")
 senao
 EscrevaL(" ALUNO REPROVADO ")
 FimSe
 EscrevaL("-----------------------")
fimalgoritmo