Отправляет email-рассылки с помощью сервиса Sendsay

Программирование в Turbo PASCAL

  Все выпуски  

Программирование в Turbo PASCAL : множества


Служба Рассылок Subscribe.Ru проекта Citycat.Ru

Служба почтовых рассылок Subscribe.Ru и проект Pascal-2000 mf company

ПРОГРАММИРОВАНИЕ В 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:=AB множество
Принадлежность элемента 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-sub@mail.ru

   Мы ответим на ВСЕ присланные сообщения. Заранее спасибо за любые пожеланиям и рекомендациям по поводу.

Рассылки Subscribe.Ru
Программирование в Turbo PASCAL

Акция: "ДОЛОЙ ОШИБКИ!"

    При компиляции набранного кода или его выполнении программа Pascal выполняет проверку на наличие ошибок и выдает о них сообщения (Error...). Не все знают точно, что они означают и как с ними "бороться". Именно для них и предназначена эта акция. Теперь, если у Вас что-то не получается, а программа находит ошибку, то Вы можете прислать нам ее номер, название или весь Ваш код целиком, не забыв указать обратный e-mail, а мы со своей стороны обязательно постараемся Вам помочь:

!!!>>> Задать вопрос про "ошибку" <<<!!!


http://subscribe.ru/
E-mail: ask@subscribe.ru

В избранное