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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Dimka-novitsek
14 / 14 / 0
Регистрация: 26.04.2012
Сообщений: 1,091
#1

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

02.06.2014, 17:45. Просмотров 162. Ответов 0
Метки нет (Все метки)

Если кому то не в лом, посмотрите пожалуста!

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++
Добрый вечер! Мой научный руководитель в срочном порядке сказал перевести мою расчетную программу из Дельфи в Си/Си++, а я, увы, знаю...

Перевести код на c++ - C++
Всем привет! Столкнулся с такой проблемой... есть код на freebasic нужно его перевести на с++... Ну вот что-то никак не выходит... ...

Перевести код с С - C++
Это программа на С, её нужно перевести в С++, что тут нужно изменить??? #include&lt;iostream.h&gt; #include&lt;stdio.h&gt; #include&lt;string.h&gt; ...

Перевести код с С++ в С и Pascal - C++
кароч люди мну дали задание....... мну нада перевести з одного с(си) в другой с(си) и потом в паскаль.... кто может помогите: #include...

Перевести код из Pascal на C++ - C++
Нужно произвести удаление узла из сбалансированного дерева. В С++ я не бум-бум, помогите пожалуйста. Вот сам код: procedure...

Перевести код c Pascal в C++ - C++
uses Crt; function Fun(a,b,c:integer):boolean; begin if a&lt;(b+c) then Fun:=true else Fun:=false; end; var ...

Перевести код видеоплеера с C# - C++
Народ, если есть кто шарит и в С# И в C++ Подгоните этот код под C++ Нада! using System; using System.Windows.Forms;-это...

Перевести код с Pascal - C++
пожалуйста помогите перевести код с паскаля в с++ uses crt; var N,M:longint; k:byte; begin clrscr; write('N=');readln(n); ...

Перевести код с Pascal на C# и C++ - C++
Помогите переписать прогу с одного языка на другой. Вот Pascal const maxn = 150; var w: array of byte; link, lx, ly:...

Перевести код с паскаля на C++ - C++
По заданному натуральному числу N необходимо вычислить количество натуральных чисел, которые являются делителями N! (факториала числа N). ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru