Visual Basic para Aplicaciones - URGENTE! ayuda para practicas capicua

Life is soft - evento anual de software empresarial
   
Vista:

URGENTE! ayuda para practicas capicua

Publicado por calipo (1 intervención) el 27/11/2008 13:33:41
necesitamos unos algoritmos que:
-creen una función que pasado un numero como argumento nos determine si es capicúa.
(que se lee igual por la derecha que por la izquierda)
-listar todos los numeros capicua que hay entre dos números enteros a y b introducidos por el usuario.
-listar todos los números capicuas impares que hay entre dos números enteros a y b introducidos por el usuario
-listar todos los números capicúas primos que hay entre dos números enteros a y b introducidos por el usuario
-listar todos los numeros capicúas cuadrados perfectos que hay entre dos números enteros a y b introducidos por el usuario
-un numero triplemente capicua primo es aquel que ademas de ser capicúa primo tiene un número de dígitos que a su vez es capicúa primo. listar todos los números triplemente capicúas primos que hay entre dos números enteros a y b introducidos por el usuario.
-crear una función que devuelva la suma de dos números de hasta 1000dígitos. los argumentos y la respuesta serán cadenas de texto y las operaciones deberán hacerse sobre un vector de enteros.
-crear una función que pasado un número como argumento, determine si puede ser un número de Lychrel (son aquellos que no forman un número capicua por inversion y suma de sus dígitos. por ejemplo el numero 7326(que no es un número de Lychrel), si se invierten sus dígitos y se suman al número original: 6237+7326=13563. como este número no es capicúa se continúa el proceso de inversión y suma de sus dígitos hasta hallar un número capicúa. los números de Lychrel son aquellos que nunca llegan a ser capicúas a pesar del número de interacciones que se ejecuten.)
establece como máximo 1000 interacciones o 1000 dígitos.
-listar todos los números potencialmente de Lychrel qye hay entre dos números a y b introducidos por el usuario.

AGRADECERÍAMOS MUCHISIMO SI ALGUIEN PUDIESE RESPONDERNOS A ALGÚN PUNTO DE LOS ANTERIORMENTE EXPLICADOS.PORFAVOR!! ES URGENTE

MUCHAS GRACIAS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic para Aplicaciones
- Código fuente de Visual Basic para Aplicaciones
- Cursos de Visual Basic para Aplicaciones
- Temas de Visual Basic para Aplicaciones
información
Códigos de Visual Basic para Aplicaciones
- Secuencia aleatoria
- Monto Escrito
- Formulario de Access

RE:URGENTE! ayuda para practicas capicua

Publicado por JMC (1 intervención) el 09/12/2008 15:34:46
No se si te valdrá pàra algo, está hecho en 'natural', un poco guarro, pero si entiendes algo de programacion lo mismo te vale, te va a valer para lo del numero de Lychrel, lo hice para resolver http://espejo-ludico.blogspot.com/2008/12/camino-al-capica.html,
si ya es tarde, lo siento, a algún otro le valdrá.
lo asteriscado está comentado.

La idea es que voy a repetir el proceso hasta que el argumento y su espejo (nume y emun) sean iguales, capicuas.

lo que hago es contar cuantos caracteres tiene el argumento, y esos caracteres los voy a ir metiendfo en una tabla leyendolos de atras adelante, (substring es una funcion que me devuelve de la posicion X ,el numero de caracteres que lepido Y , subestring(variable, X, Y) para tenerlos colocados ya del reves, luego con el compress los junto todos los elemento de la tabla en otra variable y si esa variable es igual al argumento ya son capicuas sino los sumo y empiezo de nuevo el proceso, que son capicuas escribo que son capicuas en tantas sumas.

Se que me explico como un libro abierto pero es que no doy mas de si.

Suerte.

0010 DEFINE DATA LOCAL
0020 1 TXX (A100)
0030 1 TX3 (A100)
0040 1 TX2 (N29)
0050 1 TAB (A1/1:200)
0060 1 AUX (N29)
0070 1 NUME (N29) 1 REDEFINE NUME
0080 2 NUMEA (A29)
0090 1 EMUN (N29) 1 REDEFINE EMUN
0100 2 EMUNA (A29)
0110 1 CONT (N29) 1 REDEFINE CONT
0120 2 CONTA (A29)
0130 1 I (N29)
0140 1 J (N29)
0150 1 K (N29) 1 REDEFINE K
0160 2 KA (A29)
0170 1 CERO-IZQ (L)
0180 END-DEFINE
0190 INPUT NUME
0200 * FOR K=10 TO 99
0210 * NUME:= K
0220 K:= NUME
0230 CONT:= 0
0240 REPEAT UNTIL EMUN EQ NUME
0250 * WRITE '=' NUME
0260 EXAMINE NUMEA FOR ' ' GIVING LENGTH TX2
0270 J:=0
0280 CERO-IZQ:= TRUE
0290 FOR I=TX2 TO 1 STEP -1
0300 ADD 1 TO J
0310 IF CERO-IZQ EQ TRUE
0320 IF SUBSTRING(NUMEA,J,1) EQ '0'
0330 MOVE ' ' TO TAB(I)
0340 ELSE
0350 MOVE SUBSTRING(NUMEA,J,1) TO TAB(I)
0360 CERO-IZQ:= FALSE
0370 END-IF
0380 ELSE
0390 MOVE SUBSTRING(NUMEA,J,1) TO TAB(I)
0400 END-IF
0410 END-FOR
0420 COMPRESS TAB(*) INTO EMUNA LEAVING NO
0430 MOVE RIGHT EMUNA TO EMUNA
0440 EXAMINE FULL EMUNA FOR ' '
0450 REPLACE WITH '0'
0460 * WRITE '=' EMUN
0470 IF EMUN NE NUME
0480 ADD 1 TO CONT
0490 NUME:= NUME + EMUN
0500 ELSE
0510 WRITE K 'CAPICUA EN' CONT 'SUMAS'
0520 END-IF
0530 END-REPEAT
0540 * END-FOR
0550 END
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:URGENTE! Necesito ayuda en visual Basic

Publicado por Marlon (1 intervención) el 01/05/2009 03:27:48
Hola necesito ayuda en visual basic 2005, necesito crear un programa que me permita leer el numero de pasaporte, los nombre, y los apellido de una persona, que a la ves puede reservar un asiento en un avion que tiene 2 clases la primera clase con 5 asientos y la segunda con 10 los asientos pueden ser recerbados, confirmado, o cancelados a ecepcion claro que ya esten confirmados no se podran eliminar, tengo que presentar un formulario que presente el estado del avion cada ves que un usuario desee verlo y al final cuando el avion este lleno me muestre un mensaje que diga no hay mas acientos disponibles.

hey si me ayudan muchas gracias...

solo necesito la programacion.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:URGENTE! ayuda para practicas capicua

Publicado por andres (1 intervención) el 27/07/2009 21:53:35
No te puedo responder por que no entendi nada macho
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar