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

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

05.07.2013, 04:37. Просмотров 1158. Ответов 1
Метки нет (Все метки)

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

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

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

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

Задано множество целых чисел от 1 до 255. Получить из этого множества новое множество, в которой отсутствуют числа, кратные 3
Задано множество целых чисел от 1 до 255. Получить из этого множества новое множество, в которой...

__________________
1
Модератор
63328 / 47042 / 32425
Регистрация: 18.05.2008
Сообщений: 114,026
05.07.2013, 07:27 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
26
27
28
uses crt;
type sezon=(vs,lt,os,zm);{тип множества}
{массив названий сезонов}
const sz:array[1..4] of string=('весна','лето','осень','зима');
var m1,m2:set of sezon;{множества}
    s:string;{название удаляемого сезона}
    i:sezon;{счетчик сезонов}
    j,k:byte;{счетчики циклов}
begin
clrscr;
m1:=[vs,lt,os,zm];{исходное множество}
repeat
write('Какой сезон исключить: ');
readln(s);
k:=0;{находим номер сезона в массиве}
for j:=1 to 4 do
if s=sz[j] then k:=j;
if k=0 then write('Такого сезона нет, повторите ввод');
until k>0;
m2:=[sezon(k-1)];{заносим в множество сезон на 1 меньше чем k, индексы
в массиве 1..4 в типе 0..3}
m1:=m1-m2;{вычитаем этот сезон}
writeln('Исключение сезона ',s);
for i:=vs to zm do
if i in m1 then
write(sz[ord(i)+1],' ');
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.07.2013, 07:27

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

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

Задано некоторое множество М и множество Т того же типа. Подсчитать, сколько элементов из множеств Т и М совпадает.
Задано некоторое множество М и множество Т того же типа. Подсчитать, сколько элементов из множеств...

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

Массив: Получить 3-е множество путем пересечения двух заданных множеств
Даны 2 множества, получить 3-е множество путем пересечения двух множеств. Удалить все четные...


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

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

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