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


 


Tema destacado: Únete al Grupo Steam elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [RETO-EJERCICIO] Perl
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [RETO-EJERCICIO] Perl  (Leído 1,185 veces)
fary
Colaborador
***
Desconectado Desconectado

Mensajes: 957



Ver Perfil WWW
[RETO-EJERCICIO] Perl
« en: 11 Enero 2014, 10:39 »

El objetivo es sumar las filas y las columnas de una matriz (5x5) que será introducida por el usuario, ej.

Código:
   Introduzca fila 1: 2 5 3 4 5
    Introduzca fila 2: 2 6 8 4 5
    Introduzca fila 3: 9 8 3 5 2
    Introduzca fila 4: 5 3 8 5 6
    Introduzca fila 5: 0 1 4 3 4
    Totales filas    : 19 25 27 27 12
    Totales columnas : 18 23 26 21 22

Veamos quien lo resuelve de mejor manera  ;D


En línea

Un byte a la izquierda.
engel lex
CoAdmin
***
Desconectado Desconectado

Mensajes: 15.347



Ver Perfil
Re: [RETO-EJERCICIO] Perl
« Respuesta #1 en: 11 Enero 2014, 10:57 »

resuelvelo tu primero por la via larga :P

no desconfío, solo quiero ver que lo sabes hacer, ya que no parece reto sino tarea XD


En línea

El problema con la sociedad actualmente radica en que todos creen que tienen el derecho de tener una opinión, y que esa opinión sea validada por todos, cuando lo correcto es que todos tengan derecho a una opinión, siempre y cuando esa opinión pueda ser ignorada, cuestionada, e incluso ser sujeta a burla, particularmente cuando no tiene sentido alguno.
fary
Colaborador
***
Desconectado Desconectado

Mensajes: 957



Ver Perfil WWW
Re: [RETO-EJERCICIO] Perl
« Respuesta #2 en: 11 Enero 2014, 12:22 »

resuelvelo tu primero por la via larga :P

no desconfío, solo quiero ver que lo sabes hacer, ya que no parece reto sino tarea XD

Bueno, si te empeñas, esta sería mi solución asi de primeras:

Código
  1. #!/usr/bin/perl
  2.  
  3. use v5.16;
  4.  
  5. my @datos;
  6. my $i = 0;
  7. my $a;
  8.  
  9. while ($i<5)
  10. {
  11. print "Introduzca fila " . ($i+1) . ":";
  12.  
  13. my @temp = split(" ",<STDIN>);
  14.  
  15. for $a (0..4)
  16. {
  17. $datos[$i][$a] = $temp[$a];
  18. }
  19.  
  20. $i++;
  21. }
  22.  
  23. my (@fila,@columna);
  24. my ($tmpfila,$tmpco);
  25.  
  26. for $i (0..4)
  27. {
  28.    for $a (0..4)
  29.    {
  30.        $tmpfila += $datos[$i][$a];  
  31.        $tmpco += $datos[$a] [$i];
  32.    }
  33.    push (@fila,$tmpfila, " ");
  34.    push (@columna,$tmpco, " ");
  35.  
  36.    $tmpco = $tmpfila = 0;
  37. }
  38.  
  39. say "Totales filas: @fila";
  40. say "Totales columnas; @columna";
« Última modificación: 11 Enero 2014, 12:28 por mDrinky » En línea

Un byte a la izquierda.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[Ejercicio] Aca tienen un ejercicio para practicar « 1 2 3 »
Programación Visual Basic
Dreamaker 20 11,987 Último mensaje 5 Septiembre 2010, 02:57
por TGa.
Libros de Perl online [PERL]
Scripting
madpitbull_99 0 2,693 Último mensaje 18 Mayo 2011, 21:49
por madpitbull_99
[Perl] Creacion de un Joiner en Perl
Scripting
BigBear 0 1,768 Último mensaje 15 Marzo 2013, 16:12
por BigBear
Reto algoritmo mezcla cifras y letras (RETO REMUNERADO)
Desafíos - Wargames
kingMezlo 3 3,018 Último mensaje 31 Diciembre 2013, 19:47
por #Aitor
[RETO-EJERCICIO] Perl: Obtener valor de digitos
Scripting
fary 1 1,044 Último mensaje 21 Enero 2014, 17:48
por fary
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines