Necesito ayuda urgente T_T!

[DonWily]

Hola a todos, weno soy algo nuevo por aqui y pues necesito una ayuda con una tarea del instituto, pues la verdad yo no soy muy weno en esto de programacion  , pero si en diseño web en fin. aki mi problema.

Me pidieron que elaborara un programa que lea 4 notas de practica de un alumno y calcule el promedio tomando en cuenta solo las tres notas mas altas. Finalmente mostrará un mensaje "Aprobado" si su promedio es mayor o igual a 11 y "Desaprobado en caso contrario".

Solo con estos metodos If, ElseIf, And, Or.

PD: Me dedico a diseñar webs estoy dispuesto a devolverles el favor pero xfavor ayudenme...

[[L]ord [R]NA]

Hola a todos, weno soy algo nuevo por aqui y pues necesito una ayuda con una tarea del instituto, pues la verdad yo no soy muy weno en esto de programacion  , pero si en diseño web en fin. aki mi problema.

Me pidieron que elaborara un programa que lea 4 notas de practica de un alumno y calcule el promedio tomando en cuenta solo las tres notas mas altas. Finalmente mostrará un mensaje "Aprobado" si su promedio es mayor o igual a 11 y "Desaprobado en caso contrario".

Solo con estos metodos If, ElseIf, And, Or.

PD: Me dedico a diseñar webs estoy dispuesto a devolverles el favor pero xfavor ayudenme...

mmm es un poco largo pero solo es deduccion...

compara el primer numero con el segundo, si el primero es mas grande que el segundo entonces comparas el segundo con el tercero, y asi sucesivamente. Comparando siempre el numero mas pequeño de los dos con el siguiente. se puede hacer completamente solo usando If y ElseIf. No te puedo ayudar mas de ahi.

PsData: No pidas codigos que nadie te dara uno

[Shell Root]

Código (VB) [Seleccionar] Expandir


   Dim VecNotas(4) As Integer
   Dim Sum As Integer

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       For i As Integer = 0 To 3
           VecNotas(i) = InputBox("Ingrese la Nota N:" & i)
       Next

       Ordenar()

       For i As Integer = 0 To 2
           Sum = Sum + VecNotas(i)
       Next

       If Sum >= 11 Then
           MsgBox("Aprovado con: " & Sum)
       ElseIf Sum < 11 Then
           MsgBox("Desaprobado en caso contrario xD con: " & Sum)
       End If
   End Sub

   Private Sub Ordenar()
       Dim m, i, j As Integer

       For i = 0 To 3
           For j = i + 1 To 3
               If VecNotas(i) < VecNotas(j) Then
                   m = VecNotas(i)
                   VecNotas(i) = VecNotas(j)
                   VecNotas(j) = m
               End If
           Next
       Next
   End Sub


[seba123neo]

Código (vbnet) [Seleccionar] Expandir

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim vNotas(3) As Integer
        Dim vSuma As Integer

        For i As Integer = 0 To 3
            vNotas(i) = InputBox("Nota " & i + 1 & ":")
        Next

        Array.Sort(vNotas)

        For i As Integer = 3 To 1 Step -1
            vSuma = vSuma + vNotas.GetValue(i)
        Next

        If vSuma >= 11 Then
            MsgBox("Aprobado, Promedio:" & vSuma)
        Else
            MsgBox("No Aprobado, Promedio:" & vSuma)
        End If
    End Sub
End Class

[Shell Root]

Simon, de está linea no me acordaba.

Código (vbnet) [Seleccionar] Expandir

        Array.Sort(vNotas)

Tambien se puede mejarar usando la colección ArrayList

[[L]ord [R]NA]

mmm Creo que esta prohibido hacerle la tarea a los usuarios y lo especifico claramente que era una tarea

[raul338]

mmm Creo que esta prohibido hacerle la tarea a los usuarios y lo especifico claramente que era una tarea

es verdad, en ese caso, AYUDENME!!!

jaja... pero...no especifico en que ambito quiere su "tarea" ya que menciona mucho "web" supongo que lo querra en asp.net   si es asi el se tiene que encargar de pasarlo (cuando vieron un inputbox en asp o consola   )
Pero tambien puede que trabaje en consola, si es windows forms, bueno, lo tendra q arreglar para que se vea bien, un formulario vacio que te tire 4 inputbox y nada mas no se ve tan lindo

[Shell Root]

(cuando vieron un inputbox en asp... )

Claro con javascript... ¬¬

[raul338]

(cuando vieron un inputbox en asp... )

Claro con ‭‬javascript... ¬¬

pero eso es javascript, no .net (claro, se puede lograr con ajax, pero ..... ya no seria .net solo )

[Shell Root]

Pensando bien, si se puede desde Aspx.Net Solo que hay un problema al momento de ejecutarlo en IIS. Pero corre bien, en el Servidor Local de VS...

Código (vbnet) [Seleccionar] Expandir

   Dim alex As String
   alex = InputBox("Hola")