Navigace: Hlavní stránka -> BASIC -> 10 Znaky, texty ->10.09 Určení počtu vozidel z určitého kraje

MENU

10.09 Určení počtu vozidel z určitého kraje

Zadání:
Sestavte program, který určí, kolik poznávacích značek aut je z kraje Vysočina.
Řešení:
Program po zadání počtu značek a inicializaci proměnné pocet prochází pomocí cyklu FOR všechny značky. V nich hledá
první písmeno a pokud je první písmeno "J", inkrementuje proměnnou pocet. Na konci programu se počet hledaných
značek vytiskne. 
Module Module1

    Sub Main()


        Dim pz, i, j, pozice, pocet As Integer
        Dim znacka As String

        Console.Write("Zadejte, kolik SPZ budete zadavat: ")
        pz = Console.ReadLine

        pocet = 0

        For i = 1 To pz

            Console.Write("Zadejte {0}.znacku: ", i)
            znacka = Console.ReadLine
            j = 1
            pozice = 0
            Do
                If (znacka(j) >= "A") And (znacka(j) <= "Z") Then
                    pozice = j
                End If
                j += 1
            Loop Until (pozice <> 0) Or (j >= 9)

            If znacka(pozice) = "J" Then
                pocet += 1
            End If

        Next i

        Console.WriteLine("Pocet znacek z kraje Vysocina: {0}", pocet)

        Console.ReadLine()

    End Sub

End Module
program ke stažení