elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el ttwitter! de elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Necesito ayuda urgente T_T!
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Necesito ayuda urgente T_T!  (Leído 3,488 veces)
DonWily

Desconectado Desconectado

Mensajes: 1


Ver Perfil
Necesito ayuda urgente T_T!
« 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...


En línea

[L]ord [R]NA


Desconectado Desconectado

Mensajes: 1.513

El Dictador y Verdugo de H-Sec


Ver Perfil WWW
Re: Necesito ayuda urgente T_T!
« Respuesta #1 en: 2 Enero 2010, 03:36 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


En línea

Shell Root
Moderador Global
***
Desconectado Desconectado

Mensajes: 3.720


$M


Ver Perfil WWW
Re: Necesito ayuda urgente T_T!
« Respuesta #2 en: 2 Enero 2010, 03:52 am »

Código
  1.    Dim VecNotas(4) As Integer
  2.    Dim Sum As Integer
  3.  
  4.    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  5.        For i As Integer = 0 To 3
  6.            VecNotas(i) = InputBox("Ingrese la Nota N:" & i)
  7.        Next
  8.  
  9.        Ordenar()
  10.  
  11.        For i As Integer = 0 To 2
  12.            Sum = Sum + VecNotas(i)
  13.        Next
  14.  
  15.        If Sum >= 11 Then
  16.            MsgBox("Aprovado con: " & Sum)
  17.        ElseIf Sum < 11 Then
  18.            MsgBox("Desaprobado en caso contrario xD con: " & Sum)
  19.        End If
  20.    End Sub
  21.  
  22.    Private Sub Ordenar()
  23.        Dim m, i, j As Integer
  24.  
  25.        For i = 0 To 3
  26.            For j = i + 1 To 3
  27.                If VecNotas(i) < VecNotas(j) Then
  28.                    m = VecNotas(i)
  29.                    VecNotas(i) = VecNotas(j)
  30.                    VecNotas(j) = m
  31.                End If
  32.            Next
  33.        Next
  34.    End Sub
  35.  
« Última modificación: 2 Enero 2010, 03:55 am por Shell Root » En línea

Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
seba123neo


Desconectado Desconectado

Mensajes: 3.621


"No quiero creer, quiero saber" - Carl Sagan


Ver Perfil WWW
Re: Necesito ayuda urgente T_T!
« Respuesta #3 en: 2 Enero 2010, 04:16 am »

Código
  1. Public Class Form1
  2.    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  3.        Dim vNotas(3) As Integer
  4.        Dim vSuma As Integer
  5.  
  6.        For i As Integer = 0 To 3
  7.            vNotas(i) = InputBox("Nota " & i + 1 & ":")
  8.        Next
  9.  
  10.        Array.Sort(vNotas)
  11.  
  12.        For i As Integer = 3 To 1 Step -1
  13.            vSuma = vSuma + vNotas.GetValue(i)
  14.        Next
  15.  
  16.        If vSuma >= 11 Then
  17.            MsgBox("Aprobado, Promedio:" & vSuma)
  18.        Else
  19.            MsgBox("No Aprobado, Promedio:" & vSuma)
  20.        End If
  21.    End Sub
  22. End Class
En línea

La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson
Shell Root
Moderador Global
***
Desconectado Desconectado

Mensajes: 3.720


$M


Ver Perfil WWW
Re: Necesito ayuda urgente T_T!
« Respuesta #4 en: 2 Enero 2010, 04:20 am »

Simon, de está linea no me acordaba.
Código
  1.        Array.Sort(vNotas)

Tambien se puede mejarar usando la colección ArrayList
En línea

Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
[L]ord [R]NA


Desconectado Desconectado

Mensajes: 1.513

El Dictador y Verdugo de H-Sec


Ver Perfil WWW
Re: Necesito ayuda urgente T_T!
« Respuesta #5 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
En línea

raul338


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Necesito ayuda urgente T_T!
« Respuesta #6 en: 2 Enero 2010, 15:58 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
En línea

Shell Root
Moderador Global
***
Desconectado Desconectado

Mensajes: 3.720


$M


Ver Perfil WWW
Re: Necesito ayuda urgente T_T!
« Respuesta #7 en: 2 Enero 2010, 23:09 pm »

(cuando vieron un inputbox en asp... )

Claro con javascript... ¬¬
En línea

Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
raul338


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Necesito ayuda urgente T_T!
« Respuesta #8 en: 2 Enero 2010, 23:50 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)
En línea

Shell Root
Moderador Global
***
Desconectado Desconectado

Mensajes: 3.720


$M


Ver Perfil WWW
Re: Necesito ayuda urgente T_T!
« Respuesta #9 en: 3 Enero 2010, 00:01 am »

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

Código
  1.   Dim alex As String
  2.   alex = InputBox("Hola")
En línea

Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Problema con inicio PC? necesito ayuda urgente
Hardware
Cabas 9 1,196 Último mensaje 10 Enero 2021, 18:02 pm
por Machacador
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines