ПРОГРАММИРОВАНИЕ В TURBO PASCAL |
Здравствуйте уважаемые подписчики!
На сей раз о множествах.
МНОЖЕСТВА
Множество в Pascal используется по математическому принципу и представляет собой некий набор элементов, но в программировании множества могут включать лишь элементы порядковых типов. Всему множеству задается имя:
<имя множества> : SET OF <базовый тип множества>
Базовый тип – один тип, которому должны принадлежать все элементы множества. В Pascal в качестве базовых могут использоваться порядковые типы, мощность которых не превышает 256 значений. Порядковые значения верхней и нижней границы базового типа не должны выходить за пределы диапазона от 0 до 255, поэтому не могут использоваться такие типы как Integer, LongInt.
Конструктор - список элементов базового типа заключенных в квадратные скобки:
A:=['a', 'b', 'c'];
B:=[1, 2, 3];
C:=[ ]; {пустое множество}
Операции для работы с множествами (A, B, C – множества):
Операция | Обозначение | Пример | Тип результата |
Объединение множеств | + | C:=A+B | множество |
Пересечение множеств | * | C:=A*B | множество |
Вычитание множеств | - | C:=A–B | множество |
Принадлежность элемента x множеству A | in | If x in A then... | boolean |
Множество во множестве | >= <= |
A>=B B<=A |
boolean |
Множества представляют собой удобный механизм для решения задач определенного типа. Например, при обработке текстов.
Пример:
Необходимо подсчитать в текстовом файле (C:\Text.txt)
число цифр и латинских букв.
Program Mn;
Uses crt;
Type mnoj = set of char;
Const A : mnoj = ['0'..'9']; B : mnoj = ['a'..'z', 'A'..'Z'];
Var countA, countB : word; F:text; Ch:char;
Begin ClrScr;
Assign (F, 'C:\Text.txt');
Reset (F);
While not eof(F) do
Begin Read (F, Ch);
If Ch in A then countA:= countA+1;
If Ch in B then countB:=countB+1; end;
Writeln('Число цифр в файле: ', countA:5);
Writeln('Чило латинских букв: ', countB:5);
Writeln('Выход - клавиша Enter');
Readln;
end.
Предлагаем Вам самим выбрать ТЕМУ для следующей рассылки. Если у Вас есть какие-либо вопросы по программированию в Pascal или же Вы наоборот хотите поделиться своими навыками, то вот наш адрес:
Мы ответим на ВСЕ присланные сообщения. Заранее спасибо за любые пожеланиям и рекомендациям по поводу.
Акция: "ДОЛОЙ ОШИБКИ!"
При компиляции набранного кода или его выполнении программа Pascal выполняет проверку на наличие ошибок и выдает о них сообщения (Error...). Не все знают точно, что они означают и как с ними "бороться". Именно для них и предназначена эта акция. Теперь, если у Вас что-то не получается, а программа находит ошибку, то Вы можете прислать нам ее номер, название или весь Ваш код целиком, не забыв указать обратный e-mail, а мы со своей стороны обязательно постараемся Вам помочь:
!!!>>>
Задать вопрос про "ошибку" <<<!!!
http://subscribe.ru/
E-mail: ask@subscribe.ru |
В избранное | ||