Используя объявлены типа: type t1 = (золото, медь, серебро, нефть, железо, ртуть, свинец, марганец, уголь, газ) построить пять множеств, состоящих из
10-11 класс
|
различных комбинаций этого списка. Вывести на экран названия объектов, которые есть во всех множествах одновременно. Определить, каких объектов нет ни в одной множестве. Выполнить дополнительно задачи своего варианта, а именно определить, какие объекты: входящие во вторую и третью множества. Паскаль, заранее спасибо
вроде так
type t1 = set of (zoloto, med, serebro, neft, jelezo, rtut, svines, marganes, ugol, gaz);
var m1,m2,m3,m4,m5:t1;
m:array[1..10]of t1;
s:array[1..10]of string;
i:integer;
begin
clrscr;
m1:=[zoloto,serebro];
m2:=[zoloto,neft,jelezo,rtut];
m3:=[zoloto,svines,marganes,ugol];
m4:=[gaz,zoloto,ugol];
m5:=[zoloto,neft,rtut,marganes,gaz];
m[1]:=[zoloto];m[2]:=[med];m[3]:=[serebro];m[4]:=[neft];m[5]:=[jelezo];
m[6]:=[rtut];m[7]:=[svines];m[8]:=[marganes];m[9]:=[ugol];m[10]:=[gaz];
s[1]:='zoloto';s[2]:='med';s[3]:='serebro';s[4]:='neft';s[5]:='jelezo';
s[6]:='rtut';s[7]:='svines';s[8]:='marganes';s[9]:='ugol';s[10]:='gaz';
for i:=1 to 10 do
begin
if (m[i]*m1=m[i])and(m[i]*m2=m[i])and(m[i]*m3=m[i])
and(m[i]*m4=m[i])and(m[i]*m5=m[i]) then
writeln('Est vo vsex mnojestvax odnovremenno = ',s[i]);
if (m[i]*m1<>m[i])and(m[i]*m2<>m[i])and(m[i]*m3<>m[i])
and(m[i]*m4<>m[i])and(m[i]*m5<>m[i]) then
writeln('Net ni v odnoi mnojestve = ',s[i]);
if (m[i]*m2=m[i])and(m[i]*m3=m[i]) then
writeln('Vxodyajie v 2 i 3 mnojestva = ',s[i]);
end;
end.
Другие вопросы из категории
всего раз встречается цифра 1 в записи чисел 12, 13, 14, …, 31 в системе счисления с основанием 5
Читайте также
изготовление единицы продукции для каждого из типов оборудования приведены в таблице. В ней же указаны общий фонд рабочего времени каждого из типов оборудования, а также прибыль от реализации одного изделия данного вида. Определить такой объем выпуска каждого из изделий, при котором общая прибыль от их реализации является максимальной. Что произойдет с общей прибылью, если прибыль от продажи продукции вида 4 вырастет втрое? Как изменится общая прибыль, если предприятию будет необходимо выпускать не меньше 1 единиц продукции 3? Если увеличить время использования фрезерных станков на 80 станко-часов, то можно ли будет уменьшить время использования других станков?
1. Как объявляется тип переменных-массив?
2. Как обращаются к элементам массива?
однозначно декодировать двоичную последовательность, появляющуюся на приёмной стороне канала связи. Использовали код: А–1, Б–000, В–001, Г–011. Укажите, каким кодовым словом должна быть закодирована буква Д. Длина этого кодового слова должна быть наименьшей из всех возможных. Код должен удовлетворять свойству однозначного декодирования. 1) 00 2) 01 3)11 4) 010
Есть счастливые билетики по–московски, есть счастливые билетики по–питерски, но мало кто слышал про счастливые билетики по–ярославски. В ярославском общественном транспорте номера билетиков состоят из 2N цифр. Билетик называется счастливым, если ярославская сумма первых N цифр равна ярославской сумме последних N цифр. Требуется найти количество счастливых билетиков по–ярославски для заданного N. На первый взгляд, задача простая, но что же такое «ярославская сумма»? Для заданного числа k найдем сумму его цифр, если получившееся число состоит из двух и более цифр, то найдем сумму цифр этого числа и т. д., пока не получим число, состоящее из одной цифры. Такая сумма цифр называется «ярославской суммой цифр». Билетики нумеруются от 00…000 до 99…999.
Вход: файл input.txt, в первой строке которого записано натуральное число N.
Ограничения: 1 ≤ N ≤ 1000
Выход: файл output.txt, содержащий одно число – количество счастливых билетиков по модулю109+7 (т.е. остаток от деления количества счастливых билетиков на 109+7)
Примеры
input.txt output.txt
1 10
6 110888113
Задача 2. Замощение улицы
Новый мэр Эль-Пасо Авраам Гарфилд решил замостить главную улицу города и для этой работы нанял бригаду рабочих во главе с Джорджем Шерманом. Улица представляет собой полосу длиной 4*N метров. Бригада Джорджа будет покрывать её плитками размера 1*2 метра. Плитки можно укладывать как горизонтально, так и вертикально. Шермана интересует, сколькими способами он может замостить главную улицу Эль-Пасо. Так как это число может быть очень большим, то от вас требуется найти число замощений по модулю 109+7 (т.е. найти остаток от деления количества замощений при делении на 109+7).
Вход: файл input.txt, в первой строке которого записано натуральное число N (ширина дороги в Эль-Пасо).
Ограничения: 0 < N < 113
Выход: файл output.txt, содержащий одно число – количество различных способов замостить улицу плитками 1*2 по модулю 109+7 (т.е. остаток от деления количества способов замостить улицу на 109+7).
Примеры
input.txt output.txt
2 5
3 11
7 781
Пояснение к примерам
Улицу длиной 4*2 метра (первый тест из примеров) можно замостить 5 следующими способами:
Задача 3. Упаковка печенья
На вас, как на главном программисте компании по производству печенья, лежит много ответственных заданий. Одно из них – производство и упаковка печенек должна соответствовать самым высоким требованиям Ярославского Консорциума по упаковке печенья.
В любой момент ваша линия производства выпускает новые печеньки, которые хранятся в печенькохранилище, ожидая упаковки. Время от времени поступают запросы с конвейера по упаковке – отправить из печенькохранилища ту печеньку, которую нужно упаковать. Перед поступлением в хранилище, диаметр каждой печеньки измеряется с точностью до 1 нанометра. На упаковку отправляется печенька, являющаяся медианой среди всех печенек. Что такое медиана? Если мы отсортируем печеньки по возрастанию диаметров, то, если печенек нечетное количество c, то на упаковку идёт печенька на позиции (c+1)/2 в отсортированной последовательности. Если же c – четное число, то печенька на c/2+1 в отсортированной последовательности. Если печеньку отправляют на упаковку, то она пропадает со склада. Ваша задача – промоделировать работу системы упаковки печенек.
Вход: файл input.txt, в каждой входной строке которого содержится либо положительное число d, означающее, что в хранилище поступает новая печенька диаметром d нанометров, либо символ '#', означающий запрос с конвейера по упаковке.
Ограничения: 1 ≤ d ≤ 300 000 000; количество строк ввода не более 600 000; также следует считать, что хранилище пусто до тех пор, пока туда не поступит первая печенька.
Выход: файл output.txt, содержащий несколько строк – после каждого запроса на упаковку в отдельную строку выводится диаметр печеньки, которая отправляется на упаковку.
Примеры
input.txt output.txt
1
2
3
4
#
#
#
# 3
2
1
4
1
#
2
#
3
#
4
# 1
2
3
4
комбинированный тип для представления анкеты ребенка, состоящей из его имени,
пола и роста. Ввести информацию по 20 детям. Вывести имя самого высокого
мальчика. Вывести средний рост мальчиков.
Далее вывести имена всех мальчиков ниже среднего.