Упражнение 2

Опишите множество М (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 и проанализировать значения множества М.

Добавить комментарий