Comandos de Repetição

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

Prof. Rafael Chanin
*
Comandos de repetição:
while, for
*
Prof. Rafael Chanin
Programas com repetição
Programas onde algumas de suas partes (conjunto de comandos) são repetidas tantas vezes quantas forem necessárias.
As estruturas de repetição também são chamadas de laços ou loops.
Podem ser divididas em 2 categorias:
 laços condicionais: quando não se conhece o número de vezes que o conjunto de comandos será executado. O término da repetição está amarrado a uma condição.
 Comando: while
b) laços contados: quando já se conhece previamente quantas vezes os comandos devem ser executados.
 Comando: for
*
Prof. Rafael Chanin
Comando while
- Estrutura de repetição condicional;
- Repete os comandos enquanto a condição for verdadeira;
Sintaxe:
While condição
 comandos
Wend
- a condição é uma expressão lógica;
- o teste é realizado antes de entrar no laço;
*
Prof. Rafael Chanin
Comando while
Funcionamento:
 avalia-se a condição: resulta True ou False;
 se o resultado for True, então os comandos são executados. Após é realizado um retorno ao teste da condição;
 se o resultado for False não faz nada e executa o comando seguinte à repetição.
condição
comandos
True
False
… 
… 
*
Prof. Rafael Chanin
Comando while
Observações:
 não é garantido que os comandos sejam executados (se no primeiro teste da condição ela for falsa). Desta forma, para entrar na estrutura de repetição, deve-se colocar um comando antes da repetição capaz de garantir a condição verdadeira;
 deve existir um comando dentro dos comandos da repetição capaz de modificar o resultado da condição para falsa. Caso contrário o programa fica indefinidamente no laço (laço infinito).
*
Prof. Rafael Chanin
Private Sub
	Dim valor, cont as Integer
 
 valor = CInt(txtval.Text) ‘ busca valor do formulário
 cont = 0 ‘inicialização
 While cont < valor
 cont = cont + 1 ‘incremento
 MsgBox cont
 Wend
End Sub
Exemplo 1:
Teste de mesa
val cont saída
 3 0
 1 1
 2 2
 3 3
Escrever um programa que leia um valor inteiro e escreva os números de 1 até o valor lido.
*
Prof. Rafael Chanin
Private Sub
	Dim valor, cont as Integer
 
 valor = CInt(txtval.Text) ‘ busca valor do formulário
 cont = 1 ‘inicialização
 While cont <= valor
 MsgBox cont
 cont = cont + 1 ‘incremento
 Wend
End Sub
Exemplo 1:
Teste de mesa
val cont saída
 3 1 1
 2 2
 3 3
 4
Contador:
Variável inteira que recebe um valor inicial (inicialização) e que é incrementada por um valor fixo a cada repetição.
*
Prof. Rafael Chanin
Private Sub
	Dim valor, cont, soma as Integer
 
 valor = CInt(txtval.Text) ‘ busca valor do formulário
 cont = 0 ‘inicializações
 soma = 0
 While cont < valor
 cont = cont + 1 ‘incremento
 soma = soma + cont ‘acumulador
 Wend
 MsgBox “Soma = “ & soma
End Sub
Exemplo 2:
Teste de mesa
val cont soma
 3 0 0
 1 1
 2 3
 3 6
Escrever um programa que leia um valor inteiro e calcule a soma dos números de 1 até o valor lido.
*
Prof. Rafael Chanin
Acumulador:
Variável numérica que recebe um valor inicial (inicialização) e que é incrementada por um valor variável a cada repetição.
*
Prof. Rafael Chanin
Comando for
Utilizado principalmente quando já se conhece previamente quantas vezes os comandos devem ser executados.
Sintaxe:
“Repetir do início até o final, pulando de inc em inc.”
Obs: a parte Step não precisa ser informada se inc=1
For variável = início To final Step inc
 comandos
Next
*
Prof. Rafael Chanin
var <= final
Comando for
Funcionamento:
-executa-se o comando da inicialização;
- avalia-se a condição: resulta True ou False;
- se o resultado for True, então os comandos são executados. A seguir é executado o comando do incremento e realizado o retorno à avaliação da condição;
- se o resultado for False, não faz nada e executa o comando seguinte à repetição.
… 
var = inicio
True
False
… 
comandos
var = var + inc
*
Prof. Rafael Chanin
Private Sub
	Dim valor, cont as Integer
 
 valor = CInt(txtval.Text) ‘ busca valor do formulário
 For cont=1 To valor
 MsgBox cont
 Next
End Sub
Exemplo 1:
Escrever um programa que leia um valor inteiro e escreva os números de 1 até o valor lido.
*
Prof. Rafael Chanin
Private Sub
	Dim valor, cont, soma as Integer
 
 valor = CInt(txtval.Text) ‘ busca valor do formulário
 soma = 0
 For cont=0 To valor
 If cont Mod 2 = 0 Then
 soma = soma + cont
 End If
 Next
 MsgBox “Soma = “ & soma
End Sub
Exemplo 2:
Escrever um programa que calcule a soma dos valores pares compreendidos entre zero e um valor fornecido pelo usuário.
*
Prof. Rafael Chanin
Private Sub
	Dim valor, cont, soma as Integer
 
 valor = CInt(txtval.Text) ‘ busca valor do formulário
 soma = 0
 For cont=0 To valor Step 2
 soma = soma + cont
 Next
 MsgBox “Soma = “ & soma
End Sub
Exemplo 2:
*
Prof. Rafael Chanin
Exercícios:
Escrever um programa que calcule a soma dos valores pares compreendidos entre dois valores fornecidos pelo usuário.
Escreve um programa para calcular o fatorial de um valor fornecido pelo usuário