visualg_algoritmos_aula09+exercícios

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

aula09/.DS_Store
__MACOSX/aula09/._.DS_Store
aula09/aula-pratica/01-0a10.alg
algoritmo "conteAte10"
var
 contador : Inteiro
inicio
 contador <- 0
 Enquanto (contador <= 10) faca
 EscrevaL(contador)
 contador <- contador + 1
 FimEnquanto
 Escreval("Terminei de contar")
fimalgoritmo
aula09/aula-pratica/02-10a0.alg
algoritmo "conteAte10"
var
 contador : Inteiro
inicio
 contador <- 10
 Enquanto (contador >= 0) faca
 EscrevaL(contador)
 contador <- contador - 2
 FimEnquanto
 Escreval("Terminei de contar")
fimalgoritmo
aula09/aula-pratica/03-contador.alg
algoritmo "conteAte10"
var
 valor, salto, contador : Inteiro
inicio
 contador <- 0
 Escreva("Quer contar ate quanto? ")
 Leia(valor)
 Escreva("Qual sera o valor do salto? ")
 Leia(salto)
 Enquanto (contador <= valor) faca
 EscrevaL(contador)
 contador <- contador + salto
 FimEnquanto
 Escreval("Terminei de contar")
fimalgoritmo
aula09/aula-pratica/04-maior.alg
algoritmo "somadorNumerico"
var
 cont, N, S, maior: Inteiro
inicio
 cont <- 1
 S <- 0
 Enquanto (cont <= 5) faca
 Escreva ("Digite o ", cont, "o. valor : ")
 Leia (N)
 Se (N > maior) entao
 maior <- N
 FimSe
 S <- S + N
 cont <- cont + 1
 FimEnquanto
 Escreval("A soma de todos os valores foi ", S)
 EscrevaL("O maior valor digitado foi ", maior)
fimalgoritmo
aula09/aula-pratica/05-moedas.alg
algoritmo "conversorMoedas"
var
 C, Q: Inteiro
 R, D: Real
inicio
 C <- 1
 Escreva ("Quantas vezes voce quer convernter? ")
 Leia(Q)
 Enquanto (C <= Q) faca
 Escreva("Qual o valor em R$? ")
 Leia(R)
 D <- R/2.20
 EscrevaL("O valor convertido e US$", D:5:2)
 C <- C + 1
 FimEnquanto
fimalgoritmo
aula09/aula09-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/aula09/._aula09-leia.txt
��������Mac OS X �����	���2���¬�������Þ��������������������������������������ATTR�������Þ���˜���F�������������������˜���F���com.apple.quarantine�q/0041;537a0167;Google\x20Chrome;5DE65D9A-A03D-4704-A3DF-C75482B5A8D0�
aula09/exercicios-propostos/01 - contador.alg
algoritmo "contagemInteligente"
var
 I, F, CONT: Inteiro
inicio
 Escreval("CONTAGEM INTELIGENTE")
 Escreval("--------------------")
 Escreva ("Inicio: ")
 Leia(I)
 Escreva ("Fim: ")
 Leia(F)
 Escreval("--------------------")
 Escreval(" C O N T A N D O ")
 Escreval("--------------------")
 Se (F > I) entao
 CONT <- I
 Enquanto (CONT <= F) faca
 Escreva (CONT, ".. ")
 CONT <- CONT + 1
 FimEnquanto
 senao
 CONT <- I
 Enquanto (CONT >= F) faca
 Escreva (CONT, ".. ")
 CONT <- CONT - 1
 FimEnquanto
 FimSe
fimalgoritmo
aula09/exercicios-propostos/02 - melhoraluno.alg
algoritmo "detectaCDF"
var
 tot, cont: Inteiro
 nome, melhorAluno: Caractere
 nota, maiorNota: Real
inicio
 Escreval("------------------------")
 Escreval(" Escola Santa Paciencia ")
 Escreval("------------------------")
 Escreva("Quantos alunos a turma tem? ")
 Leia(tot)
 cont <- 1
 Enquanto (cont <= tot) faca
 Escreval("---------------")
 Escreval("ALUNO ", cont)
 Escreva("Nome do aluno: ")
 Leia(nome)
 Escreva("Nota de ", nome, ": ")
 Leia(nota)
 Se (nota > maiornota) entao
 maiorNota <- nota
 melhorAluno <- nome
 FimSe
 cont <- cont + 1
 FimEnquanto
 Escreval("-------------------")
 Escreval("O melhor aproveitamento foi de ", melhorAluno, " com a nota ", maiorNota:3:1)
fimalgoritmo