Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.10.2015, 11:20   #1
Іван Савків
 
Регистрация: 06.10.2015
Сообщений: 7
По умолчанию Составить программу, которая генерирует подмножества, мощности <=sqrt(n), где n - мощность данного множества

Вот моя програма, надо зделать как описано выше

Код:
program z1;
uses crt;
var
 n,i:integer;
 a:array [0..10] of integer;
begin
write('n=');
readln(n);
for i:=0 to n do a[i]:=0;
a[n]:=1;
write('{} ');
while a[0]=0 do
 begin
  write('{');
  for i:=1 to n do
  if a[i]=1 then write(' ',i);
  write('} ');
  i:=n;
  while a[i]=1 do
   begin
    a[i]:=0;
    dec(i);
   end;
  inc(a[i]);
 end;
end.

Последний раз редактировалось Аватар; 22.10.2015 в 11:47.
Іван Савків вне форума Ответить с цитированием
Старый 22.10.2015, 11:49   #2
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Что такое множество в терминах задания?
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 22.10.2015, 11:51   #3
Іван Савків
 
Регистрация: 06.10.2015
Сообщений: 7
По умолчанию

ето числовой массив до 10 елементов

Последний раз редактировалось Іван Савків; 22.10.2015 в 12:28.
Іван Савків вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Написать программу(на языке с++), которая составляет(генерирует) календарь игр SVD102 Помощь студентам 0 08.04.2015 08:19
Ошибка в коде. Из числового множества A мощности n выбрать все подмножества FYNZIK Помощь студентам 0 25.05.2014 22:19
Ошибка в коде.С числовой множества A мощности n выбрать все подмножества FYNZIK Общие вопросы C/C++ 0 24.05.2014 14:39
написать программу, которая генерирует массив из 100 элементов в диапазоне от -50 до 30 и сортирует его... язык КУМИР Сегин Новичков Помощь студентам 0 16.05.2014 17:14
Нуждаюсь, язык С, С числовой множества A мощности n выбрать все подмножества, сумма элементов каждого из которых лежит в пределах FYNZIK Помощь студентам 0 16.02.2014 21:00