Используя оператор выбора составить программы решения следующих . составьте программу, определяющую для буквы алфавита, является ли буква гласной или нет
Задаем набор гласных букв: a, e, i, o, u, y Вводим букву. Сравниваем ее с каждой буквой из набора. Если совпадает, отвечаем: ДА Если не совпало ни с одной, отвечаем: НЕТ. Пример на бейсике Sub Letter Dim A(6) As String, S As String, i As Integer, F As Boolean A(1) = "a": A(2) = "e": A(3) = "i": A(4) = "o": A(5) = "u": A(6) = "y" Input S F = False For i = 1 To 6 If S = A(i) Then F = True Next i If F = True Then Print "YES" Else Print "NO" End
Вводим букву.
Сравниваем ее с каждой буквой из набора.
Если совпадает, отвечаем: ДА
Если не совпало ни с одной, отвечаем: НЕТ.
Пример на бейсике
Sub Letter
Dim A(6) As String, S As String, i As Integer, F As Boolean
A(1) = "a": A(2) = "e": A(3) = "i": A(4) = "o": A(5) = "u": A(6) = "y"
Input S
F = False
For i = 1 To 6
If S = A(i) Then F = True
Next i
If F = True Then Print "YES" Else Print "NO"
End