Hola, estoy tratando de hacer el siguiente ejercicio y no encuentro la forma de resolverlo. Cabe aclarar que no se puede usar arrays ni nada de eso, solo IF y ciclos de repeticion.

Enunciado:

Un numero N es especial si cada digito que esta en N aparece tantas veces como su propia magnitud. Por ejemplo si  el digito 3 aparece en un numero entonces debera aparecer en exactamente 3 posiciones distintas para que dicho numero sea especial, el 1 debera aparecer solo una vez, el 2 aparecera dos veces, etc. Por ejemplo, los numeros 333, 3313, 4234132434 son numeros especiales.

a) Escriba un programa en Pascal que solicite al usuario un numero entero N y determine si es especial o no. Por ejemplo si el usuario ingresa 33223, debera mostrar "El numero 33223 es especial" y si ingresa 121 debera mostrar "El numero 121 no es especial".


Lo pense y no encuentro la manera de resolverlo,
Espero me puedan ayudar.
Un saludo a todos!

Hola que tal a todos. Quisiera saber que necesito para poder leer el contenido de una tarjeta magnética y poder luego modificarlo.

Espero que me puedan dar una mano.
Un saludo!

Hola gente, gracias por entrar al mensaje. Les paso a comentar mi problema, hace ya unos dias que mi maquina anda lenta, los programas tardan mucho en cargar y muy seguido se cuelga(a veces es por unos minutos y otras veces debo reiniciar). El nod32 cuando hice el analisis completo me marco que no tengo ninguna infeccion pero no estoy tan seguro que sea asi. Les dejo mi log de hijackthis para ver si me pueden decir si tengo algun virus:

Logfile of HijackThis v1.99.1
Scan saved at 0:39:12, on 22/08/2010
Platform: Windows XP SP2 (WinNT 5.01.2600)
MSIE: Internet Explorer v8.00 (8.00.6001.18702)

Running processes:
C:\WINDOWS\System32\smss.exe
C:\WINDOWS\system32\winlogon.exe
C:\WINDOWS\system32\services.exe
C:\WINDOWS\system32\lsass.exe
C:\WINDOWS\system32\svchost.exe
C:\WINDOWS\System32\svchost.exe
C:\WINDOWS\Explorer.EXE
C:\WINDOWS\system32\spoolsv.exe
C:\Archivos de programa\Analog Devices\SoundMAX\SMax4PNP.exe
C:\Archivos de programa\Analog Devices\SoundMAX\Smax4.exe
C:\Archivos de programa\Eset\nod32kui.exe
C:\WINDOWS\VdCap03C\StillMnt.exe
C:\Archivos de programa\Archivos comunes\Java\Java Update\jusched.exe
C:\WINDOWS\system32\ctfmon.exe
C:\Archivos de programa\Spyware Doctor\spydoctor.exe
C:\WINDOWS\system32\rundll32.exe
C:\Archivos de programa\Java\jre6\bin\jqs.exe
C:\Archivos de programa\Archivos comunes\Microsoft Shared\VS7DEBUG\MDM.EXE
C:\Archivos de programa\Eset\nod32krn.exe
C:\WINDOWS\system32\nvsvc32.exe
C:\Archivos de programa\Microsoft\Search Enhancement Pack\SeaPort\SeaPort.exe
C:\Archivos de programa\Analog Devices\SoundMAX\SMAgent.exe
C:\WINDOWS\system32\svchost.exe
C:\WINDOWS\system32\wbem\wmiapsrv.exe
C:\WINDOWS\System32\svchost.exe
C:\Archivos de programa\Mozilla Firefox\firefox.exe
C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\mscorsvw.exe
C:\WINDOWS\system32\msiexec.exe
C:\descargas\HijackThis.exe

R1 - HKCU\Software\Microsoft\Internet Explorer\Main,Search Bar = http://search.live.com/sphome.aspx
R1 - HKLM\Software\Microsoft\Internet Explorer\Main,Default_Page_URL = http://go.microsoft.com/fwlink/?LinkId=69157
R1 - HKLM\Software\Microsoft\Internet Explorer\Main,Default_Search_URL = http://go.microsoft.com/fwlink/?LinkId=54896
R1 - HKLM\Software\Microsoft\Internet Explorer\Main,Search Page = http://go.microsoft.com/fwlink/?LinkId=54896
R0 - HKLM\Software\Microsoft\Internet Explorer\Search,SearchAssistant = http://search.live.com/sphome.aspx
R1 - HKCU\Software\Microsoft\Internet Explorer\SearchURL,(Default) = http://g.latam.msn.com/0SEESXL/SAOS01?FORM=TOOLBR
R0 - HKCU\Software\Microsoft\Internet Explorer\Toolbar,LinksFolderName = Vínculos
O2 - BHO: (no name) - {5C255C8A-E604-49b4-9D64-90988571CECB} - (no file)
O2 - BHO: Search Helper - {6EBF7485-159F-4bff-A14F-B9E3AAC4465B} - C:\Archivos de programa\Microsoft\Search Enhancement Pack\Search Helper\SEPsearchhelperie.dll
O2 - BHO: Windows Live Aplicación auxiliar de inicio de sesión - {9030D464-4C02-4ABF-8ECC-5164760863C6} - C:\Archivos de programa\Archivos comunes\Microsoft Shared\Windows Live\WindowsLiveLogin.dll
O2 - BHO: Ask Toolbar BHO - {D4027C7F-154A-4066-A1AD-4243D8127440} - (no file)
O2 - BHO: Java(tm) Plug-In 2 SSV Helper - {DBC80044-A445-435b-BC74-9C25C1C588A9} - C:\Archivos de programa\Java\jre6\bin\jp2ssv.dll
O2 - BHO: Windows Live Toolbar Helper - {E15A8DC0-8516-42A1-81EA-DC94EC1ACF10} - C:\Archivos de programa\Windows Live\Toolbar\wltcore.dll
O2 - BHO: JQSIEStartDetectorImpl - {E7E6F031-17CE-4C07-BC86-EABFE594F69C} - C:\Archivos de programa\Java\jre6\lib\deploy\jqs\ie\jqs_plugin.dll
O3 - Toolbar: &Windows Live Toolbar - {21FA44EF-376D-4D53-9B0F-8A89D3229068} - C:\Archivos de programa\Windows Live\Toolbar\wltcore.dll
O3 - Toolbar: (no name) - {D4027C7F-154A-4066-A1AD-4243D8127440} - (no file)
O4 - HKLM\..\Run: [SoundMAXPnP] C:\Archivos de programa\Analog Devices\SoundMAX\SMax4PNP.exe
O4 - HKLM\..\Run: [SoundMAX] "C:\Archivos de programa\Analog Devices\SoundMAX\Smax4.exe" /tray
O4 - HKLM\..\Run: [nod32kui] "C:\Archivos de programa\Eset\nod32kui.exe" /WAITSERVICE
O4 - HKLM\..\Run: [anvshell] anvshell.exe
O4 - HKLM\..\Run: [nwiz] nwiz.exe /install
O4 - HKLM\..\Run: [NvMediaCenter] RUNDLL32.EXE C:\WINDOWS\system32\NvMcTray.dll,NvTaskbarInit
O4 - HKLM\..\Run: [StillMnt] WCamRmv.exe /StartStillMnt
O4 - HKLM\..\Run: [QuickTime Task] "C:\Archivos de programa\QuickTime\QTTask.exe" -atboottime
O4 - HKLM\..\Run: [NvCplDaemon] RUNDLL32.EXE C:\WINDOWS\system32\NvCpl.dll,NvStartup
O4 - HKLM\..\Run: [KernelFaultCheck] %systemroot%\system32\dumprep 0 -k
O4 - HKLM\..\Run: [SunJavaUpdateSched] "C:\Archivos de programa\Archivos comunes\Java\Java Update\jusched.exe"
O4 - HKLM\..\RunOnce: [MessengerPlusUninstall] C:\WINDOWS\system32\cmd.exe /C "C:\DOCUME~1\chicos\CONFIG~1\Temp\MsgPlusUninst.bat"
O4 - HKCU\..\Run: [CTFMON.EXE] C:\WINDOWS\system32\ctfmon.exe
O4 - HKCU\..\Run: [Spyware Doctor] "C:\Archivos de programa\Spyware Doctor\spydoctor.exe" /Q
O4 - HKCU\..\Run: [Uniblue Registry Booster] C:\Archivos de programa\Uniblue\RegistryBooster\RegistryBooster.exe /S
O4 - HKCU\..\Run: [MSMSGS] "C:\Archivos de programa\Messenger\msmsgs.exe" /background
O4 - HKCU\..\Run: [HijackThis startup scan] C:\descargas\HijackThis.exe /startupscan
O8 - Extra context menu item: E&xportar a Microsoft Excel - res://C:\ARCHIV~1\MICROS~2\OFFICE11\EXCEL.EXE/3000
O9 - Extra button: Agregar entrada - {219C3416-8CB2-491a-A3C7-D9FCDDC9D600} - C:\Archivos de programa\Windows Live\Writer\WriterBrowserExtension.dll
O9 - Extra 'Tools' menuitem: &Agregar entrada en Windows Live Writer - {219C3416-8CB2-491a-A3C7-D9FCDDC9D600} - C:\Archivos de programa\Windows Live\Writer\WriterBrowserExtension.dll
O9 - Extra button: Referencia - {92780B25-18CC-41C8-B9BE-3C9C571A8263} - C:\ARCHIV~1\MICROS~2\OFFICE11\REFIEBAR.DLL
O9 - Extra button: Messenger - {FB5F1910-F110-11d2-BB9E-00C04F795683} - C:\Archivos de programa\Messenger\msmsgs.exe
O9 - Extra 'Tools' menuitem: Windows Messenger - {FB5F1910-F110-11d2-BB9E-00C04F795683} - C:\Archivos de programa\Messenger\msmsgs.exe
O11 - Options group: [INTERNATIONAL] International
O16 - DPF: {5D6F45B3-9043-443D-A792-115447494D24} (UnoCtrl Class) - http://messenger.zone.msn.com/MessengerGamesContent/GameContent/es/uno1/GAME_UNO1.cab
O16 - DPF: {8E0D4DE5-3180-4024-A327-4DFAD1796A8D} (MessengerStatsClient Class) - http://messenger.zone.msn.com/binary/MessengerStatsClient.cab31267.cab
O16 - DPF: {C3F79A2B-B9B4-4A66-B012-3EE46475B072} (MessengerStatsClient Class) - http://messenger.zone.msn.com/binary/MessengerStatsPAClient.cab56907.cab
O18 - Protocol: livecall - {828030A1-22C1-4009-854F-8E305202313F} - C:\ARCHIV~1\WI1F86~1\MESSEN~1\MSGRAP~1.DLL
O18 - Protocol: msnim - {828030A1-22C1-4009-854F-8E305202313F} - C:\ARCHIV~1\WI1F86~1\MESSEN~1\MSGRAP~1.DLL
O18 - Protocol: wlmailhtml - {03C514A3-1EFB-4856-9F99-10D7BE1653C0} - C:\Archivos de programa\Windows Live\Mail\mailcomm.dll
O23 - Service: ASUSKeyboardService - Unknown owner - C:\WINDOWS\asuskbservice.exe (file missing)
O23 - Service: InstallDriver Table Manager (IDriverT) - Macrovision Corporation - C:\Archivos de programa\Archivos comunes\InstallShield\Driver\11\Intel 32\IDriverT.exe
O23 - Service: Java Quick Starter (JavaQuickStarterService) - Unknown owner - C:\Archivos de programa\Java\jre6\bin\jqs.exe" -service -config "C:\Archivos de programa\Java\jre6\lib\deploy\jqs\jqs.conf (file missing)
O23 - Service: NOD32 Kernel Service (NOD32krn) - Unknown owner - C:\Archivos de programa\Eset\nod32krn.exe
O23 - Service: NVIDIA Display Driver Service (NVSvc) - NVIDIA Corporation - C:\WINDOWS\system32\nvsvc32.exe
O23 - Service: SoundMAX Agent Service (SoundMAX Agent Service (default)) - Analog Devices, Inc. - C:\Archivos de programa\Analog Devices\SoundMAX\SMAgent.exe

Muchas gracias por todo

Ok muchas Gracias a los dos por responder. Voy a probarlo
Saludos

EDITO

Al final anduvo con lo que me dijeron..
Gracias a los dos!
Saludos

Hola que tal. Gracias por ingresar. Les comento mi problema. Yo tengo hecho un programa, que todo va bien pero cuando lo pruebo en otra pc salta el error del Winsock. Busque en internet y vi que tenia que usar el CsocketMaster, lo configuro todo tal cual es pero ahora no me conecta ni en modo de ejecucion. Quisiera saber si alguien me puede ayudar a poder hacerlo andar bien.

Codigo Cliente:

Private Sub Command1_Click()
    On Error GoTo ssig:
    With Winsock1:
                    .Close
                    .RemotePort = Val(Text2.Text)
                    .RemoteHost = Text1.Text
                    .Connect
    End With
    If Winsock1.State <> 7 Then
        Caption = "Desconectado"
    Else
        Caption = "Conectado"
    Exit Sub
ssig:
    MsgBox Err.Description, vbCritical + vbOKOnly, Err.Source
    Err.Clear
    End If
End Sub
 
Private Sub Command3_Click()
    Text3.Text = Text3.Text & vbCrLf & "-->" & Text4.Text
    Winsock1.SendData "Cliente --> " & Text4.Text
End Sub
 
Private Sub Form_Load()
    Form2.Hide
    Command3.Enabled = False
End Sub
 
Private Sub PaneldeControl_Click()
Form2.Show
End Sub
 
Private Sub Salir_Click()
End
End Sub
 
Private Sub Text4_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then Command3_Click
End Sub
 
Private Sub Winsock1_Close()
 Caption = "Desconectado"
    Command3.Enabled = False
End Sub
 
Private Sub Winsock1_connect()
 Caption = "Conectado"
    Command3.Enabled = True
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
 Dim datos As String
 Winsock1.GetData datos, vbString
 Text3 = Text3 & vbCrLf & datos
End Sub
 
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal sCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    Caption = "Error"
    Err.Clear
End Sub
 

Codigo Servidor:

Option Explicit
Dim WithEvents Winsock1 As CSocketMaster
 
Private Sub Command1_Click()
    Text1.Text = Text1.Text & vbCrLf & "-->" & Text2.Text
    Winsock1.SendData "Servidor --> " & Text2.Text
End Sub
 
Private Sub Form_Load()
Set Winsock1 = New CSocketMaster
    With Winsock1
            .CloseSck
            .LocalPort = 4576
            .Listen
    End With
End Sub
 
Private Sub Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then Command1_Click
End Sub
 
Private Sub Winsock1_CloseSck()
 Caption = "Desconectado"
End Sub
 
Private Sub Winsock1_Connect()
 Caption = "Conectado"
End Sub
 
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    Winsock1.CloseSck
    Winsock1.Accept requestID
    If Winsock1.State <> 7 Then: Caption = "Desconectado": Else: Caption = "Conectado"
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim datos As String
    Winsock1.GetData datos, vbString
    Text1 = Text1 & vbCrLf & datos
End Sub
 
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal sCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    Caption = "Error"
End Sub
 
Private Sub Text1_Change(): Text1.SelStart = Len(Text1.Text): End Sub
 

Muchas Gracias por atender mi problema
Que tengan un buen dia!

EDITO
http://infrangelux.sytes.net/FileX/index.php?file=/chat.zip&dir=&

ahi esta gracias ahi miro el chat que me diste

Hola BlackZeroX puse el codigo que me digiste pero me dice que debo realizar una conexion, quiere decir que aunque en el label (SB) me diga que estoy conectado enrealidad no lo estoy.

Gracias

ok vere eso, la respuesta de si era ese el error la posteo dentro de unas horas porque me debo ir.

Muchas gracias BlackZeroX por ayudarme!!

saludos y que tengas un buen dia

EDITO:
BlackZeroX hice lo siguiente, elimine el evento WS_Close, y lo ordene de la siguiente manera

Private Sub Boton_Conexion_Click()
On Error Resume Next
WS.Close
WS.Connect TxtIP.Text, 1066
End Sub
 
Private Sub WS_Connect()
SB.Caption = "Estado - Esperando Conexión..." & vbCrLf
SB.Caption = "Estado - Conectado (" & WS.RemoteHostIP & ")"
End Sub
 
Private Sub Boton_Desconexion_Click()
SB.Caption = " Estado - Cerrando Conexión (" & WS.RemoteHostIP & ")" & vbCrLf
WS.Close
SB.Caption = "Estado - Desconectado (" & WS.RemoteHostIP & ")"
End Sub
 
Private Sub Command1_Click()
WS.SendData Text2.Text
End Sub
 

De esta manera me queda en el Label (SB) que estoy conectado. Entonces procedo a escribir en el textbox, una oración, apreto el botón enviar (command1) y me marca: Error en tiempo de ejecución: 40006

"Protocolo o estado de conexión erróneo para la transacción o petición solicitada".

Busque en la web y me dice que ese error se produce cuando se trata de enviar un dato antes de que se esté conectado al server. Con esto significaria que en realidad no estoy conectado al server y el Label(SB) me muestra que sí.

Gracias

Hola muchas gracias por interesarte, ya cambie el codigo. Mirare el link que me diste.
Muchas gracias devuelta

EDITO:
muchas gracias por las sugerencias que me diste, lo voy a corregir Gracias

EDITO:
Cambie los codigos a como me digiste pero sigo con el problema, se queda en Estado - Esperando Conexión...

muchas gracias

Hola muchas gracias por interesarte, ya cambie el codigo. Mirare el link que me diste.
Muchas gracias devuelta

EDITO:
muchas gracias por las sugerencias que me diste, lo voy a corregir Gracias