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

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

Восстановить пароль Регистрация
Другие темы раздела
C++ полуторный тариф http://www.cyberforum.ru/cpp-beginners/thread433604.html
люди подскажите как дописать код задачи на си. есть фирма, которая выплачивает своим сотрудникам за первые 40 часов работы обычную зарплату, и полуторную зарплату за время отработанное сверх 40 часов. как записать это самое время после 40 часов, и ставку которую нужно будет заплатить. начало моего кода: Код:
C++ функция Добрый день, на что ругается функция?? #include <iostream> #include <iomanip> #include <cmath> #include <conio.h> using namespace std; void sum(double *m,int n) { int i,t; double sum=0.0; http://www.cyberforum.ru/cpp-beginners/thread433601.html
Помогите,нужно составить программу вычисления задачи.. C++
Вычислить растояние между двумя точками с координатами (Х1,у1) и (х2,у2) координаты вводятся с клавиатуры..
C++ Есть бесконечный цикл в программе и она поэтому занимает процессор, как это исправить?
НАписал себе напоминалку, а она жрёт процессор (~~ 45%); код упростил для понятности #include <stdio.h> #include <windows.h> #include <ctime> using namespace std; int main() {
C++ Вычислить сумму ряда. http://www.cyberforum.ru/cpp-beginners/thread433554.html
День добрый. Помогите пожалуйста написать програмку. Вот задание. http://s006.***********/i214/1201/83/a86d4a6e9fe2.jpg
C++ Написать алгоритм, чтобы каждый квадрат возрастал на одинаковую величину Нужно написать алгоритм чтобы каждый квадрат возрастал на одинаковую величину, ну и уменьшался тоже. Прошу помощи не в написании программы, а в написании этого алгоритма. Т. е. по сути вставка символа "-" и "|" в каждый квадрат. --------------------------------- | | | | | n | | | | | | |... подробнее

Показать сообщение отдельно
one.inside
 Аватар для one.inside
0 / 0 / 0
Регистрация: 22.09.2011
Сообщений: 50
23.01.2012, 15:35     Перевод из Delphi в c++
Помогите перевести код в с++
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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, md5, jpeg, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }           
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses MainUnit;
 
{$R *.dfm}
 
//Сетевое имя компьютера
function GetComputerNetName: string;
var
  buffer: array[0..255] of char;
  size: dword;
begin
  size := 256;
  if GetComputerName(buffer, size) then
    Result := buffer
  else
    Result := ''
end;
 
//Имя пользователя
function GetUserFromWindows: string;
var
  UserName: string;
  UserNameLen: Dword;
begin
  UserNameLen := 255;
  SetLength(userName, UserNameLen);
  if GetUserName(PChar(UserName), UserNameLen) then
    Result := Copy(UserName, 1, UserNameLen - 1)
  else
    Result := 'Unknown';
end;
 
//Серийный номер диска C:
function GetSerialNum: string;
var
  SerialNum: DWORD;
  a, b: DWORD;
  Buffer: array[0..255] of char;
begin
result := '';
try
  GetVolumeInformation(PChar('c:\'), Buffer, sizeof(Buffer), @SerialNum, a, b,
    nil, 0);
finally
  result := IntToStr(SerialNum);
end;
end;
 
function StringToHex(str1,Separator:String):String;
var
  buf:String;
  i:Integer;
begin
  buf:='';
  for i:=1 to Length(str1) do begin
    buf:=buf+IntToHex(Byte(str1[i]),2)+Separator;
  end;
  Result:=buf;
end;
 
function GetSystemInfoAll: String;
var
 siSysInfo: TSystemInfo;
begin
 GetSystemInfo(siSysInfo);
 with siSysInfo do begin
   Result := IntToStr(dwActiveProcessorMask) +
             IntToStr(dwPageSize) +
             IntToStr(wReserved) +
             IntToStr(dwNumberOfProcessors) +
             IntToStr(dwProcessorType) +
             IntToStr(dwAllocationGranularity) +
             IntToStr(wProcessorArchitecture) +
             IntToStr(wProcessorLevel) + 
             IntToStr(wProcessorRevision);
 end;
end;
 
//Генерируем серийник
function getSerial:string;
begin
  Result := StringToHex((GetComputerNetName + GetUserFromWindows + GetSerialNum + GetSystemInfoAll),'');
end;
 
//Генерируем ключ
function getKey(Serial: string):string;
begin
  Result := MD5DigestToStr(MD5String(Serial));
  Result := MD5DigestToStr(MD5String(Result));
  Result := MD5DigestToStr(MD5String(Result));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:='8C92F20000B8CD82A2A586D90998761D';
if Edit1.Text = getKey(getSerial) then begin
Hide;
ShowMessage('Cheat Engine зарегистрирован!');
MainForm.Show;
end else begin
Hide;
ShowMessage('Cheat Engine не зарегистрирован! Чтобы приобрести лицензию обратитесь в Skype:one.inside либо в Skype:darkking5577');
Close;
end;
end;
 
end.
Если нужно могу заплатить..
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 01:29. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru