Главная страница
    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
3-1274956779
Николай2010
2010-05-27 14:39
2012.04.22
Access+Delphi+Ado - про транзакции


15-1323898980
ffff
2011-12-15 01:43
2012.04.22
Напомните, плиз, о гениальных изобретениях ближайшего прошлого :)


2-1325161149
gvozdkoff
2011-12-29 16:19
2012.04.22
вывод некоторых строк из файла


2-1325178292
Gu
2011-12-29 21:04
2012.04.22
SizeOf


2-1325179999
Антоха_М
2011-12-29 21:33
2012.04.22
Печать чеков из приложения Delphi





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский