Лекция 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.

Лекция 33. Записи в Turbo Pascal

При решении научно-технических и экономических задач обработки совокупностей большого количества значений используются массивы. Но возникают сложности из-за того, что массив- это совокупность данных одного типа. Реальные данные об объектах часто описываются величинами разных типов. Например, товар на складе описывается следующими данными: наименование, количество, цена, наличие сертификата качества. Причем, наименование это строковый тип, количество- целый, цена- вещественный, наличие сертификата- логический.

Для записи в Turbo Pascal комбинации разных типов используют тип Запись.

Запись представляет собой совокупность ограниченного  числа  логически связанных компонент,  принадлежащих к разным типам. 

Компоненты записи называются полями, каждое из которых определяется именем и типом. Поля записи могут относиться к любому типу, допустимому в языке Паскаль, за исключением файлового типа. Описание записи   в   языке   ПАСКАЛЬ   осуществляется  с  помощью служебного слова RECORD,  за которым описываются компоненты записи: имена полей и через двоеточие указывается их тип. Завершается описание записи служебным словом END.

Record

<идентификатор поля>:<тип поля>;

<идентификатор поля>:<тип поля>;

…………………………………..

<идентификатор поля>:<тип поля>

end;

   Например, записная книжка содержит фамилии,  инициалы и номера телефона, поэтому отдельную строку в записной книжке удобно представить в виде следующей записи:

         type   Row=Record

                     FIO: String[20];

                      TEL: String[7]

                    end;

         var    str,d: Row;

В данном случае описывая запись мы задали новый тип Row, но можно описать переменную типа запись непосредственно в разделе описания переменных:

Var car: record

Nomer:integer;

Marka: string[15];

Fio:string[25];

Address:string[40]

End;

Идентификатор поля должен быть уникальным в пределах записи. Но чтобы избежать путаницы в программе лучше делать его уникальным во всей программе. Объем памяти, необходимый под запись складывается из длин полей. Так, тип Row занимает 29 байт, а переменная саr 75 байт (2+16+26+41).

   Обращение к записи в целом допускается только в операторах присваивания, где  слева и справа от знака присваивания используются  имена записей одинакового типа(str:=d). Во всех остальных случаях оперируют отдельными полями записей.  Чтобы обратиться к отдельной компоненте записи, необходимо задать  имя записи и через точку указать имя нужного поля, например:         str.FIO,   str.TEL , car.nomer, car.fio;

  Такое имя называется составным. Компонентой записи может быть также запись,    в таком случае составное имя будет содержать не два,  а большее количество имен.