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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Alisa22
-1 / 1 / 0
Регистрация: 14.06.2010
Сообщений: 75
#1

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

18.05.2011, 11:21. Просмотров 1010. Ответов 0
Метки нет (Все метки)

В 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.
 Комментарий модератора 
Используйте теги форматирования кода!
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.05.2011, 11:21
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Множества....В N колхозах выращивают некоторые сельскохозяйственные культуры из имеющегося перечня. Определить культуры: (C++):

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

Множества.В N колхозах выращивают некоторые сельскохозяйственные культуры из имеющегося перечня. Определить ку - Turbo Pascal
Переделать код,чтобы там были множества.Или написать новый код с множествами. program z8; uses Crt; type kul =...

Определить культуры, возделываемые во всех колхозах - Turbo Pascal
В N колхозах выращивают некоторые сельскохозяйственные культуры из имеющегося перечня. Определить культуры: • возделываемые во всех...

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

Определить культуры возделываемые во всех колхозах - Turbo Pascal
в 3 колхозах выращивают некоторые сельскохозяйственные культуры из имеющегося перечня.Определить культуры: -Возделываемые во всех...

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

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.05.2011, 11:21
Привет! Вот еще темы с ответами:

На трех участках возделывают сельскохозяйственные культуры - Pascal
Ребят помогите плиз! 6. На трех участках возделывают сельскохозяйственные культу¬ры. Известны виды культур, выращиваемых на каждом из...

Настройки культуры для сервера - C# ASP.NET
Добрый день. Появилась вот такая вот проблема. Есть страница Default.aspx с следующим кодом в обработчике On_Load. string...

Принудительная смена культуры всех потоков - C#
Добрый день. Имеется однооконное приложение WinForms с локализацией (русский и английский языки). Для принудительной смены языка на...

Множества: определить, какие овощи выращивают на всех участках - Turbo Pascal
на трех участках выращивают овощи. определить какие овощи выращивают на всех участках, хотябы на одном, ни на одном


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

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

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