Trabalho de Algoritmo
Publicado por Julio em 11 / Agosto / 2008
Resolvendo o problema dos botões da aula!
Primeiro Botão(Perguntando ao Usuário os Valores):
Esse é simples, para se perguntar uma coisa para o usuário no VB usamos o comando InputBox.
Então para perguntar 10 vezes podemos fazer de 2 maneiras.
1° Maneira:
Vetor[1] = InputBox(“Entre com um valor.”) rem esse inputbox é o mais simples.
Vetor[2] = InputBox(“Entre com um valor.”)
.
.
Vetor[10] = InputBox(“Entre com um valor.”)
Até o vetor de índice 10. Pronto…. seu programa agora pergunta ao usuário 10 vezes para ele inserir algum valor.
Lembre-se que no VB a posição do vetor é declarada entre () e não [].
2° Maneira
Como vocês já sabem criar um repetição então vou passar direto ao portugol
Para i = 1 até 10 faça
Vetor[i] = InputBox(“Seu texto”)
Fim Para
AVISO: Nos dois casos para dar continuidade ao exercício copie e cole o código do primeiro botão (com ou seu os REM) abaixo dos códigos que vocês escreverem.
Segundo Botão (Gera os numero automaticamente)
Aqui posso sugerir 2 versões funcionais porem considero que a melhor é a que se aproveita do código feito em sala que sorteava num vetor de 60 posições um valor que era colocado em POS.
Por isso só vou colocar ela
Para i = 1 até 60 faça ‘zerando o vetor
AP(i) = 0
Fim para
Para i = 1 até 10 faça
POS = Random (1,60)
Enquanto AP(POS) = 1 faça
POS = Random(1,60)
Fim enquanto
AP(POS) = 1
Fim para
Var = 0
Para i = 1 até 60 faça
Se AP(i) = 1 então
Var = Var + 1
n(Var) = i
Fim se
Fim para
A partir desse ponto copie e cole o código do 1 botão.
AVISO2: Lembre-se de declarar os vetores necessários e a quantidade de posições que ele vai ter.
