Лекция 32.

Вопросы:

Что такое тип множество. Как описать переменные этого типа.

Перечислить операции над множествами. Охарактеризовать.

Основные задачи по теме множества:

Заполнить множество М, состоящее из чисел 1..50 с клавиатуры 10 числами.

Program _;

Var M: set of 1..50;

X,I: integer;

Begin

M:=[];

For i:= 1 to 10 do

Begin

Writeln(‘Введите ’,I,’элемент множества’);

Readln(x);

M:=m+[x];

End;

End.

В Turbo Pascal отсутствуют средства ввода-вывода множества, поэтому чтобы просмотреть значения каждых переменных, необходимо выполнить программу по шагам, просматривая результаты в окне просмотра.

Выполнение программы по шагам: Run→Trace Info(F7).

Просмотр текущих значений переменных, выражений Debug→Watch. При выполнении данной команды на экране появляется окно, в которое необходимо ввести имена переменных ( при помощи клавиши insert) значения которых мы хотим просматривать.

Определить сколько в данной строке согласных и гласных букв.

program _;

uses crt;

type lette=set of 'А'..'я';

var let,gl_l,sog_l: lette;

i,g,sg: integer;

s:string;

begin

clrscr;

let:=['А'..'я'];

gl_l:=['А','а','Е','е','И','и','О','о',У','у','Ы','ы','Э'..'Я','э'..'я'];

Sog_l:=let-gl_l;

Writeln('введите строку');

readln(s);

for i:=1 to length(s) do

begin

if (s[i] in gl_l) then g:=g+1;

if (s[i] in sog_l) then sg:=sg+1 ;

end;

writeln('гласных букв в предложении ',g);

writeln('coгласных букв в предложении ',sg);

Writeln;

end.

Составить программу, которая вырабатывает и выводит на экран дисплея наборы случайных чисел для игры в "Спортлото 5 из 36".

Для заполнения каждой карточки спортлото необходимо получить набор из пяти псевдослучайных чисел. К этим числам предъявляются два требования:

-числа должны находиться в диапазоне 1..36;

-числа не должны повторяться.

Program Lotto;

uses crt;

var kol,x:integer;

m:set of 1..36;

begin

clrscr;

randomize;

textcolor(5);

writeln('Вас приветствует игра 5 из 36');

writeln('сегодня мы назовем выигрышные номера');

kol:=1;

m:=[];

while kol<=5 do

begin

x:=random(36);

if not(x in M) then

begin

m:=m+[x];

kol:=kol+1;

write(x,' ');

end;

end;

readln;

end.