Navigace: Hlavní stránka -> BASIC -> 10 Znaky, texty ->10.03 Hledání nejdelšího slova v řetězci znaků

MENU

10.03 Hledání nejdelšího slova v řetězci znaků

Zadání:
Sestavte program, který nalezne nejdelší slovo v zadaném řetězci.
Řešení:
Program hledá pomocí pozice první mezery v řetězci délku prvního slova. Délku tohoto slova porovná s uloženou
hodnotou v proměnné delka a uloží do ní větší z obou hodnot. Poté smaže z řetězce první slovo. Tuto činnost
opakuje do té doby, dokud není řetězec prázdný. Na konci programu se vytiskne délka nejdelšího slova. 
Module Module1

    Sub Main()

        Dim s As String
        Dim delka, p As Integer

        Console.Write("Zadejte retezec: ")
        s = Console.ReadLine

        delka = 0

        Do
            p = InStr(s, " ")
            If p = 0 Then
                p = Len(s)
                If p > delka Then
                    delka = p
                End If
                s = ""
            Else
                If p - 1 > delka Then
                    delka = p - 1
                End If
            End If

            s = Replace(s, Left(s, InStr(s, " ")), "")

        Loop Until s = ""

        Console.WriteLine("Nejdelsi slovo: {0} znaku", delka)

        Console.ReadLine()

    End Sub

End Module
program ke stažení