Autor
|
Tema: Necesito ayuda urgente T_T! (Leído 4,893 veces)
|
DonWily
Desconectado
Mensajes: 1
|
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...
|
|
|
En línea
|
|
|
|
[L]ord [R]NA
Desconectado
Mensajes: 1.513
El Dictador y Verdugo de H-Sec
|
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
|
|
|
En línea
|
|
|
|
Shell Root
|
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
|
|
« Última modificación: 2 Enero 2010, 03:55 am por Shell Root »
|
En línea
|
Te vendería mi talento por poder dormir tranquilo.
|
|
|
seba123neo
|
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
|
|
|
En línea
|
|
|
|
Shell Root
|
Simon, de está linea no me acordaba. Tambien se puede mejarar usando la colección ArrayList
|
|
|
En línea
|
Te vendería mi talento por poder dormir tranquilo.
|
|
|
[L]ord [R]NA
Desconectado
Mensajes: 1.513
El Dictador y Verdugo de H-Sec
|
mmm Creo que esta prohibido hacerle la tarea a los usuarios y lo especifico claramente que era una tarea
|
|
|
En línea
|
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
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
|
|
|
En línea
|
|
|
|
Shell Root
|
(cuando vieron un inputbox en asp... ) Claro con javascript... ¬¬
|
|
|
En línea
|
Te vendería mi talento por poder dormir tranquilo.
|
|
|
raul338
Desconectado
Mensajes: 2.633
La sonrisa es la mejor forma de afrontar las cosas
|
(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 )
|
|
|
En línea
|
|
|
|
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... Dim alex As String alex = InputBox("Hola")
|
|
|
En línea
|
Te vendería mi talento por poder dormir tranquilo.
|
|
|
|
|