C + +
1
abierto de C + + archivo de programa. Inserte el cursor en la parte superior del archivo
2 Tipo
el siguiente código: .
# Include # include using namespace std ; Estas líneas incluyen los archivos de cabecera necesarios y establecer el espacio de nombres para utilizar Insertar el cursor donde desee comprobar. por palíndromos . Escriba el siguiente código: serie de palabras ; bool palíndromo ; cout << "Introduzca una cadena: " ; cin > > palabra ; La primera línea crea una variable de cadena . El segundo crea una variable booleana que contiene el valor de si la cadena es un palíndromo o no. La tercera línea indica al usuario que escriba en una cadena y el cuarto lo guarda en la variable de cadena Escriba el siguiente código: for (int x = 0 ; x . < word.length () -1 , x + + ) { if (! palabra [ x ] = "" ) { if ( tolower ( palabra [ x ] ) = tolower (! palabra [ word.length () - ( x +1 ) ])) { palíndromo = false; break; } else { palíndromo = true ;} } } el bucle se inicia el control de la cadena. La primera sentencia if comprueba para ver si el carácter es un espacio. Si es así , de omitirlo . La siguiente sentencia if convierte la cadena a minúsculas y la compara con la cadena inversa , carácter por carácter. Si alguno de los caracteres no coinciden , la función se rompe porque la cadena no es un palíndromo . De lo contrario , es un palíndromo y la variable booleana es true Escriba el siguiente código: . If ( palíndromo ) cout << " La cadena es una palíndromo " ; else cout <<" la cadena no es un palíndromo " ; Estas líneas comprobar la variable palíndromo y si bien es cierto , se informa al usuario de la cadena es un palíndromo . Si no, se le indica al usuario que no es. Abra un nuevo programa de Visual Basic . Haga doble clic en los controles Label, TextBox y Button para agregar uno de cada uno para el formulario. Colóquelos como le gustaría . doble clic en el control " Button1 " para abrir el subprograma " Button1_Click " . Escriba el siguiente código: Dim adelante As String = UCase ( TextBox1.Text ) adelante = Replace (adelante , "", "") atrás Dim As String = StrReverse (forward ) La primera línea crea una variable de cadena . Se pone el mensaje de que el usuario escribe en el cuadro de texto y convierte los caracteres a mayúsculas . La segunda línea elimina todos los espacios de la cadena. La tercera línea hace una copia de la cadena original , pero invierte los caracteres Escriba el siguiente código: . Si delante = hacia atrás Entonces Label1 . Texto = "La cadena es un palíndromo . " demás Label1.Text = " La cadena no es un palíndromo . " End If La sentencia if comprueba para ver si las dos cadenas son iguales . Si es así, la cadena original que el usuario escribió es un palíndromo . Si no son iguales, la cadena no es un palíndromo . Abrir un archivo HTML. Inserte el cursor donde desea buscar palíndromos Escriba el siguiente código: .
3
4
5
Visual Basic
6
7
8
PHP
9
10