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

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

Восстановить пароль Регистрация
Другие темы раздела
C++ Использовать в задачах два класса строк: String и StringBuilder http://www.cyberforum.ru/cpp-beginners/thread1196712.html
Здравстуйте, помогите пожалуйста написать эти 2 программы... 1). Составить программу, которая будет вводить строку в переменную String. Напечатать в алфавитном порядке все слова из данной строки, имеющие заданную длину n. 2)Дана строка, содержащая текст на русском языке. В предложениях некоторые из слов записаны подряд несколько раз (предложение заканчивается точкой или знаком воскли-цания)....
C++ Поменять местами минимальный и максимальный элементы рандомного массива мне нужно поменять местами минимальный и максимальный элементы рандомного массива вот текст программы #include<iostream.h> #include<conio.h> #include<stdlib.h> int main() { int a,b,buf; int i,n,max,min,j,n_max,n_min; cout<<"Vvedite razmernost' massiva n:"; http://www.cyberforum.ru/cpp-beginners/thread1196707.html
Ввести сторону квадрата a. Вычислить площадь вписанной окружности C++
Используя вместо самой переменной указатель на нее написать программу Ввести сторону квадрата a. Вычислить площадь вписанной окружности.
Найти максимальный положительный элемент массива C++
Используя имя массива как указатель, и применяя адресную арифметику выполнить задание. 8. Дан одномерный массив, состоящий из N целочисленных элементов. 8.1. Заполнить массив случайными числами. 8.2. Найти максимальный положительный элемент. 8.3. Вычислить произведение элементов массива. 8.4. Вывести положительные элементы на экран.
C++ Обмен информации правых вершин одного бинарного дерева на информацию левых вершин другого http://www.cyberforum.ru/cpp-beginners/thread1196680.html
Помогите пожалуйста с задачей Написать программу обмена информации правых вершин одного бинарного дерева на информацию левых вершин другого равного дерева.
C++ Найти ошибку в программе #include <stdafx.h> #include <iostream> #include <cstdlib> #include <fstream> #include <ctime> using namespace std; int main() { подробнее

Показать сообщение отдельно
Dimka-novitsek
14 / 14 / 0
Регистрация: 26.04.2012
Сообщений: 1,091
02.06.2014, 17:45     Перевести код из Дельфи на С++
Если кому то не в лом, посмотрите пожалуста!

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 минуты
БЫЛО БЫ КРАЙНЕ ИНТЕРЕСНО!!
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 13:44. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru