Основы программирования на языке Turbo Pascal. Беляева И.В. - 157 стр.

UptoLike

Составители:

Рубрика:

157

ReadLn(s);

{Формирование множества всех введенных символов}

For I := 1 to length(s) do

InputSymb := InputSymb + [s[i]]; {Проходим в цикле по

всем символам введенной строки, добавляя

каждый символ в множество InputSymb}

{Формирование множества правильно введенных символов}

TrueSymb := InputSymb * HexSymb; {Правильно введенные

символы – это те символы из введенных, которые есть в

множестве шестнадцатеричных цифр}

{Формирование множества неправильно введенных символов}

ErrSymb := InputSymb - HexSymb; {Неправильно введенные

символы – это те символы из введенных, которых

нет в множестве шестнадцатеричных цифр}

{Формирование множества забытых (пропущенных) символов}

MissSymb := HexSymb - TrueSymb; {Пропущенные символы –

это те символы из множества шестнадцатеричных цифр,

которых нет в множестве правильно введенных}

{Вывод результатов}

Writeln;

{Проверка, ввел ли пользователь хотя бы один правильный символ}

If TrueSymb <> []

Then {Если ввел, то выводим все их на экран}

WriteSetChar('Вы ввели следующие правильные символы:',

TrueSymb)

Else {Если не ввел ни одного правильного, выдаем сообщение}

Writeln('Вы не ввели ни одного правильного символа!');

{Проверка, ввел ли пользователь хотя бы один неправильный