С Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы

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

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

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

23.02.2010, 18:16. Просмотров 284. Ответов 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
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.
буду очень благодарен
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.02.2010, 18:16
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Переведите, пожалуйста, код с TP на С++ (C++):

переведите, пожалуйста, код паскаля в с++ - C++
Вот, добрые люди, само задание: заданной и действительной квадратной матрицы порядка n найти сумму элементов строки, в которой расположен...

Пожалуйста переведите из С++ в С(Си) - C++
Задание: Работа со строками. Найти длину самого короткого слова #include &lt;string&gt; #include &lt;iostream&gt; #include &lt;sstream&gt; using...

Переведите пожалуйста формулу - C++
Переведите формулу

Переведите пожалуйста программу в C++ - C++
Изначально прога написана на Паскале. Нужно перевести ее в C++ . И сделайте пожалуйста скрин работы программы) Условие: Дан текстовый...

Переведите пожалуйста с паскаля на с++ - C++
var i,j: integer; function lol(x: integer): integer; var i,k: integer; begin k:=0; for i:=1 to x-1 do if x mod i = 0 then ...

Переведите пожалуйста с CLIPS на C++ - C++
//Клипс не знаю вовсе, знаю, что семантика другая, но нужно что-то похожее, пожалуйста!!! (deffunction ask-question (?question) ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.02.2010, 18:16
Привет! Вот еще темы с ответами:

Переведите пожалуйста прогу) - C++
Program m3; Uses CRT; Const n=5; m=5; k1=100; k2=k 1 *2+1; Type matr =array of integer; Var a :matr; i, j, f, ma...

Переведите, пожалуйста, с паскаля на C++ - C++
type Person = record Surname, Name, Adress, City: string; ...

Переведите с Pascal на С++ пожалуйста - C++
program asd; var r,V:real; begin write(‘введите радиус r’); readln(r); V:=4/3*3.14*sqr(r)*r; write(‘объем...

Переведите пожалуйста прогамму на С++ - C++
program variant23; uses crt; var s,a:real; n:integer; Begin clrscr; writeln('Введите а'); read(a); S:=0; for n:=1 to 10 do


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

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

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