Форум программистов, компьютерный форум, киберфорум
Наши страницы

опять комбинаторика (с одного языка на другой) - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Вывод кода символа в шестнадцатиричной системе счисления http://www.cyberforum.ru/cpp-beginners/thread174309.html
Добрый вечер! У меня возник вопрос. Программа разделяет символьную строку (любую) на группы символов, коды которых заканчиваются одной цифрой в системе счисления по основанию 16. Результат...
C++ Чередование знаков Подскажите, как организовать чередование знаков --++--++... +-+-+ знаю что -1^(n-1), а по два знака? http://www.cyberforum.ru/cpp-beginners/thread174298.html
C++ Преобразовать дату
Гении С++, вы моя последняя надежда... Задали мне задачу по программированию. Она простая, буквально делается за 10 мин, но с С++ я не дружу, поэтому сюда и пишу... Вообще ничего не получается. Если...
Шифрование непрерывным способом на нелинейной обратной связи C++
Доброго времени суток, форумчане! Объясните пожалуйста(желательно на конкретном примере) как осуществить непрерывное шифрование на нелинейной обратной связи?
C++ Обьявление переменных в циклах и до http://www.cyberforum.ru/cpp-beginners/thread174278.html
Возник вопрос почему? Без обьявления int x = 1; до цикла возникает ошибка при компиляции программы ... Хотя в книжке обьявление типа и начального значения делаеться в цикле >= for (здесь) НА...
C++ Простейший калькулятор Калькулятор считает сумму, разность, произведение и частное двух чисел a и b Код: #include <stdio.h> #include <conio.h> int main() { float a,b; char ch; подробнее

Показать сообщение отдельно
Галочка Громова
1 / 1 / 0
Регистрация: 10.02.2010
Сообщений: 36

опять комбинаторика (с одного языка на другой) - C++

09.10.2010, 21:37. Просмотров 1445. Ответов 6
Метки (Все метки)

Привет всем. Нужна помощь!!!
Перевести эту программу на СИ (это, наверно, pascal), мало что понимаю

(выводит число размещений с повторениями)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
N, M: Integer;
 
procedure ArrangementRep(Nabor: string; Place: Integer);
var
i: Integer;
begin
if Place > M then
Memo1.Lines.Add(Nabor)
else
for i := 1 to N do
ArrangementRep(Nabor + IntToStr(i) + ' ', Place + 1);
end;
 
begin
N := 5;
M := 3;
ArrangementRep('', 1);
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru