ВУЗ:
Составители:
Рубрика:
8
until (i>=T_Len);
{вывод результата}
if Gl_T=[]
then writeln('Гласных букв, которые входят в каждое слово, нет !')
else
begin
writeln('Гласные буквы , которые входят в каждое слово:');
for ch := 'а' to 'я' do
if ch in Gl_T then write(ch,' ')
end;
readkey
End.{Glas}
В программе к задаче 3 нам впервые встретились структурированные
типизированные (типированные) константы (см . const Gl).
Иногда в задачах бывает нужно использовать константы структурирован -
ного типа. Так, например, в программе Glas использовалось множество Gl
гласных строчных русских букв.
В общем виде описать типизированную константу можно так:
Const Имя константы: Тип =(Значение);
Пример константы типа запись :
Type TDATA = record gd: 1900..2100; mc: 1..12; dn:1..31
end;
Const Now: TDATA = (dn: 31; mc: 12; gd: 2004);
Пример константы – многомерного массива:
Const M: Array [1..2, 1..3,1..4] of byte =
(((1,2,3,4), (5,6,7,8), (9,10,11,12)),
((13,14,15,16), (17,18,19,20), (21,22,23,24)));
Разберем задачу на сообразительность , алгоритм решения которой приве-
дет нас к множествам.
Задача 4. Коту снится, что его окружили тринадцать мышей . Двенадцать
из них серые, а одна белая. Слышит кот, что кто- то говорит ему: «Мурлыка, ты
можешь съедать каждую тринадцатую мышку. Считай их по кругу в одном на-
правлении. Белую мышку ты должен съесть последней . » . Задумался кот: «С
какой мышки начинать счет?»
♣ Мыши стоят по кругу. Будем считать , что нумерация мышей в круге
начинается с белой мыши и идет по часовой стрелке.
Задачу будем решать перебором всех возможных ситуаций . Начнем счет с
первой мыши. Сформируем множество номеров мышей . Будем исключать из
этого множества каждую тринадцатую мышь. Если на каком- то этапе при ис-
ключении мы попадем в белую мышь, то выбор начала отсчета неудачен, и
нужно начать отсчет со следующей мыши. Если белая мышь останется по-
следней , то точка отсчета найдена.
Если номер мыши, только что исключенной из круга, равен i, то следую -
щей будет исключена мышь, номер которой определяется следующим обра-
зом:
Страницы
- « первая
- ‹ предыдущая
- …
- 6
- 7
- 8
- 9
- 10
- …
- следующая ›
- последняя »
