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

перевод из Паскаля в С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ [DLL] отслеживание и смена названий окон http://www.cyberforum.ru/cpp-beginners/thread1081090.html
Пожалуйста подскажите как можно создать некую DLL, которая будет загружаться с определенной программой в память и "останется" там до момента, пока: 1) не выследит процесс с определенным заголовком окна (ну например "Paint") 2) затем сменит заголовок окна на другой 3) полностью закроется и уберется из памяти - или в случае, если окно каким-то образом меняет свой заголовок, то будет постоянно...
C++ функции на основе realloc, malloc Подскажите как сократить написание "realloc", а то надоели эти писанины))) вот сделал уже следующее: size_t GetSize(void* Array) { return(_msize(Array)/sizeof(Array)); } //теперь надо вот это: http://www.cyberforum.ru/cpp-beginners/thread1081079.html
Найти наибольший прямоугольник в матрице состоящий из четных чисел C++
Дана матрица натуральных чисел. Найти наибольший прямоугольник в матрице состоящий из четных чисел.
C++ Нужно реализовать класс Бинарное дерево.
Нужно реализовать класс Бинарное дерево. Вот класс template <class T> class Tree { private: class Item{ friend Tree; Item* parent; Item* left; Item* right;
C++ Ha BorlandC++ http://www.cyberforum.ru/cpp-beginners/thread1081047.html
Cделать большими все буквы в тех словах, в которых есть по крайней мере одна пара подряд идущих гласных слов.
C++ Оптимизация лифта пишу программу к курсовому. саму программу нашел, но выдает неправильное решение. просто не могу понять как связаны между собой функции и что вводить в main. Буду презнателен если кто поможет! Заранее спасибо всем Пример разработки программы: оптимизация лифта Я работаю в очень высоком здании с очень медленным лифтом. Особенно меня раздражает, когда люди нажимают кнопки нескольких... подробнее

Показать сообщение отдельно
большесолнца
0 / 0 / 0
Регистрация: 29.06.2013
Сообщений: 4

перевод из Паскаля в С++ - C++

25.01.2014, 13:10. Просмотров 164. Ответов 0
Метки (Все метки)

Друзья, доброго времени суток. Проблема такая: есть код, написанный в паскле, его нужно перевести в с++.
своими силами я не в состоянии этого сделать.

Если что не понятно, то само задание: Задан двумерный массив NxM. Нужно написать код, который в исходном массиве найдет подмассив размером 3х3 с максимальной суммой элементов и транспонирует его в исходном массиве.N и M могут быть не кратны 3.. Исходная матрица:{1, 3, -2, 11},{7, 10, 2, 6}, {1, 0, 8, 9}, {3, 12, 4, 5}
код:
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
program Project7;
 
{$APPTYPE CONSOLE}
 
uses
SysUtils;
 
Var mas,rab:array[1..100,1..100] of integer;
n,m,i,j,k,p,kk,pp,s,smax,imax,jmax,b,ii,jj:integer;
begin
randomize;
Writeln('vvedite n,m>3');
Write('n=');Readln(n);
Write('m=');Readln(m);
for i:=1 to n do
for j:=1 to m do mas[i,j]:=random(9)+1;
for i:=1 to n do
begin
writeln;
for j:=1 to m do write(mas[i,j]);
end;
i:=n;
j:=m;
smax:=0;
imax:=0;
jmax:=0;
k:=1;
p:=1;
kk:=3;
pp:=3;
repeat
for i:=k to kk do
for j:=p to pp do
begin
s:=s+mas[i,j];
end;
if s>smax then
begin
smax:=s;
imax:=k;
jmax:=p;
end;
if (k<>n-2) or (pp=m) then
begin
Inc(k);
Inc(kk);
end
else
begin
if p<>m-2 then
begin
inc(p);
inc(pp);
k:=1;
kk:=3;
end;
end;
 
s:=0;
until (kk=n+1) and (pp=m);
Writeln;
kk:=imax+2;
pp:=jmax+2;
ii:=1;
jj:=1;
for i:=imax to kk do
begin
for j:=jmax to pp do
begin
rab[ii,jj]:=mas[i,j];
inc(ii);
end;
inc(jj);
ii:=1;
end;
Writeln;
for ii:=1 to 3 do
begin
writeln;
for jj:=1 to 3 do write(rab[ii,jj]);
end;
ii:=1;
jj:=1;
for i:=imax to kk do
begin
for j:=jmax to pp do
begin
mas[i,j]:=rab[jj,ii];
inc(ii);
end;
inc(jj);
ii:=1;
end;
for i:=1 to n do
begin
writeln;
for j:=1 to m do write(mas[i,j]);
end;
 
Readln;
end
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru