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

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

158
символ}
If ErrSymb <> []
Then {Если ввел, то выводим все их на экран}
WriteSetChar('Вы ввели следующие неправильные символы:',
ErrSymb)
Else {Если не ввел ни одного неправильного, выдаем сообщение}
Writeln('Вы не ввели ни одного неправильного’,
’ символа!!!');
{Проверка, забыл ли пользователь ввести хотя бы один правильный
символ}
If MissSymb <> []
Then {Если забыл, то выводим все забытые на экран}
WriteSetChar('Вы забыли ввести следующие символы:',
MissSymb)
Else {Если не забыли, выдаем сообщение}
Writeln('Вы ввели все возможные шестнадцатеричные’,
’ цифры!!!');
End.
Попытайтесь решить эту задачу без использования множеств, и тогда
вы почувствуете, насколько эффективны множества…
Пример обработки массива строк
Задача «Поиск символов в тексте»
Рассмотрим обработку строк на примере следующей задачи:
С клавиатуры вводится n строк (n<=10). Каждая строка содержит не
более 70 символов. Необходимо найти и вывести все гласные буквы (без
повторений), которые встретились в этих строках.
Решим эту задачу в соответствии с процедурным подходом, то есть
разобьем решение на набор процедур и функций. Постараемся сделать

Страницы