Ejercicios: Estructuras repetitivas

Problema: Escriba un programa para que sume los primeros numeros impares hasta un numero leido por teclado

Solucion: Para realizar este programa se debe inicializar una variable impar en 1 e incrementar su valor de 2 en 2 en cada repeticion de esta manera se generan los numeors impares. En cada repeticion su valor sera igual o menor  al numero "n" leido por teclado, ademas debe ser añadido una variable suma la cual debe ser inicializa en cero desde el principio.

01 Module Module1
02 
03     Sub Main()
04         ' declaracion de variables
05         Dim suma As Integer
06         Dim num As Integer
07         Dim impar As Integer
08         ' se inicializan variables
09         impar = 1
10         suma = 0
11         ' se solicita un numero positivo
12         Console.WriteLine("Introduzca un entero positivo")
13         num = Val(Console.ReadLine)
14         ' comienza el ciclo
15         Do While impar <= num
16             suma = suma + impar
17             impar = impar + 2
18         Loop
19         'se escribe el resultado
20         Console.WriteLine("La suma de los numeros impares es: " & suma)
21         Console.Read()
22     End Sub
23 
24 End Module

Resultado

Posted in: Ejercicios,Estructuras Repetitivas,Visual Basic