Мини-чат

Запрещается мат, реклама в любом её виде, оскорбления. За любое нарушение будет бан или наказание как в чате, так и на форуме.
Загрузка...
Очистить поле ввода
Запрещается мат, флуд, реклама в любом её виде, оскорбления. За любое нарушение будет бан как в чате, так и на форуме.
Основная справка
Чат MGC Chatbox Evo очень легок в использовании
Вы можете:
  1. Отправлять сообщения: введите текст в поле ввода и нажмите Enter, или кнопку OK в чате.
  2. Форматировать сообщения: открыв панель форматирования нажатием кнопки BBCode, вы получаете доступ к различным настройкам форматирования текста ваших сообщений.*
  3. Общаться в разных комнатах: в зависимости от настроек группы пользователей, в которой вы состоите, либо настроек чата вы можете оставлять сообщения в разных комнатах. Выбор комнаты осуществляется нажатием соответствующей кнопки в левой части чата.*
  4. Редактировать свои сообщения (или сообщения других): редактирование осуществляется двойным нажатием на сообщение.*
  5. Использовать команды: команды позволяют пользоваться новыми опциями форматирования, управления и т.д... Информация о доступных вам командах будет расположена ниже. Вы можете не вводить префикс команды (/название_команды) в связанной с ней комнате (исключение составляет основная комната).*
* в зависимости от настроек выбранных администрацией форума для вашей группы.
Показано с 1 по 3 из 3

Тема: Преобразовать код из Дельфи в С++

  1. #1
    Завсегдатай форума Аватар для OneLexus
    Регистрация
    17.09.2009
    Адрес
    Северодвинск
    Сообщений
    1,692
    Получено (+/-): 2/0

    По умолчанию Преобразовать код из Дельфи в С++

    PHP код:
    type
      TForm1 
    = class(TForm)
        
    Label1TLabel;
        
    Label2TLabel;
        
    Label3TLabel;
        
    Button1TButton;
        
    Label4TLabel;
        
    Label5TLabel;
        
    Edit1TEdit;
        
    Edit2TEdit;
        
    Label6TLabel;
        
    NETEdit;
        
    ANETRzNumericEdit;
        
    BNETRzNumericEdit;
        
    Chart1TChart;
        
    Series1TLineSeries;
        
    procedure Button1Click(SenderTObject);
      private
        { Private 
    declarations }
      public
        { Public 
    declarations }
      
    end;

    var
      
    Form1TForm1;
      
    DX,Xi,A,B,X,X1,X2:double;
      
    N:integer;
      
    Y:  array of double;
    implementation

    {$R *.dfm}

    procedure TForm1.Button1Click(SenderTObject);
    var 
    i:integer;
    begin
    A
    :=ANE.Value;
    B:=BNE.Value;
    N:=StrToInt(NE.text);
    X2:=StrToFloat(Edit2.text);
    X1:=StrToFloat(Edit1.text);
    SetLength(Y,N);
    DX:=X2-X1;
    DX:=DX/N;
    Xi:=X1;
    Chart1.Series[0].Active:=true;
    Chart1.Series[0].Clear;
    for  
    i:=0 to N-do
      
    begin
      Xi
    :=Xi+DX;
      
    Y[i]:=A*cos(Xi)+B*sin(Xi);
      
    Chart1.Series[0].AddY(Y[i],FloatToStr(Xi));//Çíà÷åíèé

      
    end;

    end

    0 Not allowed! Not allowed!
    Делай все что можешь и не беспокоися о последствиях..... Ведь ты сделал все что мог.

  2. # ADS
    ООО "Рекламная реклама"
    Регистрация
    Always
    Адрес
    Advertising world
    Сообщений
    Many
     

  3. #2
    Супер-модератор Аватар для markos
    Регистрация
    21.07.2008
    Адрес
    Планета Земля
    Сообщений
    4,406
    Получено (+/-): 10/1

    По умолчанию

    в командной строке набери "dcc32.exe -jphn имя_файла.pas".. усё готово =)
    DCC32.EXE - это компилятор паскаля. Ключ -jphn сообщает компилятору о необходимости создать заголовочный и объектный файлы, совместимые с C++. По завершению исполнения данной команды будет откомпилирован исходный файл на паскале и будут созданы заголовочный и объектный файлы (объектный файл в данном случае не является значимым, поскольку все равно скорее всего не соберешься его использовать).

    0 Not allowed! Not allowed!

  4. #3
    Завсегдатай форума Аватар для OneLexus
    Регистрация
    17.09.2009
    Адрес
    Северодвинск
    Сообщений
    1,692
    Получено (+/-): 2/0

    По умолчанию

    markos, вот спасибо

    0 Not allowed! Not allowed!
    Делай все что можешь и не беспокоися о последствиях..... Ведь ты сделал все что мог.

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •  
Внести пожертвование на развитие!