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

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

12.02.2016, 07:03. Просмотров 199. Ответов 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;

http://www.cyberforum.ru/delphi-beginners/thread1209411.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.02.2016, 07:03
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Переведите пожалуйста код из C в Pascal/Delphi (Delphi):

Переведите код 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...

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

4
gru74ik
Модератор
Эксперт CЭксперт С++
4648 / 1962 / 293
Регистрация: 20.02.2013
Сообщений: 5,223
Записей в блоге: 23
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
2195 / 2185 / 597
Регистрация: 29.08.2013
Сообщений: 14,588
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
3295 / 2935 / 1015
Регистрация: 14.04.2014
Сообщений: 14,255
Записей в блоге: 13
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
Привет! Вот еще темы с решениями:

Преобразовать код 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 ;...

Перевести код Pascal в Delphi.
Помогите пожалуйста перевести код с pascal на delphi. 1-ая задача(игрок): ...

Перевести код из Delphi в Pascal
Здравствуйте!В delphi слабо смыслю, нужно этот код перевести на язык Pascal. ...


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

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

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