Задача. Сформировать и вывести на экран множество из 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.

Оценка - 1.8 (25)

2008-02-15 • Просмотров [ 15476 ]