«аочное дистанционное образование с получением государственного диплома через Internet










ѕолучить информацию о поступлении
 
√лавна€ Ќовости  арта сайта ‘отоальбом √остева€ книга  онтакты

{LTS}

 

”пражнение 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 и проанализировать значени€ множества ћ.


”знать как сэкономить в кризис моно на сайте ekonom-it.ru

—ортировка методом пузырька ”слови€ задач (без ответов) ќписание типа Ђћножествої ќперации над множествами ”пражнение 1 ”пражнение 3 ќписание типа "«апись" ”пражнение є1 дл€ работы с запис€ми ”пражнение є2 дл€ работы с запис€ми ”пражнение є2 дл€ обработки строк 


 
     
   
 


ѕриглашаем прин€ть участие в круглом столе!
подробнее   >>>
 

»нститут ћенеджмента, Ёкономики и »нноваций начинает набор на курсы повышени€ квалификации!
подробнее   >>>
 

”важемые студенты јЌќ ¬ѕќ »ћЁи»!
подробнее   >>>
 

Ќачинаетс€ набор на курсы повышени€ квалификации!
подробнее   >>>
 

ѕриглашаем прин€ть участие в конференци€х!
подробнее   >>>
 


все новости...

 


–ассылки Subscribe.Ru
—овременное образование
ѕодписатьс€ письмом