Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > C/C++: Общие вопросы > Помогите перенести исходник с Паскаля на С++


Автор: Fumoffu 20.5.2006, 19:00
Помогите пожалуйста с исходником. Вот кусочек моей курсовой, но он на Паскале. Кто может его на С++
перенести, буду очень благодарен.  smile . Программа выводит на экран n! перестановок чисел от 1 до n.

 program Perestanovki;
      type Pere=array [byte] of byte;
      var N,i,j:byte;
      X:Pere;
      Yes:boolean;
      procedure Next(var X:Pere;var Yes:boolean);
    var i:byte;
    procedure Swap(var a,b:byte);  {обмен переменных}
      var c:byte;
    begin c:=a;a:=b;b:=c end;
      begin
    i:=N-1;
    {поиск i}
    while (i>0)and(X[i]>X[i+1]) do dec(i);
    if i>0 then
      begin
        j:=i+1;
        {поиск j}
        while (j<N)and(X[j+1]>X[i]) do inc(j);
        Swap(X[i],X[j]);
        for j:=i+1 to (N+i) div 2 do Swap(X[j],X[N-j+i+1]);
        Yes:=true
      end
    else Yes:=false
      end;
    begin
      write('N=');readln(N);
      for i:=1 to N do X[i]:=i;
      repeat
    for i:=1 to N do write(X[i]);writeln;
    Next(X,Yes)
      until not Yes
    end.

 

Автор: Любитель 20.5.2006, 23:26
Вообще гворя, это не в эту тему. Ну а так, т. к. сказать наглая копия (в коде абсолютно не разбирался, просто 'перевёл'):
Код

#include <iostream>

using std::cout;
using std::cin;
using std::endl;

typedef unsigned char byte;

byte N, i, j, x[256];
bool yes;

void Swap(byte &a, byte &b)
{
     byte c = a;
     a = b;
     b = c;
}

bool Next(byte x[])
{
     byte i, j;
     for (i = N-1; i>0 && x[i]>x[i+1]; --i);
     if (i > 0)
     {
           for (j = i+1; j<N && x[j+1]>x[i];++j);
           Swap(x[i],x[j]);
           for (j = i+1; j < (N+i)/2; ++j)
              Swap(x[j],x[N-j+i+1]);
           return true;
     }
     return false;
}

int main()
{
   cout << "N = ";
   cin >> N;
   for (i = 1; i < = N; X[i++] = i);
   do
     for (i = 1; i <= N; cout << x[i++] << endl);
   while Next(x);       
}


ЗЫ У тебя почему-то x[0] точно не используется, но существует. У тебя нет ошибок? 

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)