Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2012.04.22;
Скачать: [xml.tar.bz2];

Вниз

Синтаксис языка СИ   Найти похожие ветки 

 
Zheksonz   (2011-12-20 16:55) [0]

Имеется ниже следующий код на СИ, который нужно перевести на Делфи. Кто сталкивался ранее с подобным и есть желание помочь, подскажите плз.


char  b;
int i;
DWORD t;
b=1<<m;            
if(s<0) b|=1;      
if(m==4) b=0xa;  
if(s<0) s=-s;      


 
Медвежонок Пятачок ©   (2011-12-20 16:57) [1]

shl
or 1
abs


 
Zheksonz   (2011-12-20 17:03) [2]


> Медвежонок Пятачок


Я правильно понял?

b := 1 shl m;
if (s < 0) then b := b or 1;
if (s < 0) then abs(s);


 
Медвежонок Пятачок ©   (2011-12-20 17:04) [3]

ну как-то так.


 
Zheksonz   (2011-12-20 17:04) [4]

просто под рукой нет ни СИшного компилятора, ни Делфи, нет сейчас возможности поэкспериментировать... а руки чешутся)))


 
Медвежонок Пятачок ©   (2011-12-20 17:05) [5]

if (s < 0) then abs(s);

s := abs(s);


 
Zheksonz   (2011-12-20 17:05) [6]


> Медвежонок Пятачок ©   (20.12.11 17:04) [3]


спасибо большое.


 
Zheksonz   (2011-12-20 17:07) [7]


> s := abs(s);


каюсь, протупил


 
TComponent   (2011-12-20 22:13) [8]

да


 
TComponent   (2011-12-20 22:15) [9]

я просто хотел проверить, можно ли добавить сообщение в закрытое обсуждение... оказалось - что можно. А в чем тогда смысл красного текста "Обсуждение закрыто"?


 
Rouse_ ©   (2011-12-20 22:24) [10]

Оно не закрытое - его просто перенесли в другой подфорум, в старом оно осталось с красным значком.



Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2012.04.22;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.003 c
6-1255153609
Leo50
2009-10-10 09:46
2012.04.22
Проблема с ScktSrvr.exe


3-1274956779
Николай2010
2010-05-27 14:39
2012.04.22
Access+Delphi+Ado - про транзакции


2-1324673012
Dark King
2011-12-24 00:43
2012.04.22
Компилятор


8-1225884531
sloosar
2008-11-05 14:28
2012.04.22
TLabel


15-1324413003
Юрий
2011-12-21 00:30
2012.04.22
С днем рождения ! 21 декабря 2011 среда





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский