Ir para o conteúdo
tiagopedro

Visual Basic - Consola

Mensagens Recomendadas

tiagopedro    0
tiagopedro

Estou a tentar fazer um programa que faça a soma entre todos os números de n1 a n2, sejam n1 e n2 dois numeros escolhidos pelo utilizador. Fiz o código abaixo mas quando faço o degugging, nunca funciona. Alguém me poderia dizer qual foi o meu erro?

Module Module1
Sub Main()
	Dim n, n1, ni As Integer
	Dim contador As Long
	Console.WriteLine("Este programa calcula a soma de todos os números entre dois número dados")
	Console.WriteLine()
	Console.WriteLine("Insira o primeiro número - o menor deles:")
	n = Console.ReadLine
	Console.WriteLine("Insira o segundo número - o maior deles:")
	n1 = Console.ReadLine
	ni = n
	While n <= n1
		n = n + 1
		contador = ni + n
	End While
	Console.WriteLine("A soma de todos os números entre os dois inseridos é " & contador)
	Console.ReadKey()
End Sub
End Module

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
rodrigolima    1
rodrigolima

Boa tarde tiagopedro

Segue abaixo seu código.Está modificado e comentado.Espero que ajude.

Grande Abraço do Brasil.

Dim n, n1, ni As Integer
 Dim contador As Long
 Console.WriteLine("Este programa calcula a soma de todos os números entre dois número dados")
 Console.WriteLine()
 Console.WriteLine("Insira o primeiro número - o menor deles:")
 n = Console.ReadLine
 Console.WriteLine("Insira o segundo número - o maior deles:")
 n1 = Console.ReadLine
 ni = n
 While n <= n1
	 'A variavel contador, recebe ela mesma e o primeiro numero(N) e vai
	 ' incrementando até o segundo numero(N1)
	 contador = contador + n
	 n = n + 1 'Incrementa N até N1
 End While
 Console.WriteLine("A soma de todos os números entre os dois inseridos é " & contador)
 Console.ReadKey()

Editado por Rui Carlos

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
manuel antonio    4
manuel antonio

Quando recebemos ajuda, é de bom tom agradecer essa ajuda, pois alguém se esforçou por ajudar.

Essa pessoa ou pessoas, merecem pelo menos um OBRIGADO.

Se assim não for, corres o risco de não receber ajuda em futuros tópicos.

Abraços

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jota_wa    3
jota_wa

Boa tarde tiagopedro

Segue abaixo seu código.Está modificado e comentado.Espero que ajude.

Grande Abraço do Brasil.

Dim n, n1, ni As Integer
 Dim contador As Long
 Console.WriteLine("Este programa calcula a soma de todos os números entre dois número dados")
 Console.WriteLine()
 Console.WriteLine("Insira o primeiro número - o menor deles:")
 n = Console.ReadLine
 Console.WriteLine("Insira o segundo número - o maior deles:")
 n1 = Console.ReadLine
 ni = n
 While n <= n1
	 'A variavel contador, recebe ela mesma e o primeiro numero(N) e vai
	 ' incrementando até o segundo numero(N1)
	 contador = contador + n
	 n = n + 1 'Incrementa N até N1
 End While
 Console.WriteLine("A soma de todos os números entre os dois inseridos é " & contador)
 Console.ReadKey()

Boas

Acho que o ciclo deveria ser um For e não um While visto que se conhece os limites,além de ser desnecessário o incrementar do contador manualmente.

Cumps

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
rodrigolima    1
rodrigolima

Bom dia jota_wa

Você está certo, poderia ser um FOR, ou melhor deveria ser um FOR mesmo.

Eu apenas segui o escopo do tiago_pedro e acabei me esquecendo deste detalhe do laço de repetição FOR.

Boa observação.

Grande Abraço

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.