Опишите множество М (1..50). Сделайте его пустым. Вводя целые числа с клавиатуры, заполните множество 10 элементами. В разделе описания переменных опишем множество целых чисел от 1 до 50, переменную X целого типа будем использовать для считывания числа-кандидата в множество, целую переменную I используем для подсчета количества введенных чисел. В начале программы применим операцию инициализации множества М:= [], так как оно не имеет элементов и является пустым. Заполнение множества элементами произведем с использованием оператора for, параметр которого I будет указывать порядковый номер вводимого элемента. Операцию заполнения множества запишем в виде оператора присваивания М:=М+[Х]. Контроль заполнения множества запишем с использованием операции проверки принадлежности in. Если условие X in M выполняется, выведем сообщение о том, что число X помещено в множество. Текст программы описания и заполнения множества будет таким: program Inpu_Mno: var М : set of 1..50; X, I : integer; begin M:= []; {M — пустое множество} for I:= 1 to 10 do begin Write(‘Введите ‘,I,’ -й элемент множества ‘); Readln(X); if (X in M) then {Если введенное число входит в множество М} begin Writeln(X,’ помещен в множество 1..50′); М:= М+[Х]; end; end; Writeln; end. Для проверки работы программы запустите интегрированную среду программирования. Введите текст программы Inpu_Mno и запишите файл на диск под соответствующим именем, а затем откомпилируйте его. Так как в Pascal отсутствуют средства ввода-вывода элементов множества, то работу программы придется проверять, выполняя ее в пошаговом режиме и отслеживая изменения значений переменных I, X и М в окне просмотра. Попробуйте задать значения числа X, большие 50, повторно задавать одинаковые значения X и проанализировать значения множества М. |