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

Переведите, пожалуйста, код с TP на С++ - C++

Восстановить пароль Регистрация
 
ChessHorse
Сообщений: n/a
23.02.2010, 18:16     Переведите, пожалуйста, код с TP на С++ #1
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
var
  c: array[0..30] of integer;
  i,r,ma,number,j,l: integer;
  x,a,k: longint;
begin
  Assign(input,'input.txt');
  Reset(input);
  Assign(output,'output.txt');
  Rewrite(output);
  Read(x);
  a:=x;
  k:=1;
  c[30]:=0;
  For i:=1 to 29 do k:=k*2;
  For i:=29 downto 0 do
    Begin
      c[i]:=a div k;
      a:=a-k*(a div k);
      k:=k div 2;
    End;
  i:=-1;
  repeat
    inc(i);
  until (c[i]=1) and (c[i+1]=0);
  c[i]:=0;
  c[i+1]:=1;
  For j:=0 to i-2 do
    Begin
      ma:=c[0]; number:=0;
      For l:=1 to (i-1-j) do
        If c[l]<ma then
        begin
          ma:=c[l];
          number:=l;
        end
        else;
      r:=c[i-1-j];
      c[i-1-j]:=c[number];
      c[number]:=r;
    end;
  a:=0; k:=1;
  For i:=0 to 30 do
    Begin
      a:=a+c[i]*k;
      k:=k*2;
    End;
  Write(a);
  close(input);
  close(output);
end.
буду очень благодарен
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.02.2010, 18:16     Переведите, пожалуйста, код с TP на С++
Посмотрите здесь:

переведите с Паскаля на си++ пожалуйста! C++
переведите с Паскаля на си++ пожалуйста! C++
C++ Переведите пожалуйста прогамму на С++
C++ Переведите пожалуйста прогу)
Переведите, пожалуйста, с паскаля на C++ C++
переведите, пожалуйста, код паскаля в с++ C++
C++ Переведите пожалуйста с CLIPS на C++
C++ Пожалуйста, переведите с Pascal на C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

Текущее время: 09:43. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru