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

с дэльфи на С++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Несколько вопросов http://www.cyberforum.ru/cpp-beginners/thread282948.html
Делаю небольшую консольную игру для тренировки и есть несколько вопросов. char *lev; //char lev; //как передать правильно этот массив в конструктор ниже? class Level { char** pl; COORD yx; int draw_x; int draw_y;
C++ текст. файлы программа - C++ оплата_- 180руб 1. Пусть дан текстовый файл. Определите, сколько строк файла имеют длину, большую, равную и меньшую, чем заданное значение k. 2. Пусть дан файл целых чисел. Определите длину наибольшего интервала возрастания и среднее арифмитическое чисел этого интервала. http://www.cyberforum.ru/cpp-beginners/thread282930.html
Очередь C++ C++
всем доброе утро) вот такое задание:все отрицательные элементы сдвинуть в начало очереди(заполнение либо рандомно ,либо с клавы) ; велико благодарствую ,если кто поможет,да и если кратко объяснит комментариями) Добавлено через 5 часов 14 минут эм, тогда лучше как реализовать ? через список или через массив?
C++ Исключить согласные буквы в строке C/C++
Привет всем! Помогите решить такую задачку: Ввести строку с клавиатуры. Переписать данную строку в новую, исключив все согласные буквы английского алфавита.
C++ Составить прогу - Информация о заявках на авиабилеты http://www.cyberforum.ru/cpp-beginners/thread282859.html
Составить прогу, которая содержит текующую информацию о заявках на авиабилеты. каждая заявка содержит: -пункт назначения; -номер рейса; -фамилию и инициалы пассажиров; -желаемую дату вылета. прога должна обеспечивать: -хранение всех заявок в виде двоичного дерева; -добавление и удаление заявок; -по заданному номеру рейса и дате вылета вывод заявок с их последующим удалением; -вывод всех заявок.
C++ Пожалуйста помогите Составьте программу, которая определяет, принадлежит ли точка с координатами (х,у) Помогите пожалуйста)) Составьте программу, которая определяет, принадлежит ли точка с координатами (х,у) объединению закрашенных областей данного графика. Значения координат ввести c клавиатуры. Ответ в развернутом виде вывести в консоль. В случае необходимости организовать ввод дополнительных параметров графиков. подробнее

Показать сообщение отдельно
tima39
0 / 0 / 0
Регистрация: 16.04.2011
Сообщений: 15
25.04.2011, 18:02  [ТС]     с дэльфи на С++
помогите пожалуйста переписать в с++ этот следующий код...я не могу, сколько не пробовал...послезавтра сдавать курсовую, а прога на дэльфи, я в си++ не могу..
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
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
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
function Calculate(SMyExpression: string; digits: Byte): string;
var
   z: Char;
   ipos: Integer;
 
   function StrToReal(chaine: string): Real;
   var
     r: Real;
     Pos: Integer;
   begin
     Val(chaine, r, Pos);
     if Pos > 0 then Val(Copy(chaine, 1, Pos - 1), r, Pos);
     StrToReal := r;
   end;
 
   function RealToStr(inreal: Extended; digits: Byte): string;
   var
     S: string;
   begin
     Str(inreal: 0: digits, S);
     realToStr := S;
   end;
 
   procedure NextChar;
   var
     s: string;
   begin
     if ipos > Length(SMyExpression) then
     begin
       z := #9;
       Exit;
     end
     else
     begin
       s := Copy(SMyExpression, ipos, 1);
       z := s[1];
       Inc(ipos);
     end;
     if z = ' ' then nextchar;
   end;
 
   function Expression: Real;
   var
     w: Real;
 
     function Factor: Real;
     var
       ws: string;
     begin
       Nextchar;
       if z in ['0'..'9'] then
       begin
         ws := '';
         repeat
           ws := ws + z;
           nextchar
         until not (z in ['0'..'9', '.']);
         Factor := StrToReal(ws);
       end
       else if z = '(' then
       begin
         Factor := Expression;
         nextchar
       end
       else if z = '+' then Factor := +Factor
       else if Z = '-' then Factor := -Factor;
     end;
 
     function Term: Real;
     var
       W: Real;
     begin
       W := Factor;
       while Z in ['*', '/'] do
         if z = '*' then w := w * Factor
       else
         w := w / Factor;
       Term := w;
     end;
   begin
     w := term;
     while z in ['+', '-'] do
       if z = '+' then w := w + term
     else
       w := w - term;
     Expression := w;
   end;
begin
   ipos   := 1;
   Calculate := RealToStr(Expression, digits);
end;
 
 
function HEX(t:string):string;
var
i,s,k,l:integer;
begin
result:=''; s:=0; k:=1;
for i:=length(t) downto 1 do begin
 
  case t[i] of
  '0'..'9':l:=strtoint(t[i]);
  'A','a':l:=10;
  'B','b':l:=11;
  'C','c':l:=12;
  'D','d':l:=13;
  'E','e':l:=14;
  'F','f':l:=15;
  end;
 
  s:=s+l*k;
  k:=k*16;
 
end;
 
result:=inttostr(s);
 
end;
 
 
var s,s1,t:string;
 i:integer;
 d:set of char = ['+','-','/','*','(',')' ];
begin
 
writeln('Vvedite:');
readln(s);
 
 
t:=''; s1:='';
 for i:=1 to length(s) do begin
 if (s[i] in d)=false then t:=t+s[i]
  else  begin
        if t <>'' then t:=HEX(t);
        s1:=s1+t+s[i];
        t:='';
        end;
                          end;
 
s:=s1;
 
 
s1:=Calculate(s,1);
write(s1);
readln
end.
 
Текущее время: 13:17. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru