Задача. Сформировать и вывести на экран множество из n символов латинского алфавита (n< 20). Если вводимая буква уже есть в множестве, выдать соответствующее сообщение.
Program Mnog_Sim;
Const
N=20;
Var
S : Set Of Char;
B : Char;
I : Integer;
Begin
S := [];
For I:=1 To N Do
Begin
Writeln (’Введите букву’);
Readln(B);
If B In S Then
Writeln(’Буква ’,B,’ уже есть’)
Else
S:=S+[B];
End;
Writeln(’Буквы, входящие в множество’);
For B:=’A’ To ’z’ Do
If B In S Then
Write(B:2);
End.
Обратите внимание, что вводимые буквы могут быть и прописными, и строчными, поэтому при выводе в цикле For параметр цикла принимает все значения для букв латинского алфавита от A до z.
2008-02-15 • Просмотров [ 15476 ]