0 / 0 / 0
Регистрация: 21.02.2019
Сообщений: 1
1

Перевод из паскаль в С++

21.02.2019, 17:44. Показов 264. Ответов 0

Кто нибудь,может перевести Pascal в C++

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
function NextPermutation(Text: String): String;
var i,j,k,n: Integer;
procedure Swap(k1,k2: Integer);
var c: Char;
begin
  c:=Text[k1];
  Text[k1]:=Text[k2];
  Text[k2]:=c;
end;
begin
  n:=Length(Text);
  for i:=n-1 downto 1 do
    if Text[i]<Text[i+1] then begin
      k:=i+1;
      for j:=i+1 to n do if (Text[j]<Text[k]) and (Text[j]>Text[i]) then k:=j;
      Swap(i,k);
      for j:=1 to (n-i) div 2 do Swap(i+j,n-j+1);
      Result:=Text;
      Exit;
    end;
  Result:='';
end;
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.02.2019, 17:44
Ответы с готовыми решениями:

Перевод с С++ в Паскаль
Памагите перевисти з С++ в Паскаль оч нужна пажалуста: case 3 : //Пошук за введеним імям номеру...

Перевод с Паскаль на С++
Привет всем.Помогите перевести с паскаля на C++ этот код: const n = 100; var arr:...

Перевод с С++ на Паскаль
Нужно написать программу на C++, но мне удалось найти только вариант на паскале, его мы не изучали,...

Перевод из си в паскаль
#include &lt;stdio.h&gt; #include &lt;stdlib.h&gt; int main(int argc, char ** argv) { const int size...

0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.02.2019, 17:44

перевод из С в паскаль.
есть код в с++, его надо в паскаль переделать, а мне паскаль как-то уж очень чужой... помогите,...

Перевод из С++ в Паскаль
Здравствуйте, помогите перевести из С++ с Паскаль #include&lt;iostream.h&gt; #include&lt;math.h&gt; int...

Перевод из с++ в паскаль
помогите пожалуйста перевести // Создать счетчики. // data-сортируемый массив, counters-массив...

перевод из си++ в паскаль
for (int j = max(0, i - (n - m)); j &lt;= i &amp;&amp; j &lt;= m; ++j) Как перевести эту строчку, а именно &quot;j...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru