fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Buchstabenkombinationen für ein Anfangswort

Uploader:	gast
Datum/Zeit:	07.08.2005 00:21:39

'Autor: MisterD



DECLARE SUB kombinationen(wort$)

DECLARE SUB kombinieren(zahl%, wort AS STRING, zeichen() AS STRING, anzahl%)

DECLARE FUNCTION fak%(zahl%)



kombinationen "moin"

SLEEP

SYSTEM



SUB kombinationen(wort$)

    DIM zeichen(LEN(wort$)) AS STRING

    FOR n% = 1 to LEN(wort$)

        zeichen(n%) = MID$(wort$,n,1)

    NEXT n%

    PRINT "Moegliche Kombinationen: "; fak(LEN(wort%))

    kombinieren 1, "", zeichen(), LEN(wort$)

END SUB

SUB kombinieren(zahl%, wort AS STRING, zeichen() AS STRING, anzahl%)

    'Weitere Kombinationen ausprobieren

    IF anzahl% > 1 THEN

        'Neues Array anlegen

        DIM zeichen2(anzahl%) AS STRING



        FOR n% = 1 TO anzahl%

            'Alle Zeichen außer dem jetzt verwendeten übertragen

            FOR m% = 1 TO anzahl% - 1

                IF m% < n% THEN zeichen2(m%) = zeichen(m%) ELSE zeichen2(m%) = zeichen(m% + 1)

            NEXT m%

            'Wort kombinieren mit verbleibenden Zeichen

            kombinieren zahl%, wort+zeichen(n%), zeichen2(), anzahl%-1

        NEXT n%

    ELSE

        PRINT zahl%; ": " + wort + zeichen(1)

        zahl% = zahl% + 1

    END IF

END SUB

FUNCTION fak%(zahl%)

    IF zahl%=1 THEN fak=zahl% ELSE fak=zahl%*fak(zahl%-1)

END FUNCTION

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.