Форум программистов, компьютерный форум CyberForum.ru

Множества....В N колхозах выращивают некоторые сельскохозяйственные культуры из имеющегося перечня. Определить культуры: - C++

Восстановить пароль Регистрация
 
Alisa22
-1 / 1 / 0
Регистрация: 14.06.2010
Сообщений: 75
18.05.2011, 11:21     Множества....В N колхозах выращивают некоторые сельскохозяйственные культуры из имеющегося перечня. Определить культуры: #1
В N колхозах выращивают некоторые сельскохозяйственные культуры из имеющегося перечня. Определить культуры:

• возделываемые во всех колхозах;

• возделываемые только в некоторых колхозах.

Помогите переделать на С++

Листинг:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
program z8;
uses Crt;
type
kul = (картофель,марковь,свекла,кукуруза,рапс,пшеница);
const
mas : array[0..5] of string = ('картофель','марковь','свекла','кукуруза','рапс','пшеница');
var
a,b,c:set of kul;
d:integer;
r:kul;
begin
clrscr;
a:=[картофель,свекла,рапс];
b:=[картофель,рапс,свекла];
c:=[свекла,картофель,пшеница];
writeln('возделываемые во всех колхозах: ');
d:=0;
for r := картофель to пшеница do
 begin
 if (r in a) and (r in b) and (r in c) then
  begin
   write(mas[ord(r)],'  ');
   d:=1;
  end;
 end;
if d=0 then writeln('культур нет');
writeln;
writeln;
writeln('возделываемые только в некоторых колхозах: ');
d:=0;
for r:= картофель to пшеница do
 begin
 if not (r in a) and not (r in b) and not (r in c) then
  begin
   write(mas[ord(r)],'  ');
   d:=1;
  end;
 end;
if d=0 then writeln('культур нет');
readln
end.
 Комментарий модератора 
Используйте теги форматирования кода!
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.05.2011, 11:21     Множества....В N колхозах выращивают некоторые сельскохозяйственные культуры из имеющегося перечня. Определить культуры:
Посмотрите здесь:

Дана строка, содержащая текст на русском языке и некоторые 2 слова. Определить, сколько раз они входят непосредственно друг с другом. C++
C++ Есть список игрушек, некоторые из которых имеются в N детских садах. Определить игрушки из списка:
C++ Дан текст и некоторые два слова. Определить, сколько раз они входят в текст и...
C++ Главная функция (вводит некоторые значения и передает их и ссылки на некоторые переменные в функцию)
C++ По перестановке определить его номер в лексикографическом перечислении всех перестановок множества
C++ Определить, является ли множество X подмножеством множества Y
C++ Множества. Определить сорта роз, которые имеются у каждого из цветоводов
Из заданного множества int чисел определить максимальное подмножество C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 11:21. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru