Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 06.04.2013
Сообщений: 15
1

Задано множество, содержащее все дни недели от понедельника до воскресенья

08.04.2013, 11:33. Показов 1118. Ответов 1
Метки нет (Все метки)

1. Ввести множество, запись или строку с помощью клавиатуры.
2. Вывести на экран монитора исходную запись, множество или строку.
3. Выполнить необходимые преобразования над исходным множеством, записью
или строкой, а также выполнить необходимые вычисления.
4. Вывести на экран монитора преобразованное множество, запись или строку, а
также вывести результаты вычислений.

Задано множество, содержащее все дни недели от понедельника до воскресенья.
Получить из этого множеств новое множество путем исключения двух
произвольных дней.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.04.2013, 11:33
Ответы с готовыми решениями:

Задано множество, содержащее все сезоны года от весны до зимы. Получить из этого множеств новое множество путем исключения одного сезона
Задано множество, содержащее все сезоны года от весны до зимы. Получить из этого множеств новое...

Задано множество, содержащее все месяцы года от января до декабря.
ПОРЯДОК ВЫПОЛНЕНИЯ ЛАБОРАТОРНОЙ РАБОТЫ 1. Ввести множество, запись или строку с помощью...

Пусть задано множество А, напечатать в алфавитном порядке все согласные буквы этого множества, входящих в множество letters=[‘a’..’я’].
Решите Пожалуйста !!!

Определить тип «дни недели» и выдать все «черные» пятницы года
Используя перечисляемый тип, определить тип «дни недели» и выдать все «черные» пятницы этого года...

__________________
1
Модератор
63335 / 47046 / 32428
Регистрация: 18.05.2008
Сообщений: 114,040
08.04.2013, 11:58 2
Лучший ответ Сообщение было отмечено Mikael_Akopyan как решение

Решение

Поскольку множество задано, вводить его не нужно.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
uses crt;
type ned=(pn,vt,sr,ct,pt,sb,vs);
     mnz=set of ned;
const dn:array[ned] of string=('понедельник','вторник','среда','четверг',
                                'пятница','суббота','воскресенье');
var m:mnz;
    i:ned;
    i1,i2:byte;
begin
clrscr;
m:=[pn,vt,sr,ct,pt,sb,vs];
writeln('Заданние множество:');
for i:=pn to vs do
write(dn[i],' ');
writeln;
repeat
writeln('Какие 2 дня исключить от 0 до 6:');
readln(i1,i2);
until(i1 in [0..6])and(i2 in [0..6])and(i1<>i2);
m:=m-[ned(i1)]-[ned(i2)];
writeln('Полученное множество:');
for i:=pn to vs do
if i in m then write(dn[i],' ');
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.04.2013, 11:58

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Создайте множество, содержащее все простые числа из диапазона
Создайте множество, содержащее все простые числа из диапазона .

Построить множество, содержащее все гласные буквы, которые входят в каждое слово
Исходными данными для программы является текст - слова из строчных русских букв, разделенные...

Построить множество, содержащее все цифры, не входящие в десятичную запись натурального числа n
Помогите пожалуйста, нужно сделать лабораторную работу, работа с множествами на Паскале. Вот...

Известно, в какие дни года были воскресенья. Узнать, в каком году это было
Вообще не пойму, как делать эту задачу. Вот более чёткое условие: Известно, что 1.01.****,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.