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

Перевести код из Дельфи на С++ - C++

Восстановить пароль Регистрация
 
Dimka-novitsek
14 / 14 / 0
Регистрация: 26.04.2012
Сообщений: 1,091
02.06.2014, 17:45     Перевести код из Дельфи на С++ #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
unit Unit1;
 
interface
 
uses  //После этого слова идет перечисление подключенных модулей.
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;
 
 //В этих модулях находится описание разных методов и процедур, 
 
//которые мы можем использовать
 
 
 
 
type  //После этого идет объявление типов
  TForm1 = class(TForm) //Начало описания нового объекта TForm1
    BitBtn1: TBitBtn; //Эта наша кнопка:
    PaintBox1: TPaintBox;
    procedure BitBtn1Click(Sender: TObject);  //Это событие от кнопки
    procedure draw();
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var    //Объявление глобальных переменных
  Form1: TForm1;  //это описана переменная Form1 типа объекта TForm1
 
implementation
 
{$R *.dfm}
 {Далее идет процедура, которую создал Delphi для обработки
 
события OnClick, когда мы дважды щелкнули по событию в 
 
объектном инспекторе.}
 
 procedure TForm1.BitBtn1Click(Sender: TObject);  //Имя процедуры
begin   //Начало процедуры
  draw();
 
end;  //Конец процедуры
 
 
 
 
 
procedure Tform1.draw(); //Имя процедуры
 
const
    iterations = 50000;  //Кол-во итераций
 
var //Объявление глобальных переменных
    t, x, y: real;
        p: real;//CЛУЧАЙНАЯ ВЕЛИЧИНА
    k: longint;
    mid_x, mid_y, radius: integer;
 
begin   //Начало процедуры
    mid_x := paintbox1.width div 2;
    mid_y := paintbox1.height -100 ;
    radius := trunc(0.1 * mid_y);
    randomize;
    x := 1.0;
    y := 0.0;
    for k := 1 to iterations do
    begin
        p := random;
        t := x;
        if p <= 0.85 then  //Построение верхней части листа
                    begin
            x := 0.84 * x -0.045  * y;
            y := 0.045  * t + 0.86   * y + 1.6;
        end
        else
        if p <= 0.92 then  //Построение левого  листа
        begin    //Начало процедуры
            x := 0.25   * x - 0.26 * y;
            y := 0.23 * t + 0.25   * y + 1.6;
 
        end                //Построение правого листа
        else if p <= 0.99 then
        begin                                           //Начало процедуры
            x := -0.135   * x + 0.28 * y;
            y := 0.26 * t + 0.245 * y + 0.44;
        end
        else
        begin              //Построение стебля
            x := 0.0;
            y := 0.16 * y  ;
        end;
                    paintbox1.Canvas.Pixels[mid_x+round(radius*x), mid_y-round(radius*y)+35]:=clGreen
    end
    end.//Конец модуля. После end и точки никакой код больше не воспринимается.
Добавлено через 4 минуты
БЫЛО БЫ КРАЙНЕ ИНТЕРЕСНО!!
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.06.2014, 17:45     Перевести код из Дельфи на С++
Посмотрите здесь:

Перевести код с С C++
Visual c++ код перевести в gcc linux код C++
C++ Перевести код на С++
Перевести код программы Паскаля в код С++ C++
C++ Перевести код на c++
перевести код C++
построение графика, перевести програму из дельфи в Си\Си++ C++

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

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

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