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

Перевод из Delphi в С++ - C++

Восстановить пароль Регистрация
 
stealth313
Сообщений: n/a
20.06.2013, 00:38     Перевод из Delphi в С++ #1
Приветствую. Нужно перевести по указанному в названии темы направлении код. Премного благодарен!
Delphi
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
    type
     TMyStrArr = array of string;
     
     function GetWordsBy1stWord(str: string): TMyStrArr;
     
     function WordsInStrA(s: string): integer;
     var
     b: boolean;
     i,j,k: integer;
     str: string;
     begin
     str:=s+' ';
     b:=false;
     j:=Length(str);
     k:=0;
     for i:=1 to j do
     begin
     if (Ord(str[i])=32)and b then
     begin
     Inc(k);
     b:=false;
     end else if (Ord(str[i])>64)and(not b) then b:=true;
     end;
     Result:=k;
     end;
     
     function GetWordByNum(x: string; num: integer): string;
     var
     i,k,l: integer;
     begin
     if (num<=WordsInStrA(x))and(num>1) then
     begin
     l:=0;
     for i:=1 to num-1 do
     begin
     repeat
     Inc(l);
     until x[l]=' ';
     repeat
     Inc(l);
     until x[l]<>' ';
     end;
     k:=l-1;
     if l<Length(x) then
     begin
     repeat
     Inc(k)
     until x[k]=' ';
     Result:=Copy(x,l,k-l);
     end else Result:=''+x[l];
     end else if Num=1 then
     begin
     l:=0;
     repeat
     Inc(l);
     until x[l]=' ';
     Result:=Copy(x,1,l-1);
     end else Result:='NaN';
     end;
     
     var
     x: set of Char;
     back: string;
     c,res: TMyStrArr;
     b: boolean;
     i,j,count: integer;
     begin
     if WordsInStrA(str)=1 then
     begin
     SetLength(res,1);
     res[0]:=GetWordByNum(str,1);
     Result:=res;
     end else if WordsInStrA(str)<1 then
     begin
     SetLength(res,1);
     res[0]:='NaN';
     Result:=res;
     end else
     begin
     SetLength(c,WordsInStrA(str));
     SetLength(res,WordsInStrA(str));
     for i:=0 to WordsInStrA(str)-1 do
     c[i]:=GetWordByNum(str,i+1);
     back:=GetWordByNum(str,1);
     x:=[back[1]];
     for i:=1 to Length(back) do
     if (not (back[i] in x))or(back[i]<>' ') then x:=x+[back[i]];
     x:=x+[' '];
     count:=0;
     for i:=0 to WordsInStrA(str)-1 do
     begin
     for j:=1 to Length(c[i]) do
     begin
     b:=c[i,j] in x;
     if not b then break;
     end;
     if b then
     begin
     res[count]:=c[i];
     Inc(count);
     end
     end;
     c:=res;
     SetLength(res,count);
     for i:=0 to count-1 do
     res[i]:=c[i];
     Result:=res;
     end;
     end;
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.06.2013, 00:38     Перевод из Delphi в С++
Посмотрите здесь:

C++ Перевод из Delphi в c++
Перевод из Delphi в C++ C++
Перевод Turdo Delphi в C++ C++
Перевод из delphi в c++ C++
перевод из Delphi в Builder C++
C++ Перевод с Delphi на С++
Перевод из Delphi (Алгоритм нахождения наибольшего паросочетания в двудольном графе) C++
Перевод из C# в С++ C++

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

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

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