Форум программистов, компьютерный форум, киберфорум
Наши страницы

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

Войти
Регистрация
Восстановить пароль
 
zasadadada
-27 / 8 / 1
Регистрация: 03.05.2013
Сообщений: 482
#1

Перевести функцию с Delphi на C++ - C++

13.07.2015, 10:43. Просмотров 240. Ответов 2
Метки нет (Все метки)

Ребята, может кто знает хотя бы примерно C или C++ , не понимаю код делфи, а функция на нём.
Delphi
1
2
3
4
5
6
7
8
9
10
11
    type TSingleArray = Array of Single;
    procedure UncleHilbert(var FilterCoefficients: TSingleArray; N : Integer);
    var i,j : Integer;
    begin
    SetLength(FilterCoefficients,N);
    for i:=0 to (N div 4) do
      begin
       FilterCoefficients[(N div 2)+(2*i-1)]:=+2/(PI*(2*i-1));
       FilterCoefficients[(N div 2)-(2*i-1)]:=-2/(PI*(2*i-1));
      end;
    end;
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.07.2015, 10:43
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести функцию с Delphi на C++ (C++):

Перевести с DELPHI в С++ - C++
Кто-нибудь сможет помочь переписать код с delphi на с++? И вообще возможно ли это?

Перевести с Delphi на C/C++. - C++
program zadacha5; {$APPTYPE CONSOLE} uses SysUtils; var a,b,s,k,v :real ; begin

Перевести код программы из Delphi в C++ - C++
Добрый день! Стоит задача транслировать код из Delphi в C++. Среда Embarcodero. Вроде бы ничего сложного, точки на стрелки меняй себе и...

Перевести простую программку с Delphi - C++
Имеется программа на Delphi. Нужно перевести на C++ procedure TForm1.Button1Click(Sender: TObject); var s, sum, i, j, n: integer; p:...

Перевести макрос define в функцию - C++
Доброго времени суток. Я тут на днях набросал вот такие макросы для удобства: #define BinSave(Value, Root)\ //Переменная, путь к...

Как перевести функцию system() на английский? - C++
Как сделать так, например, чтобы system("pause") выдало сообщение на английском, хотя ОС у меня русская? Я так понимаю тут в настройки оси...

2
_N_
18 / 18 / 7
Регистрация: 17.02.2013
Сообщений: 85
13.07.2015, 11:23 #2
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
Я не проверял, но вроде без ошибок...
На С:
C++
1
2
3
4
5
6
7
8
9
10
11
#define PI 3.14159
 
float* UncleHilbert(float* FilterCoefficients, int N) {
    int i,j;
    FilterCoefficients = (float*) malloc (N * sizeof(float));
    for (i = 0; i <= (N / 4); i++) {
       FilterCoefficients[(N / 2)+(2*i-1)] = +2.0/(PI*(2*i-1));
       FilterCoefficients[(N / 2)-(2*i-1)] = -2.0/(PI*(2*i-1));
    }
    return  FilterCoefficients;
}
И не забудь потом где-то сделать free(FilterCoefficients);

На C++:
C++
1
2
3
4
5
6
7
8
9
10
11
#define PI 3.14159
 
float* UncleHilbert(float* FilterCoefficients, int N) {
    int i,j;
    FilterCoefficients = new float[N];
    for (i = 0; i <= (N / 4); i++) {
       FilterCoefficients[(N / 2)+(2*i-1)] = +2.0/(PI*(2*i-1));
       FilterCoefficients[(N / 2)-(2*i-1)] = -2.0/(PI*(2*i-1));
    }
    return  FilterCoefficients;
}
И не забудь потом где-то сделать delete [] FilterCoefficients;

P.S. 1) переменная j нигде не используется.
2) можно сделать так:
C++
1
 for (int i = 0; i <= (N / 4); i++) {
и удальть строку:
C++
1
int i; //  int i,j;
3) относительно PI можно сделать и так:
C++
1
2
3
#define _USE_MATH_DEFINES
#include <math.h>
// использовать константу M_PI
1
zasadadada
-27 / 8 / 1
Регистрация: 03.05.2013
Сообщений: 482
13.07.2015, 12:24  [ТС] #3
_N_ спасибо большое, выручил.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.07.2015, 12:24
Привет! Вот еще темы с ответами:

Перевести синтаксис программы с Delphi в C++, очень нужно - C++
Даны два текстовых файла f1 и f2. Файл f1 содержит произвольный текст. Слова в тексте разделены пробелами и знаками препинания. Файл f2...

Программа, реализующая минимизированную логическую функцию. Перевести код с C# - C++
using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using...

Перевести с Delphi на C++. Ускорение умножения двоичных чисел с анализом двух разрядов - C++
Zdrastvuite dorogie programmisty... esli est vozmojnost perevidite na yazyk C++ Добавлено через 1 минуту unit lab3; interface...

Перевести с Delphi на C++. Найти элементы последовательности, представимые в виде суммы двух квадратов - C++
Всем доброго утра! помогите пожалуйста перевести программу на С++!! Дано натуральное число N. Среди чисел 1, 2, …, N найти те, которые...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

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