Практическое задание № 15 Множества
Множество - это структурированный тип данных, представляющий собой набор взаимосвязанных по какому-либо признаку или группе признаков объектов, которые можно рассматривать как единое целое. Каждый объект в множзстве называется элементом множества. Все элементы множества должны принадлежать одному из скалярных типов, кроме вещественного. Этот тип называется базовым типом множества. В выражениях на языке Паскаль значения элементов множества указываются в квадратных скобках: [1,2,3,4], ‘а’, Ъ’, ’с’. Количество элементов множества называется его мощностью и не должно превышать значение 256. Для описания множественного типа используется словосочетание SET OF (множество из...).
Операции над множествами:
“равно” (=), “не равно” (о), “больше или равно” (>=), “меньше или равно” (<=); Операция in
используется для проверки принадлежности какого - либо значения указанному множеству; Объединение множеств ( + ). Объединением двух множеств является третье множество, содержащее элементы обоих множеств; Пересечение множеств ( * ). Пересечением двух множеств является третье множество, которое содержит элементы, входящие одновременно в оба множества; Разность множеств ( - ). Разностью двух множеств является третье множество, которое содержит элементы первого множества, не входящие во второе множество.
Наберите программу, определяющую количество гласных и согласных букв в
предложении.
Program АВС22;
Туре
Letters = set of ‘ А ’.. ’ я ’;
Var
Glasn, Sogl: Letters;
Text: strina:
Write (1 Введите предложение: ’);
Readln (Text);
G: = 0; S: = 0;
For I: =1 to Length (Text) do Begin
If Text [ I ] in Glasn then G : = G +1;
If Text [ I ] in Sogl then S: = S +1;
End;
Writeln (‘ В предложении ” ’, Text, ’ “ ‘, G, ’ гласных и ‘, S, ’согласных букв ’);
End.
For N: = 12 downto 1 do Begin
Sound(Round(F[N]*(1 shl k))); Delay (Temp);
NoSound;
End;
End.
Откомпилируйте программу и запустите ее на выполнение. Прослушайте мелодию. Охраните программу и создайте .ехе-файл.
Практическое задание N2 16
Управление экраном компьютера
Стандартный модуль CRT содержит средства управления дисплеем и клавиатурой компьютера. Установка текстовых режимов осуществляется стандартной процедурой TextJVIode ( Mode : integer); . Возможные значения режима Mode могут быть заданы именем константы (BW40, 0040,...) или номером
режима(0,1,...).
Процедура GoToXY (X, Y : byte) перемещает курсор в позицию, заданную координатами Х(столбец) и У(строка), относительно текущего окна. Функции WhereX: byte и WhereY: byte позволяет получить значение X- или Y-координаты курсора относительно текущего окна.
Наберите программу, которая в разных текстовых режимах выводит текст, смещая его по диагонали и вставляет строку текста.
Program АВС24;
Uses CRT;
Var A, В, С : byte ;
Begin
Write (‘ Введите номер текстового режима 1,2:’);
Readln (С);
TextMode (С); j J,. J j',
ClrScr;
Writeln (‘ Включен текствый режим № ’, С);
В: = 1;
ForA: = 2to25 do Begin
GoTOXY (A, В);
Write (‘ Вывод текста по диагонали ’);
В: = В + 2;
End;
GoToXY (8,10);
InsLine;
Writeln (1 Вставленная строка текста ’);
Readln;
Writeln (‘ Для завершения работы нажмите клавишу <ENTER > ’);
Readln;
End.
Откомпилируйте программу и запустите ее на выполнение. Просмотрите результаты работы программы в режимах 1 и 2. Сохраните программу и создайте .ехе - файл.
Работа с экраном компьютера При работе в текстовых режимах с цветным дисплеем каждый выводимый на экран символ может иметь один из 16 (0 -15) возможных цветов. Фон может бьгтъ один из 8 (0 - 7) цветов. Для установки цвета выводимых символов используется процедура TextColor, для фона - процедура TextBackGround. Темные цвета ] Светлые цвета
О (Black) - черный 8 (DarkGray) - темно-серый
1 (Blue)-синий |
9 (LighBlue) - светло-синий |
2 (Green) - зеленый |
10 (LightGreen)- светло-зеленый |
3 (Cyan) - голубой |
11 (LightCyan) - светло-голубой |
4 (Red) - красный |
12 (LightRed) - светло-красный |
5 (Magenta) - фиолетовый |
13 (LightMagenta) - светло-фиолетовый |
6 (Brown) - коричневый |
14 (Yellow)-светло-коричневый |
7 (LightGray)- светло-серый |
15 (White)-белый |