Algoritmia - que porfavor me podrian ayudar con un algoritmo de urgente

 
Vista:

que porfavor me podrian ayudar con un algoritmo de urgente

Publicado por Azucena (1 intervención) el 06/06/2014 18:05:50
necesito que me ayuden con un algoritmo de urgente antes de las 3

dice así
realizar un algo timo para que sume los números impares entre 15 al 25
y al final debe imprimir la suma de los números impares

favor ayuden
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 28
Ha aumentado 1 puesto en Algoritmia (en relación al último mes)
Gráfica de Algoritmia

que porfavor me podrian ayudar con un algoritmo de urgente

Publicado por Horroroso (32 intervenciones) el 25/11/2014 15:43:23
Pseudocodigo:
Para cada valor entre 15 y 25
si el valor es impar agregarlo a la sumatoria

Imprimir la sumatoria.

Si lo necesitas en algun Lenguaje en especifico por favor avisalo, pero antes de las 3.

por lo pronto te lo paso en Visual Basic (uno de los lenguajes de programacion mas sencillos)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Module MainModule
    Sub Main()
        RunProgram()
    End Sub
    Public Sub RunProgram()
 
        Dim Valores As New Generic.List(Of Valor)
        Dim Sumatoria As Integer = 0
        Dim ValorInicial As Integer = 15
        Dim ValorFinal As Integer = 25
        Dim Incremento As Integer = 1
 
        For i As Integer = ValorInicial To ValorFinal Step Incremento
            Valores.Add(New Valor(i))
        Next
 
        For Each Valor As Valor In Valores
            If Valor.EsPar Then
                Sumatoria += Valor.Valor
            End If
        Next
 
        Console.WriteLine(Sumatoria)
    End Sub
    Public Structure Valor
        Public Sub New(ByVal Valor As Integer)
            Me.Valor = Valor
        End Sub
 
        Private _Valor As Integer
        Public Property Valor() As Integer
            Get
                Return _Valor
            End Get
            Set(ByVal value As Integer)
                _EsPar = value Mod 2 = 0
                _Valor = value
            End Set
        End Property
 
        Private _EsPar As Boolean
        Public ReadOnly Property EsPar() As Boolean
            Get
                Return _EsPar
            End Get
        End Property
 
    End Structure
End Module
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar