Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal списки слов,паскаль https://www.cyberforum.ru/ pascal/ thread793962.html
Дана непустая последовательность слов, в каждом из которых содержится от 1 до 6 заглавных латинских букв; соседние слова разделены запятой, за последним словом следует точка. В качестве внутреннего...
Pascal Сложение двуичных дробей
Сообствено задача следующая: сложить двоичные дроби в прямом коде (с фиксированной запятой).
Найти произведение двух комплексных матриц Pascal
Комплексная матрица Z представляется парой X, Y действительных матриц так, что . Даны действительные квадратные матрицы A, B, C и D порядка m. Найти произведение двух комплексных матриц и , т.е....
Pascal работа с алфавитом Приветствую! Расскажите как можно обращаться к алфавиту?? мне необходимо чтобы каждому эл-ту алфавита соответствовал порядковый номер: А-0 B-1 C-2 и тд и можно было обращаться к символам через... https://www.cyberforum.ru/ pascal/ thread793939.html
Pascal Массив: Получить матрицу А2(в квадрате) https://www.cyberforum.ru/ pascal/ thread793863.html
Помогите с задачей. Дана квадратная матрица порядка n. Получить матрицу А2(в квадрате)
Процедуры и функции: Определить функцию для расчета гипотенузы прямоугольного треугольника по его катетам Pascal
Периметр фигуры abcd. Определить функцию для расчета гипотенузы прямоугольного треугольника по его катетам
Pascal Написать процедуру вычисления суммы периметров треугольников
Заданы стороны двух треугольников. Найти сумму их периметров (определить процедуру для расчета периметров).
Pascal Полибианский квадрат в Паскале Полибианский квадрат, заполненный случайным образом 25 буквами английского алфавита. При шифровании в этом полибианском квадрате находили очередную букву открытого текста и записывали в шифрованный... https://www.cyberforum.ru/ pascal/ thread793592.html
Pascal Найти одинаковые слова в строке https://www.cyberforum.ru/ pascal/ thread793557.html
Готовая задачка, но есть один недочет, если ввести текст и задать искомое слово "mobile" : mobile mobile mobile , то он в ответ напишет 3, но если написать: mobile mobile, mobile ,то он в ответе...
Pascal Работа с двунаправленным списком Доброе время суток, дорогие форумчане. Сообственно дана такая задача: после каждого чётного элемента двунаправленного списка вставить 10. Типы: Type TPREc = ^ TRec; TRec = record ... https://www.cyberforum.ru/ pascal/ thread793553.html
168 / 90 / 80
Регистрация: 07.10.2012
Сообщений: 145
25.02.2013, 21:56 0

Есть н цветов разных видов. Составьте все возможные сочетания букетов из всех этих цветов. Количество цветов и их названия вводит пользователь

25.02.2013, 21:56. Просмотров 2333. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено leshabests как решение

Решение


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
    n, i, j :longint;
    s :array[0 .. 1000] of string;
begin
    assign(input, 'in');
    reset(input);
    assign(output, 'out');
    rewrite(output);
 
    readln(n);
 
    for i := 0 to n - 1 do 
        readln(s[i]);
 
    for i := 1 to (1 shl n) - 1 do begin
        for j := 0 to n - 1 do
            if ((i and (1 shl j)) > 0) then
                write(s[j], ' ');
        writeln;
    end;
end.


Вернуться к обсуждению:
Есть н цветов разных видов. Составьте все возможные сочетания букетов из всех этих цветов. Количество цветов и их названия вводит пользователь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.02.2013, 21:56
Готовые ответы и решения:

Вычислить количество способов, которыми можно купить букет из 3 роз двух цветов, если в продаже имеются розы 3 цветов: белые, розовые и красные.
Здравствуйте дорогие форумчане нужна ваша помощь нужно посмотреть вот эту задачу если не тродно ...

Задать два перечислимых типа: первый - коды цветов, второй - названия цветов
Задать два перечислимых типа: первый коды цветов, второй - названия цветов. Вводится имя цвета,...

Получить из множества цветов спектра новое множество путем исключения трех цветов
Задано множество, содержащее все цвета светового спектра от красного до фиолетового. ...

Сочетания без повторений 6 из 28 шаров трех разных цветов
Имеется 10 белых, 7 красных и 11 желтых шаров, нужно выбрать два белых, один красный и три жёлтых...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
1
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.