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

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

Восстановить пароль Регистрация
Другие темы раздела
C++ нужно разобраться в условии (Binary Tree) http://www.cyberforum.ru/cpp-beginners/thread98390.html
Условие задачи дословно Найти среднюю по значению вершину из вершин дерева, у которых высота левого поддерева не равна высоте правого поддерева. удалить её(правым удалением), если такая вершина существует. Выполнить прямой левый обход полученного дерева. что вообще требуется? что значит: "правым удалением" "прямой левый обход" пример входный данных 10 12 11 2 13 пример выводных данных...
C++ Функция для сложения и вычитания вещественных матриц Помогите пожалуйста с задачами. Никогда с такими не сталкивался поэтому нужна помощь. Буду благодарен за всё, чем сможете помочь, будь то совет или кусок программного кода. 1)Написать и протестировать функцию для сложения и вычитания вещественных матриц. Одним из формальных параметров должен быть признак вида операции. 2)Написать и протестировать функцию, которая определяет, располагаются... http://www.cyberforum.ru/cpp-beginners/thread98381.html
C++ Медиана последовательности
Ограничение времени: 1.0 секунды Ограничение памяти: 1 МБ Пусть задана последовательность из N целых неотрицательных чисел. Медианой такой последовательности в случае нечетного N называется элемент, который будет равноудален от концов последовательности, если ее отсортировать по возрастанию или убыванию (нетрудно сообразить, что этот элемент имеет номер (N+1)/2 в отсортированной...
C++ Формула
Добрый день. Как на языке С++ будет выглядеть следующая формула?
C++ динамические массивы в wxDev-C++ http://www.cyberforum.ru/cpp-beginners/thread98361.html
у меня такая проблема ... код int n; cout<<"n="; cin>>n; char c; for (int i=0; i < n; i++){ c=i+48; cout<<c; } в wxDev-C++ ( в GCC ) работает а вроде не должно ...
C++ Точка и Треугольник Даны действительные числа x1, x2, x3, y1, y2, y3. Принадлежит ли начало координат треугольнику с вершинами (x1, y1), (x2, y2), (x3, y3)? подробнее

Показать сообщение отдельно
ChessHorse
Сообщений: n/a
23.02.2010, 18:16     Переведите, пожалуйста, код с TP на С++
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.
буду очень благодарен
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 16:06. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru