| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > C/C++: Общие вопросы > Помогите перенести исходник с Паскаля на С++ |
| Автор: Fumoffu 20.5.2006, 19:00 |
| Помогите пожалуйста с исходником. Вот кусочек моей курсовой, но он на Паскале. Кто может его на С++ перенести, буду очень благодарен. 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 | ||
Вообще гворя, это не в эту тему. Ну а так, т. к. сказать наглая копия (в коде абсолютно не разбирался, просто 'перевёл'):
ЗЫ У тебя почему-то x[0] точно не используется, но существует. У тебя нет ошибок? |