Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

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

Ответ
 
Опции темы
Старый 26.03.2010, 15:16   #1
maribel1
Новичок
 
Регистрация: 26.03.2010
Сообщений: 1
Репутация: 10
По умолчанию Как вывести все комбинации чисел, состоящие из 10 единиц и 10 двоек?

Задача: есть два столбца, в одном 10 единиц, в другом 10 двоек. Как вывести все комбинации чисел, состоящих из 10 единиц и 10 двоек? Начиная с числа 1 и закончится комбинация должна цифрой 22222222221111111111. Как вывести все промежуточные цифры?

Последний раз редактировалось maribel1; 26.03.2010 в 15:18.
maribel1 вне форума   Ответить с цитированием
Старый 26.03.2010, 17:45   #2
doober
Профессионал
 
Аватар для doober
 
Регистрация: 02.05.2009
Адрес: Леса Мордовии
Сообщений: 3,901
Репутация: 650

skype: d_ober1
По умолчанию

Элементарно,только зачем это надо
Код:


 Sub What_for_it_is_necessary()
  Dim rez, rezult As String
   Dim Md As Long: Dim mm As Long: Dim n As Long
 For n = 0 To 1047552
   mm = n: rez = ""
 Do While mm >= 2
      Md = mm Mod 2
      mm = Int(mm / 2)
      rez = Md & rez
     Loop
 rezult = rezult & mm & rez & vbCrLf
Next
rezult = Replace(rezult, 1, 2)
rezult = Replace(rezult, 0, 1)
End Sub

__________________
Анализ,обработка данных Недорого

Последний раз редактировалось doober; 26.03.2010 в 19:47.
doober вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как присвоить все три значения вектору В и вывести его как массив столбец при вызове функции Tomoa Microsoft Office Excel 8 08.03.2010 21:42
Найти слова, состоящие только из согласных букв и вывести их на экран Кипятилка Паскаль 5 29.06.2009 18:52
как вывести все имеющиеся файлы в каталоге на экран? Almost456 Паскаль 2 24.12.2008 21:44
Как вывести все целые степени числа? riorio07 Паскаль 1 20.05.2008 11:47


20:31.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru