Bienvenido(a), Visitante. Favor de ingresar o registrarse.

Ingresar con nombre de usuario, contraseña y duración de la sesión

Foros del Club

Páginas: [1]   Ir Abajo
  Enviar tema  |  Imprimir  
Autor Tema: Desafio 02 "Para principiantes"  (Leído 774 veces)
0 Usuarios y 1 Visitante están viendo este tema.
JoRgE-1987
Programador
Legend
**********

Prestigio: 7
Desconectado Desconectado

Sexo: Masculino
Título universitario: No.
Profesión: Programador
Mensajes: 633

Geek


WWW
Lenguajes:
Object Pascal
Pascal
HTML
Aprendiendo C++
« en: 17/02/2006, 00:15:57 »

Desarrollar un programa u procedimiento, que en una matriz de "n" elementos enteros, sume todos los casilleros, menos los que correspondan a la diagonal principal, esta es la que empieza desde el margen superior izquierdo, y termina en el ultimo casillero inferior derecho.

Muy muy facil.

Saludos Cheesy:D

PD: Los que ya sepan mas o menos bastante de programacion, no posteen, asi le dan una oportunindad a los que recien empiezan, si no lo llegasen a resolver, si posteen como lo harian ustedes, este no es un desafio, en realidad el desafio esta en pensar la idea mas original para resolverlo, ya que hay infinitas posibilidades para hacerlo.

PD2: No son desafios bajados de internet, ni desafios que yo no haya echo, si pongo algun deasfio, es porque ya lo hice, y porque lo obtube de algun lugar, o lo tube que hacer para alguna materia, por lo tanto, todos los desafios que yo postee, tienen una solucion valida.
En línea


JoRgE-1987
Programador
Legend
**********

Prestigio: 7
Desconectado Desconectado

Sexo: Masculino
Título universitario: No.
Profesión: Programador
Mensajes: 633

Geek


WWW
Lenguajes:
Object Pascal
Pascal
HTML
Aprendiendo C++
« Respuesta #1 en: 12/05/2006, 01:29:08 »

Si a nadie le instera hacerlo, si quieren publico la respuesta, y comparamos ideas.

Saludos Cheesy:D
En línea


Ladri
Savant
*******

Prestigio: 4
Desconectado Desconectado

Sexo: Masculino
Mensajes: 43


Visual Basic 6 y .NET (principiante) / Pascal


« Respuesta #2 en: 12/05/2006, 13:05:56 »

Acá hay una posible solución... aunque lo resolvi en visual basic, que no se si vale...


Código:
  Const N As Integer = 5 'Elementos de la matriz
 
  Dim G(N, N) As Integer
  Dim X, Y, Suma As Integer
 
    ' Llena la matriz con números aleatorios
  Randomize
  For X = 1 To N
    For Y = 1 To N
      G(X, Y) = Rnd * 50
    Next
  Next
 
  ' Recorre la matriz y suma los elementos que no pertenezcan a la diagonal
  For X = 1 To N
    For Y = 1 To N
      If X <> Y Then
        Suma = Suma + G(X, Y)
      End If
    Next
  Next

  MsgBox("La suma es: " & Suma)

En línea
Foros del Club
   

 En línea
Páginas: [1]   Ir Arriba
  Enviar tema  |  Imprimir  
 
Ir a: