Перевод из С

@General Motors · Регистрация: 29.11.2012

Студворк — интернет-сервис помощи студентам

Имеется код:

C
1
for(i=0;i<n;i++;ia++)for(os=0;os<8;os++)s=s>>1^((s^*ia>>os)&1)*k

Начинаю переводить в Делфи:

Pascal
1
2
3
4
5
6
7
8
for i:=0 to n do
begin
   ia:=ia+1;
   for os:=0 to 8 do
      begin
        s:=                  //Вот этот участок кода не понятен
      end 
end

Помогите пожалуйста.

@General Motors · 15.08.2013, 15:29 **[ТС]**

Сообщение от taras atavin

На сях и плюсах нетипизированные тоже инкрементятся на 1.

И так правильный ответ:

Delphi
1
2
3
4
5
6
7
8
function CRC(lm: array of byte;h,p: Cardinal):word;
var
  i,oops: Cardinal;
begin
  for i:=0 to h-1 do
    for oops:=0 to 7 do
      p:=(p shr 1)xor(((p xor(lm[i] shr oops)) and 1)*$A001);
end;

15.08.2013, 15:38

Не по теме:

Не прошло и года. :D

@General Motors · 16.08.2013, 00:10 **[ТС]**

Сообщение от angstrom

Не прошло и года.

Не прошло!

Новые блоги и статьи Все статьи Все блоги /
Почему SEO не начинается с ключевых слов: что проверить до написания текстов Neotwalker 01.08.2026 Когда владельцу сайта предлагают заняться SEO, первым шагом часто становится сбор запросов и написание текстов. Логика кажется понятной: 1. Находим ключевые слова. 2. Добавляем их на. . .	Знание — сила: Доктрина интенциональности знаний, углубление в формулу Hrethgir 01.08.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11957&stc=1&d=1785567302 Знаменитый афоризм Фрэнсиса Бэкона «Знание — сила» (Scientia potentia est) в массовой культуре принято понимать. . .	SUNO Ai - Река Без Дна zorxor 31.07.2026 Автор стихотворения - астрофизик Марина Катыс Ссылка на сгенерированную музыкальную композицию: https:/ / suno. com/ song/ 6f6e5464-b290-4650-be6c-44c85f8d8013 Я говорю, что Время- как вода течет. . .	Из невошедшего на форум (диалог с ИИ-гугла) zorxor 29.07.2026 А вот, что интересно, сказал мне ИИ-гугла: Этот текст — эмоциональный пост пользователя под ником zorxor на интернет-форуме (вероятно, посвященном мистике, непознанному или альтернативной науке). . . .
Был праздник вчера, а я и не знал. kumehtar 28.07.2026 27. 07. 2026г. Intel Core 2 Duo исполнилось 20 лет Салют, шампанское, овации! :drink:	Нейтральные знания, чистый код - бла-бла-бла-бла, на самом деле кликбейт и самореклама, плагиат, и вот почему Hrethgir 27.07.2026 То-есть отклонение такой публикации говорит само за себя, и пусть только возьмут на вооружение после отклонения публикации - это будет чистейшим актом плагиата. Отклонял Хабр. Дословно, отклонённая. . .	тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .	мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .

angstrom
	15.08.2013, 15:38
	Не по теме: Не прошло и года. :D