Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Med9
0 / 0 / 0
Регистрация: 12.02.2016
Сообщений: 3
1

Переведите пожалуйста код из C в Pascal/Delphi

12.02.2016, 07:03. Просмотров 207. Ответов 4
Метки нет (Все метки)

Javascript
1
2
3
4
5
6
7
8
9
10
11
12
13
14
easeOutElastic: function (x, t, b, c, d) {
    var s=1.70158;
    var p=0;
    var a=c;
    if (t==0) return b;  
    if ((t/=d)==1) return b+c;  
    if (!p) p=d*.3;
    if (a < Math.abs(c)) {
        a=c; 
        var s=p/4; 
    }else{
        var s = p/(2*Math.PI) * Math.asin (c/a);
    }
    return a*Math.pow(2,-10*t) * Math.sin( (t*d-s)*(2*Math.PI)/p ) + c + b;
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.02.2016, 07:03
Ответы с готовыми решениями:

Переведите код pascal в Delphi
Function TestWildCard(S,WildCard:String):boolean; var i,j:integer; ...

Переведите код C на Delphi
char CRCCalc (char* pointer, uint16_t len) { char CRC = 0x00; while(len &gt;...

Переведите код C на Delphi
unsigned short crc_ccitt_update (unsigned short crc, unsigned char data){...

Переведите код из С в Delphi
Я к сожалению плохо знаю С, вот что у меня есть и требует перевода на Delphi. ...

Переведите код C++ на Delphi
Вот процедурка int CRC16CCITT(char c, unsigned int crc) { unsigned int...

4
sourcerer
Модератор
Эксперт CЭксперт С++
4874 / 2060 / 325
Регистрация: 20.02.2013
Сообщений: 5,558
Записей в блоге: 24
Завершенные тесты: 1
12.02.2016, 07:34 2
Med9, чё-то это как-то слабо похоже на Си. Это больше на JavaScript (JQuery) похоже.
0
Med9
0 / 0 / 0
Регистрация: 12.02.2016
Сообщений: 3
12.02.2016, 08:47  [ТС] 3
кстати да. но в любом случае его надо написать на паскалеподобном синтаксисе.
0
qwertehok
2324 / 2225 / 606
Регистрация: 29.08.2013
Сообщений: 14,911
12.02.2016, 09:10 4
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
function easeOutElastic  (x, t, b, c, d:double):double
    var s,p,a:double;
begin
  s:=1,70158;
  p:=0;
  a:=c;
  if t=0 then Result:=0;
  if trunc(t/d)=1 then result:=b+c;
 
    if (!p) p=d*.3;
 
  if a<abs(c) then
  begin
     a:=c;
     s:=p/4;  
  end else  s:=p/(2*PI)*asin(c\a);
 
  result:=a*Math.pow(2,-10*t) * Math.sin( (t*d-s)*(2*Math.PI)/p ) + c + b;
end
строку 10 и 18 надо допереводить
0
krapotkin
3483 / 3076 / 1062
Регистрация: 14.04.2014
Сообщений: 14,871
Записей в блоге: 15
12.02.2016, 09:50 5
не совсем удачно
там return - это выход из функции
с некоторых пор в delphi можно использовать
exit(результат);

Javascript
1
if (a==b) return 4.5;
если старая версия, то должно быть
Delphi
1
2
3
4
5
if (a=b) then
begin
  result := 4.5;
  exit;
end
в новых
Delphi
1
if (a=b) then exit(4.5);
1
12.02.2016, 09:50
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.02.2016, 09:50

Переведите код из С в Delphi
unsigned short calc_crc(unsigned char* bytes) { unsigned short...

Преобразовать код Pascal в Delphi
program N60094766; var a:array of integer; n, m, i, j, k, imin, jmin,...

Преобразовать код Pascal в Delphi
var pv:array of real; x,s:real; c,r:real; i,j:integer; begin s:=0 ;...


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

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

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