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

Перевести с pascal на c++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Нужен аналог Borland C++ http://www.cyberforum.ru/cpp-beginners/thread1050940.html
Подскажите пожалуйста аналог Borland C++ для 64-х разрядной 7-ки. Через досбокс работает не стабильно. Мне важно что программы писать можно было на "чистом" С++ без разных домесей и примочек скажем как в Вижуал С++ или РАД Студио.
C++ Объясните о swap() Есть такое задание: Описать процедуру Minmax(x,y) записывающую в переменную Х минимальное из значений Х и Y, а в переменную Y – максимальное из этих значений (X и Y- вещественные параметры, являющиеся одновременно входными и выходными) использовать четыре вызова этой процедуры, написать минимальное и максимальное из данных чисел A,B,C,D. Может есть другое какое-то решение, но я использовал код... http://www.cyberforum.ru/cpp-beginners/thread1050938.html
C++ Найти сумму между соответствующими числами первой и второй строки
Здравствуйте, помогите пожалуйста с задачей. Суть задачи: С клавиатуры вводятся две строки, содержащие одинаковое количество целых чисел. Числа разделены между собой пробелом. Найти сумму между соответствующими числами первой и второй строки и вывести результат на экран. Исходные строки вводятся с клавиатуры. Обработка строк должна осуществляться посимвольно (использование функций...
Перепишите код C++
Здраствуйте, помогите пожалуйста переписать код так что бы не через указатель temp, а через вызов функции с тела программы. #include <iostream> #include <cmath> using namespace std; void p(float x,float k,float b,float *S) { *S=x*x+k*x+b;
C++ Объяснить часть кода http://www.cyberforum.ru/cpp-beginners/thread1050915.html
Программка заполняет матрицу случайными числами и отображает правую половину матрицы на левую зеркально симметрично относительно вертикальной оси. Подскажите пожалуйста, для чего нужна данная строка: for (j = m >> 1; j < m; j++) и где именно в коде происходит отображение относительно вертикальной оси, а не, допустим, горизонтальной. #include <iostream> #include <cstdlib> #include...
C++ Задание на стандартную библиотеку C++ STL Помогите пожалуйста! Эффективное использование контейнеров и алгоритмов 1. Неориентированный граф задан в файле в виде списков инцидентных вершин количество вершин вершина 1 список инцидентных вершин вершина 2 список инцидентных вершин ... подробнее

Показать сообщение отдельно
sk24fn123b
Сообщений: n/a

Перевести с pascal на c++ - C++

21.12.2013, 02:25. Просмотров 189. Ответов 1
Метки (Все метки)

Помогите тоже перевести из Pascal в с+ visual studio 6.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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
type mas=array[0..100] of integer;
procedure MergeSort(var m:mas;n:integer);
var
c:boolean;
i,i1,i2,n1,n2,j,k,tmp,len:integer;
b:mas;
begin
len:=1;
c:=true;
while len<n do
 begin
  if c then
   begin
    i:=0;
    while i+len<=n do
     begin
      i1:=i+1;
      i2:=i+len+1;
      n1:=i+len;
      n2:=i+2*len;
      if n2>n then
       begin
        n2:=n;
       end;
      while(i1<=n1)or(i2<=n2)do
       begin
        if i1>n1 then
         begin
          while i2<=n2 do
           begin
            i:=i+1;
            b[i-1]:=m[i2-1];
            i2:=i2+1;
           end;
         end
        else
         begin
          if i2>n2 then
           begin
            while i1<=n1 do
             begin
              i:=i+1;
              b[i-1]:=m[i1-1];
              i1:=i1+1;
             end;
            end
          else
           begin
            if m[i1-1]>m[i2-1] then
             begin
              i:=i+1;
              b[i-1]:=m[i2-1];
              i2:=i2+1;
             end
            else
             begin
              i:=i+1;
              b[i-1]:=m[i1-1];
              i1:=i1+1;
             end;
           end;
         end;
       end;
     end;
    i:=i+1;
    while i<=n do
     begin
      b[i-1]:=m[i-1];
      i:=i+1;
     end;
   end
  else
   begin
    i:=0;
    while i+len<=n do
     begin
      i1:=i+1;
      i2:=i+len+1;
      n1:=i+len;
      n2:=i+2*len;
      if n2>n then
       begin
        n2:=n;
       end;
      while (i1<=n1)or(i2<=n2)do
       begin
        if i1>n1 then
         begin
          while i2<=n2 do
           begin
            i:=i+1;
            m[i-1]:=b[i2-1];
            i2:=i2+1;
           end;
         end
        else
         begin
          if i2>n2 then
           begin
            while i1<=n1 do
             begin
              i:=i+1;
              m[i-1]:=b[i1-1];
              i1:=i1+1;
             end;
           end
          else
           begin
            if b[i1-1]>b[i2-1] then
             begin
              i:=i+1;
              m[i-1]:=b[i2-1];
              i2:=i2+1;
             end
            else
             begin
              i:=i+1;
              m[i-1]:=b[i1-1];
              i1:=i1+1;
             end;
           end;
         end;
       end;
     end;
    i:=i+1;
    while i<=n do
     begin
      m[i-1]:=b[i-1];
      i:=i+1;
     end;
   end;
   len:=2*len;
   c:= not c;
  end;
 if not c then
  begin
   i:=1;
   repeat
   m[i-1]:=b[i-1];
   i:=i+1;
   until not(i<=n);
  end;
end;
var a:mas;
    n,i:integer;
begin
 
randomize;
write('n=');readln(n);
writeln('Исходный массив:');
for i:=0 to n-1 do
 begin
  a[i]:=random(20);
  write(a[i],' ');
 end;
writeln;
MergeSort(a,n);
writeln('Сортировка:');
for i:=0 to n-1 do
write(a[i],' ');
readln
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru