Página 1 de 1

Hacer suma hasta encontrar token

NotaPublicado: 2018-02-04 03:36 @191
por CrisPerl
Tengo este programa para hacer:

«Escribe un programa que pregunte por una lista de números hasta que la entrada sea "999". Y después imprime la suma de todos los números, menos el "999". Por ejemplo, si el usuario entra 1, 2, 5, y 999, la respuesta es 8 (1+2+5)».

Pero no sé cómo capturar los números ingresados y sumarlos.

Por favor, ¿alguien podría ayudarme?

Re: Hacer suma hasta encontrar token

NotaPublicado: 2018-02-04 08:55 @413
por explorer
Bienvenido a los foros de Perl en Español, CrisPerl.

Para leer los números, por el teclado, suponemos que el usuario los va a escribir en una sola línea y separados con comas.

Con esta línea los puedes leer:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. my $numeros = <INPUT>;          # leer una línea del teclado
  2.  
  3. chomp $numeros;                 # quitamos los caracteres de fin de línea
  4.  
  5. my @numeros = split /[,]/, $numeros;    # dividimos el texto por las comas y guardamos los elementos.
Coloreado en 0.006 segundos, usando GeSHi 1.0.8.4


Finalmente, queda por hacer la suma. Tienes que hacer un bucle por @numeros y sumas el elemento a una variable escalar, que irá guardando el total, pero antes debes comprobar si el elemento es 999. En ese caso ejecutas un "last" para que el bucle termine.

Re: Hacer suma hasta encontrar token

NotaPublicado: 2018-02-04 20:02 @877
por CrisPerl
¡¡¡muchas gracias, explorer!!!

Cris