Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal По заданному номеру месяца m вывести на печать название времени года. По заданному номеру месяца m вывести на печать название времени года. https://www.cyberforum.ru/ turbo-pascal/ thread715196.html	Выяснить, принадлежит ли число, введенное с клавиатуры, интервалу Turbo Pascal Составить программу, проверяющую, принадлежит ли число, введенное с клавиатуры, интервалу (1; 5).
Turbo Pascal Написать программу которая сравнивает возраст брата и сестры https://www.cyberforum.ru/ turbo-pascal/ thread715177.html Составьте программу, которая сравнивает возраст брата и сестры и выводит соответствующее сообщение.	Turbo Pascal Вычислить функцию https://www.cyberforum.ru/ turbo-pascal/ thread715171.html Решить задачи с использованием: 1)Процедура без параметров. 2)Процедура с параметрами. 3)Процедура с переменными параметрами. Дано: y=sqr(x)+2*x+7; 1)Найти y, при х введенным юзером. 2)Протаблировать функцию на промежутке a:d, с шагом h. 3)При каких х, y=0.
Замена exit Turbo Pascal Вот исходная программа: Program Lab77; uses crt; var a,b:boolean; c,d,proverka10,proverka20:integer; proverka1, proverka11: char; str1, str2: string; begin clrscr; writeln('Программа для вывода поясняющей информации на экран в зависимости от выполнения заданных условий');	Turbo Pascal Простые векторы https://www.cyberforum.ru/ turbo-pascal/ thread715155.html Это натуральное число (n) и его (X) вектор. -Создать нового (Y) вектора (блок схему и программу) так, чтобы она перечисляла первую очередь простые элементы, потом другие, Данные элементы вектора заранее сделать по целому типу (integer) .. если можно по проще без процедур randomize и randoma. (Вход процедура - Выход окном.). за ранее спасибо..:-!:-!:-[
Turbo Pascal Необходимо выполнить проверку корректности вводимых данных (параметры должны быть неотрицательными числовыми значениями) https://www.cyberforum.ru/ turbo-pascal/ thread715151.html Здравствуйте! Нужно написать программу вычисления объема цилиндра, но вся хитрость (по крайней мере для меня) состоит в том, что необходимо выполнить проверку корректности вводимых данных (параметры цилиндра должны быть неотрицательными числовыми значениями). Вот полное условие задачи: Написать программу вычисления объема цилиндра: Выполнить проверку корректности вводимых данных (параметры...	Turbo Pascal Найти сумму всех натуральных чисел, кратных 5, от 25 до 100 включительно 1. Найти сумму всех натуральных чисел, кратных 5, от 25 до 100 включительно. 2. Протабулюваты функцию у = 2 (х-3) +7 на отрезке с шагом 0,5 3. Вычислить сумму в сих недодатних чисел с промежутками целых чисел Помогите сделать пожалуйста
Turbo Pascal Циклы 1. Можно ли организовать циклический вычислительный процесс на языке Pascal без использования операторов цикла? 2. В каком из операторов цикла языка Pascal тело цикла выполняется хотя бы один раз? 3. Различия между операторами цикла repeat-until и while? 4. Каково значение шага в операторе "цикл с шагом" в языке Pascal? 5. Какое значение имеет параметр цикла при выходе из цикла ("цикл с... https://www.cyberforum.ru/ turbo-pascal/ thread715122.html	Turbo Pascal . Преобразовать массив H(n,n), разделив все элементы на мак-симальный элемент К-го столбца: Помогите плиз!!!! https://www.cyberforum.ru/ turbo-pascal/ thread715114.html
Операция удаления в строке Turbo Pascal Необходимо написать программу, которая удаляет группу символов в строке между круглыми скобками, включая сами скобки. Строку следует брать из файла input.txt, а полученный результат вставить в output.txt. В input.txt я ввел строку: Утро (вечера) мудреней. В output.txt должно появиться: Утро мудреней. Вот сама программа: Program ace; Var a,b: String; f1, f2: Text; Begin ...	Turbo Pascal Упорядочение элементов массива https://www.cyberforum.ru/ turbo-pascal/ thread715097.html Помогите решить. 1)Вычислить значение 34 элементов одномерного целочисленного массива D в интервале (-10,10) с использованием генератора случайных чисел. 2)Вычислить среднеарифметическое значение ненулевых элементов второй четверти массива. 3)Определить наименьший по модулю элемент среди четных по номеру элементов всего массива. 4)Упорядочить отрицательные элементы последней трети массива по...

Puporev

Почетный модератор

64300 / 47595 / 32743

Регистрация: 18.05.2008

Сообщений: 115,181

01.12.2012, 15:29

Генерация подмножеств заданной размерности - Turbo Pascal - Ответ 3783611

01.12.2012, 15:29. Показов 1555. Ответов 3

Метки (Все метки)

Ответ

Pascal

uses crt;
const n=6;
      m=3;//задаете или вводите количество цифр
Type NumSet=array[1..n] of byte;
var A,B:NumSet;
i,j:integer;
Procedure WriteSubSet(j:integer);
var i:integer;
begin
if j=m then
 begin
  for i:=1 to j do write(b[i],'/');
  writeln;
 end;
end;
Procedure SubSet (k:integer);
begin
if k<=n
then begin
Inc(j);
b[j]:=a[k];
WriteSubSet(j);
SubSet (k+1);
Dec(j);
SubSet(k+1);
end
end;
begin
for i:=1 to N do A[i]:=i;
j:=0;
SubSet(1)
end.

Вернуться к обсуждению:
Генерация подмножеств заданной размерности Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

01.12.2012, 15:29

Готовые ответы и решения:

генерация подмножеств и дерево Штейнера
Добрый вечер, нужна помощь, я учу C#, нужно написать 2 программы, не знаю, с чего начать,...

Генерация к-подмножеств из множества с n элементами
Ребят, такой вопрос, не могу переделать код c Pascal на C. Генерация k-подмножеств из множества с n...

Генерация всех подмножеств множества
Создать програму которая будет генерировать все подмножества множества

Delphi и Phyton генерация подмножеств
Помогите с заданием : "Генерировать все подмножества заданного N-элементного множества" в делфи и...

	01.12.2012, 15:29

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

01.12.2012, 15:29

Помогаю со студенческими работами здесь

Генерация подмножеств множества(Бинарный код)
Алгоритмы теории множеств нередко применяются в программировании. В этой статье я хочу поговорить о...

Генерация всех подмножеств данного множества
Друзья, помогите написать программку в консольном приложении VS 2008, задание такое: Генерация...

Генерация всех подмножеств заданного n-элементного множества
помогите найти ошибку в коде задание было "Генерировать все подмножества заданного N-элементного...

Генерация всех подмножеств n-элементного множества (Pascal -> Delphi)
var n,i:integer; a:array of integer; begin write('n = '); readln(n); SetLength(a,n+1); while...

Наверх