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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Множества.Напечатать в алфавитном порядке все звонкие согласные буквы, которые входят хотя бы в одно слово. http://www.cyberforum.ru/cpp-beginners/thread298479.html
Дан текст на русском языке. Напечатать в алфавитном порядке все звонкие согласные буквы, которые входят хотя бы в одно слово. Помогите переделать с Паскаля на С++. Листинг: Program mn_3;...
C++ min/max поставок и потребления.с подпрограммой Пожалуйста помогите. Вопрос жизни и смерти! даны массивы: N1,...N10-наименование предприятий PS1,...PS10-объемы поставок PT1,...PT10-объемы потребления Указать предприятия с min и max... http://www.cyberforum.ru/cpp-beginners/thread298464.html
C++ Сервер занят (word)
кто может объяснить объяснить по какой причине вылетает такая ошибка? делаю так, создаю глобальные переменные: _Application app; Documents oDocs; _Document oDoc; COleVariant...
C++ Объектно-ориентированное программирование
Составить описание класса одномерных массивов строк, каждая строка которых задается длиной и указателем на выделенную для нее память. Предусмотреть возможность обращения к отдельным строкам массива...
C++ Составить программу которая переворачивает список L, изменяет ссылки в этом списке так, чтобы его элементы оказались расположенными в обратном порядке http://www.cyberforum.ru/cpp-beginners/thread298440.html
Составить программу, которая переворачивает список L, т.е. изменяет ссылки в этом списке так, чтобы его элементы оказались расположенными в обратном порядке.
C++ Произведение n первых нечетных чисел равно р. Сколько сомножителей взято? Произведение n первых нечетных чисел равно р. Сколько сомножителей взято? Если введенное число n не является указанным произведением, сообщить об этом. подробнее

Показать сообщение отдельно
Alisa22
-1 / 1 / 0
Регистрация: 14.06.2010
Сообщений: 75

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

18.05.2011, 11:21. Просмотров 1071. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.