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?
-
- Publicidad
Hacer suma hasta encontrar token
3 mensajes
• Página 1 de 1
Hacer suma hasta encontrar token
por CrisPerl » 2018-02-04 03:36 @191
- CrisPerl
- Perlero nuevo
- Mensajes: 7
- Registrado: 2018-02-04 01:31 @105
Publicidad
Re: Hacer suma hasta encontrar token
por explorer » 2018-02-04 08:55 @413
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:
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.
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:
Using perl Syntax Highlighting
- my $numeros = <INPUT>; # leer una línea del teclado
- chomp $numeros; # quitamos los caracteres de fin de línea
- my @numeros = split /[,]/, $numeros; # dividimos el texto por las comas y guardamos los elementos.
Coloreado en 0.002 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.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Hacer suma hasta encontrar token
por CrisPerl » 2018-02-04 20:02 @877
¡¡¡muchas gracias, explorer!!!
Cris
Cris
- CrisPerl
- Perlero nuevo
- Mensajes: 7
- Registrado: 2018-02-04 01:31 @105
3 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 16 invitados