Надо составить программу в Паскале, которая будет выводить на экран все подмножества множества {1, 2, 3, 4}

@exotic6970 · Регистрация: 05.11.2018

Author24 — интернет-сервис помощи студентам

надо составить программу в Паскале, которая будет выводить на экран все подмножества множества {1, 2, 3, 4}.

Используя тип данных set

@ZX Spectrum-128 · 21.11.2018, 20:10

Pascal
1
2
3
4
5
6
7
8
9
10
var
  q: set of byte;
 
begin
  q := [1, 2, 3, 4];
  writeln(q);
  writeln(q - [1]);
  writeln(q - [1, 2]);
  writeln(q - [1, 2, 3]);
end.

@JuriiMW · 22.11.2018, 09:40

ZX Spectrum-128, а как на счёт [1], [2], [3], [4], [1,2], [1,3] и т.д.?
Их не 4…

@ZX Spectrum-128 · 22.11.2018, 09:42

JuriiMW, да.
Что-то не понял я задачу.

@Cyborg Drone · 22.11.2018, 22:49

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
var
  q: set of byte;
  i, n, k: byte;
  d: string;
 
begin
  for i := 0 to 15 do
    begin
      q := [];
      n := i;
      k := 0;
      while n > 0 do
        begin
          inc(k);
          if n and 1 = 1 then include(q, k);
          n := n shr 1
        end;
      d := '';
      write('[');
      for n := 1 to 4 do
        if n in q then
          begin
            write(d, n);
            if length(d) = 0 then d := ', '
          end;
      writeln(']')
    end;
  readln
end.

Новые блоги и статьи Все статьи Все блоги /
Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .	SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .
Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .	Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .

@exotic6970 0 / 0 / 0 Регистрация: 05.11.2018 Сообщений: 33

	Надо составить программу в Паскале, которая будет выводить на экран все подмножества множества {1, 2, 3, 4} 21.11.2018, 19:43. Показов 2246. Ответов 4 Метки нет (Все метки) надо составить программу в Паскале, которая будет выводить на экран все подмножества множества {1, 2, 3, 4}. Используя тип данных set 0

@JuriiMW 5090 / 2659 / 2352 Регистрация: 10.12.2014 Сообщений: 10,055
	22.11.2018, 09:40
	ZX Spectrum-128, а как на счёт [1], [2], [3], [4], [1,2], [1,3] и т.д.? Их не 4… 0

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	22.11.2018, 09:42
	JuriiMW, да. Что-то не понял я задачу. 0

Опции темы

Надо составить программу в Паскале, которая будет выводить на экран все подмножества множества {1, 2, 3, 4}

Решение