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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Frequencies
0 / 0 / 2
Регистрация: 25.09.2011
Сообщений: 49
#1

Перевод с Pascal в С++ (Генерирование перестановок) - C++

14.05.2012, 12:34. Просмотров 416. Ответов 0
Метки нет (Все метки)

Помогите плз с переводом на плюсы
Требуется "Генерирование перестановок с минимальным числом транспозиций соседних элементов", поиском не удалось найти

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
var p,pc:array[1..100] of integer;
    pr:array[1..100] of boolean;
    n:integer;
 
procedure perm;
var i,x,k,d:integer;
begin
  for i:=1 to n do begin p[i]:=i;pc[i]:=1;pr[i]:=true end;
  pc[n]:=0;i:=1;
  act;
  while i < n do begin
    i:=1;x:=0;
    while pc[i]=n-i+1 do begin
      pr[i]:=not pr[i];pc[i]:=1;
      if pr[i] then inc(x);inc(i)
    end;
    if i < n then begin
      if pr[i] then k:=pc[i]+x
      else k:=n-i+1-pc[i]+x;
      d:=p[k];p[k]:=p[k+1];p[k+1]:=d;
      act;
      inc(pc[i])
    end;
  end;
end;
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.05.2012, 12:34
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевод с Pascal в С++ (Генерирование перестановок) (C++):

Функция перестановок букв с Pascal на С. - C++
Здравствуйте всем. Помогите пожалуйста начинающему программисту на C. У меня есть процедура(функция) на Pascal которая выводит все...

Путем перестановок строк и столбцов элемент переместить в правый верхний угол подмассива (С Turbo Pascal на C++) - C++
Можете программу преобразовать в C++?? Задан двумерный массив N x N. Последовательно рассматриваются квадратные подмассивы, правый...

Перевод из Pascal на C++ - C++
Народ! Помогите пожалуйста перевести код из Паскаля в C++ const w:array of real=(1.5,-1,0.5); type fly=class ...

Перевод из Pascal на C++ - C++
Помогите перевести программу из Pascal на С++ program lab; const N=30; var A:array of real; i,k:integer; S:real; begin ...

Перевод с pascal на c++ - C++
Вообще не знаю pasсal, нужен перевод. program aaa; Type mas=array of integer; Var a: array of integer; s, d:mas; {массив элементов...

Перевод с Pascal на С++ - C++
Ребят, кому не сложно,переведите пожалуйста.Буду благодарна. program z1; var n,s,i : integer; begin write('n = '); ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.05.2012, 12:34
Привет! Вот еще темы с ответами:

Перевод из Pascal в С++ - C++
Можно пожалуйста перевести в С++ и сделать ее рандомной. Еще у меня не получается вывести на печать номера столбцов в которых заданы...

Перевод с Pascal на C++ - C++
Помогите пожалуйста перевести код с Pascal на C++, паскаль совсем не знаю. Задание :Дана строка символов, в конце которой стоит точка....

Перевод с С++ на Pascal - C++
Спичечная модель Профессор Самоделкин решил изготовить объемную модель кубиков из спичек, используя спички для рёбер кубиков. Длина...

Перевод с pascal на c++ - C++
помогите перевести следующий текст с pascal на c++ uses crt; var mas: array of integer; i,a,b,min,max,r:integer; begin ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru