Comunidad Gambas-es

Versión completa: Bucle Do While
Actualmente estas viendo una versión simplificada de nuestro contenido. Ver la versión completa con el formato correcto.
Páginas: 1 2
Buenas!.

Estoy realizando un ejercicio con JavaScript en el que se hace uso de este bucle.
Aunque Gambas carece de el, se puede emular con Do Loop Until

El problema que me encontraba es el planteamiento del ejercicio que puede llevar a confusión.
Por ejemplo, dice el enumciado.
Cita:Para solicitar el nombre: repite la petición y no continúa si se introduce un número.

Es que eso de no continua si se introduce un número me quede a cuadros.

En JavaScript es algo como esto:

Javascript
  1. <script>            
  2.            var nombre;
  3.             do {
  4.                 // La segunda cadena se mostrará dentro de la casilla donde se introduce los datos
  5.                 nombre = prompt('Ingrese su nombre','Escribir aquí su nombre');
  6.             } while(!isNaN(nombre));
  7. </script>



La instrucción isNaN, ¿ es número ?. Como está negada se cumpliría la condición cuando no lo sea, una cadena por ejemplo
De ahí al enunciado. Suena raro.

En Gambas es algo como esto:

GAMBAS
  1. Public Sub Ejemplo5()
  2.  
  3.   Dim nombre As Variant
  4.  
  5.   Do
  6.     Print ("Ingrese su nombre")
  7.     Input nombre
  8.     'Cuando es un número. La función da True y not la invierte haciendola False
  9.     'Cuando es un caracter o cadena de caracteres. La función da False y not la invierte haciendola True.
  10.   Loop Until Not IsNumber(nombre) 'Cuando es True Termina el bucle
  11.  



La idea es hacerlo con este tipo de bucle. Aprender a usar el bucle.

Otros ejemplos:

En este caso no se cumple
GAMBAS
  1. Public Sub EjemploBucle2()
  2.  
  3.   Dim x As Integer = 4
  4.  
  5.   Do
  6.     Print "x vale " & x
  7.     x += 1
  8.   Loop Until Not (x <= 10)
  9.  



En este si, con ayuda del NOT.

GAMBAS
  1. Public Sub EjemploBucle2()
  2.  
  3.   Dim x As Integer = 4
  4.  
  5.   Do
  6.     Print "x vale " & x
  7.     x += 1
  8.   Loop Until Not (x <= 10)
  9.  



Os propongo un ejercicio. ¿ Es posible en el "Until" sin un if (claro) hacer la comprobación de esta condición que incluyo en el cuerpo del bucle ?.

GAMBAS
  1. Public Sub EjemploBucle3()
  2.  
  3.   Dim edad As Variant
  4.   Dim condicion As Boolean
  5.  
  6.   Do
  7.     Print ("Ingrese su edad")
  8.     Input edad
  9.     'Debe ser un número y encontrarse entre 1 y 105 años
  10.     If IsNumber(edad) And If (CInt(edad) >= 1 And CInt(edad) < 105) Then
  11.       condicion = True
  12.     Else
  13.       condicion = False
  14.     Endif
  15.  
  16.   Loop Until condicion
  17.  



Creo que no. El problema es que Cint va a intentar convertir una cadena de letras, que eso no es posible.

Saludos
(25-10-2021, 20:31)Shell escribió: [ -> ]La instrucción isNaN, ¿ es número ?

Gambas tiene una función nativa correspondiente: IsNan( )

(25-10-2021, 20:31)Shell escribió: [ -> ]En este caso no se cumple
.......
.......
En este si, con ayuda del NOT.

Me parece que los códigos sean parecidos.  Undecided

(25-10-2021, 20:31)Shell escribió: [ -> ]¿ Es posible en el "Until" sin un if (claro) hacer la comprobación de esta condición que incluyo en el cuerpo del bucle ?.
......
......
Creo que no.
Porqué Confused no ?

Además, con "Until" se sale del bucle, cuando la condición se vuelve real.

Para tu codigo se necesitan dos bucles:
GAMBAS
  1.  
  2.     Repeat
  3.       Print ("Ingrese su edad")
  4.       Input edad
  5. ' Debe ser un número:
  6.     Until IsNumber(edad)
  7. ' Debe encontrarse entre 1 y 105 años:
  8.   Until (Val(edad) > 0) And (Val(edad) < 106)


(25-10-2021, 23:23)vuott escribió: [ -> ]Gambas tiene una función nativa correspondiente: IsNan( )

Parece exclusiva para números en coma flotante o reales.

En el ejemplo interesa saber si es un número o es una cadena. En vez de Variant podía haber usado el tipo String,
ya que IsNumber() espera un tipo String.  Usé Variant por la diversidad de tipos que soporta
 
(25-10-2021, 23:23)vuott escribió: [ -> ]Me parece que los códigos sean parecidos.

Los puse iguales. Que despiste. Como es solo cuestión de cambiar una línea. Angel

La condición se cumple sin Not, se sale del bucle y con Not, x se va incrementando hasta ser cierta

GAMBAS
  1. Public Sub EjemploBucle2()
  2.  
  3.   Dim x As Integer = 4
  4.  
  5.   Do
  6.     Print "x vale " & x
  7.     x += 1
  8.   Loop Until (x <= 10)
  9.  



( No encontré la forma de responder al mensaje una vez se queda abajo )
Cita:Porqué Confused no ?

Además, con "Until" se sale del bucle, cuando la condición se vuelve real.

Esa es la condición. En muchos de los ejemplos que hice no he necesitado compronbar condiciones al final, he usado en su día Repeat pero no lo suficiente.
Cuando te acostumbras a usar unos bucles, olvidas otros ya que si son suficiente no necesitas más.

Ejemplo. Python tiene dos bucles, for (un for especial ) y while, no necesita más. En cambio otros lenguajes tienen mucho más
Ya sabes que siempre he dicho que Java, JavaScript me recuerdan a "C" en muchas cosas. Condicionales, bucles.

Malditas llaves, ejem, cof cof. Sleepy
Probablemente el desarrollador principal de "C" fue "sereno" antes de llegar a ser desarrollador.
 
Cita:Para tu código se necesitan dos bucles:

Eso es complicarlo un poco, pero lo has resuelto. Wink
Parece que no hay forma de usar la condición completa en un solo until.

Saludos
(26-10-2021, 12:00)Shell escribió: [ -> ]Eso es complicarlo un poco

¡No me digas!  Big Grin

(26-10-2021, 12:00)Shell escribió: [ -> ]Parece que no hay forma de usar la condición completa en un solo until.

...ya que la primera evaluación es si el valor, contenido en la variable "edad", es un carácter ASCII que representa un número imprimible.
Esta es mi contribución a este debate: -

GAMBAS
  1. Public Sub EjemploBucle3()
  2.  
  3.   Dim sEdad As String
  4.  
  5.   Do
  6.     Print ("Ingrese su edad")
  7.     Input sEdad
  8.     If IsNumber(sEdad) And If Val(sEdad) > 0 And Val(sEdad) < 105 Then Exit
  9.   Loop
  10.  


(26-10-2021, 17:45)cogier escribió: [ -> ]Esta es mi contribución a este debate: -

Gracias Cogier.

Esa forma de hacerlo es similar a como la hice al principio. Solo que no asignas el resultado a condición.

GAMBAS
  1.  If IsNumber(edad) And If (CInt(edad) >= 1 And CInt(edad) < 106) Then
  2.       condicion = True
  3.     Else
  4.       condicion = False
  5.     Endif



Psss..dicen que salir bruscamente de un bucle a veces no está bien visto. Oh. Tongue
Aunque en algunos lenguajes no se puede hacer de otra forma, como la instrucción "switch" de JavaScript que a cada opción usan un break.

Que seguramente "switch" también se usa en "C"...que casualidad, ¿ verdad Vuott ?.  Rolleyes
(26-10-2021, 14:47)vuott escribió: [ -> ]¡No me digas! 

Rolleyes  
"Inflatius", ¿ qué es un desafío para un programador "con" altura ?.  Cool
(26-10-2021, 20:14)Shell escribió: [ -> ]"switch" también se usa en "C".

"switch" en C = "Select Case" en Gambas.

(26-10-2021, 20:14)Shell escribió: [ -> ]qué es un desafío para un programador "con" altura ?

Big Grin
(26-10-2021, 12:00)Shell escribió: [ -> ]Eso es complicarlo un poco

De todas formas, usando dos bucles, no es un escándalo. Shy
(27-10-2021, 02:42)vuott escribió: [ -> ]De todas formas, usando dos bucles, no es un escándalo

Ten en cuenta que es una pregunta de test de curso. Lo que hago es implementar la idea para poder hacerlo en Gambas.
Por comodidad siempre vamos a intentar hacerlo lo más parecido a lo que vemos para no complicarnos mientras se pueda.

Si  la idea original es hacerlo con un bucle, hacerlo con dos nos desviaríamos "un poco" del código original.
Y en caso de desviarse, las alternativas pueden ser muchas.

Llevar una idea para obtener un resultado es algo distinto a obligarse a hacerlo de un forma si o si, cuando tu sabes que:
"Omnes viae Romam ducunt". Wink

Saludos
(27-10-2021, 13:44)Shell escribió: [ -> ]"Omnes viae Romam ducunt"

Ah... las "Viae"... sì, Consul, la real fuerza de vuestro imperio:

[Imagen: strade_romane1.png?height=352&width=480]
Páginas: 1 2