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...
Cita de: DonWily en 2 Enero 2010, 02:43 AM
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
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
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
Simon, de está linea no me acordaba.
Cita de: seba123neo en 2 Enero 2010, 04:16 AM
Array.Sort(vNotas)
Tambien se puede mejarar usando la colección
ArrayList
mmm Creo que esta prohibido hacerle la tarea a los usuarios :¬¬ :¬¬ y lo especifico claramente que era una tarea
Cita de: R.N.A. en 2 Enero 2010, 12:57 PM
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!!! :laugh: :laugh:
jaja... pero...no especifico en que ambito quiere su "tarea" ya que menciona mucho "web" supongo que lo querra en asp.net :P 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 :xD
Cita de: raul338 en 2 Enero 2010, 15:58 PM(cuando vieron un inputbox en asp... )
Claro con javascript... ¬¬
Cita de: Shell Root en 2 Enero 2010, 23:09 PM
Cita de: raul338 en 2 Enero 2010, 15:58 PM(cuando vieron un inputbox en asp... )
Claro con javascript... ¬¬
pero eso es javascript, no .net :P (claro, se puede lograr con ajax, pero ..... ya no seria .net solo :P)
Pensando bien, si se puede desde Aspx.Net :P Solo que hay un problema al momento de ejecutarlo en IIS. Pero corre bien, en el Servidor Local de VS... :P
Dim alex As String
alex = InputBox("Hola")