Перевод из С

@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

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

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

@taras atavin · 29.11.2012, 11:18

Сообщение от General Motors

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

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

Добавлено через 29 секунд

ValeryS · 29.11.2012, 11:22

Сообщение от General Motors

for(i=0;i<n;i++;ia++)

давно у нас у Фора 4 аргумента?

@General Motors · 29.11.2012, 11:23 **[ТС]**

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

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

Добавлено через 29 секунд

Код на с++ Ошибся не тот тег указал.

@taras atavin · 29.11.2012, 11:24

Сообщение от General Motors

s:= * * * * * * * * *//Вот этот участок кода не понятен

А что здесь не понятного?

Сообщение от General Motors

s=s>>1

- правый сдвиг на 1 бит, то есть деление нацело пополам,

Сообщение от General Motors

^

- побитовая (не булевая) ксорка,

Сообщение от General Motors

*ia

данные по указателю ia,

Сообщение от General Motors

>>os

правый сдвиг на os, то есть деление на цело на 2 в степени os,

Сообщение от General Motors

&1

побитовое (не булевое) and с единицей, то есть выделение младшего бита и обнуление остальных, то есть взятие остатка от деления на цело пополам.

Сообщение от General Motors

*k

- умножение на k.

@General Motors · 29.11.2012, 11:26 **[ТС]**

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

давно у нас у Фора 4 аргумента?

Это нормально код на C++.
При изменении переменной i от 0 до n переменные i и ia увеличиваются на 1.

@taras atavin · 29.11.2012, 11:26

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

давно у нас у Фора 4 аргумента?

for на плюсах имеет три позиции, в первой и в последней можно написать произвольное количество операторов от ноля и больше. На чистых сях вроде тоже. Только разделять их надо запятыми.

ValeryS · 29.11.2012, 11:29

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

for на плюсах имеет три позиции, в первой и в последней можно написать произвольное количество операторов от ноля и больше.

через запятую а не точку с запятой
т.е вот так нормально

C++

1	for(i=0;i<n;i++,ia++)

а так не уверен

C++

1	for(i=0;i<n;i++;ia++)

по крайней мере никогда не видел

@General Motors · 29.11.2012, 11:31 **[ТС]**

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

через запятую а не точку с запятой
т.е вот так нормально

C++

1	for(i=0;i<n;i++,ia++)

а так не уверен

C++

1	for(i=0;i<n;i++;ia++)

по крайней мере никогда не видел

Да ты прав! Совершенно верно через запятую.

@taras atavin · 29.11.2012, 11:36

Судя по вике,

C++

1	s=s>>1^((s^ia>>os)&1)k

,

C

1	s=s>>1^((s^ia>>os)&1)k

означает

Pascal

1	s:=((s shr 1)xor((s xor ia^) shr os))*k;

.

Добавлено через 4 минуты

Сообщение от General Motors

ia:=ia+1;

Уверен? Так как ia - указатель, то

C++

++ia

,

C++

ia++

, означает увеличение ia не на 1, а на sizeof(<тот тип, на который может указывать ia>).

C

++ia

,

C

ia++

вроде бы тоже. А что означает

Pascal

ia:=ia+1;

с учётом того, что ia - указатель? На сколько я помню, на паскале типизированные указатели вообще не складываются с простыми целыми, а для не типизированного это увеличение на 1. На сях и плюсах нетипизированные тоже инкрементятся на 1.

@General Motors · 29.11.2012, 11:44 **[ТС]**

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

Судя по вике,

C++

1	s=s>>1^((s^ia>>os)&1)k

,

C

1	s=s>>1^((s^ia>>os)&1)k

означает

Pascal

1	s:=((s shr 1)xor((s xor ia^) shr os))*k;

.

Добавлено через 4 минуты
Уверен? Так как ia - указатель, то

C++

++ia

,

C++

ia++

, означает увеличение ia не на 1, а на sizeof(<тот тип, на который может указывать ia>).

C

++ia

,

C

ia++

вроде бы тоже. А что означает

Pascal

ia:=ia+1;

с учётом того, что ia - указатель? На сколько я помню, на паскале типизированные указатели вообще не складываются с простыми целыми, а для не типизированного это увеличение на 1. На сях и плюсах нетипизированные тоже инкрементятся на 1.

Судя по вике у меня не правильно, пошел переделывать. Спасибо. Переделаю, проверю отпишусь.

@General Motors · 08.08.2013, 16:16 **[ТС]**

Возвращаюсь к этой старой задаче
И так правлю:

Pascal

for i:=0 to sizeof(ia) do
  for os:=0 to 7 do
      begin
        s:= s:=((s shr 1)xor((s xor ia^) shr os))*k;
      end 
end

, где к - полином.
Только такая конструкция даже не компилируется. Ошибка на ia^. ia[i] - компилируется но считает не верно.
ia array of byte;

@coloc · 08.08.2013, 16:22

Сообщение от General Motors

Переделаю, проверю отпишусь.

Сообщение от General Motors

Возвращаюсь к этой старой задаче

Не по теме:

Напоминает мне это про старый боян; ТС вопрос: как прошить KDE2 под FreeBSD? - Ответ через 5 лет - Все спасибо, сам разобрался :rofl:

@General Motors · 08.08.2013, 16:28 **[ТС]**

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

Не по теме:

Напоминает мне это про старый боян; ТС вопрос: как прошить KDE2 под FreeBSD? - Ответ через 5 лет - Все спасибо, сам разобрался :rofl:

Да весело, но для переделки времени было 0. Вот вернулся к этой теме, но опять не получается.

@Praktolock · 08.08.2013, 21:01

C++

1	for(i=0;i<n;i++...

for i:=0 to n-1 do...

@General Motors · 09.08.2013, 09:55 **[ТС]**

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

C++

1	for(i=0;i<n;i++...

for i:=0 to n-1 do...

Что-то я явно делаю не так!
Для полной картины
Устанавливаю размер массива ia. ia - array of byte

Pascal

1	SetLength(ia,F.size);

Далее устанавливаю позицию от куда надо считать.

Pascal

1	F.seek(0,soFromBeginning);

Собственно считываю

Pascal

1	F.Read(Pointer(ia)^,length(ia));

Обнуляю начальное значение суммы:

Pascal

S:=0;

А есть разница между S:=0 или S:=$FFFF ?
Далее я так понимаю что n это длина самого массива.
for i:=0 to length(ia)-1 do
for os:=0 to 7 do
s:=((s shr 1) xor ((s xor ia[i]) shr os))*$a001;

Я понимаю что я делаю что-то не правильно, вот что?
Мне кажется что я неправильно указываю на массив ia[i] но вот как будет правильнее?

@Praktolock · 09.08.2013, 10:06

Чо-то я вообще не понимаю, что это за код, но вот на что тебе нужно обратить внимание. на сколько мне известно, во всяких там паскалях, массивы индексируются с 1 а не с 0. То бишь, если в си у тебя так:

C++

for(int i=0;n<8;n++)
 {
  massiv[i]=..... 
 };

То в паскале оно будет считать от 1 до 8:

Pascal

1 2	for i:=1 to 8 do massiv[i]=.....

Ну и в принципе, циклы немного по разному работают. В си:

C++

1	for(int i=0;i<3;i++)...//выполнится 3 раза со значениями i 0,1,2

Pascal

1	for i:=0 to 3 do....//выполнится 4 раза со значениями 0,1,2,3

Чуешь разницу?

@General Motors · 09.08.2013, 10:17 **[ТС]**

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

Чо-то я вообще не понимаю, что это за код, но вот на что тебе нужно обратить внимание. на сколько мне известно, во всяких там паскалях, массивы индексируются с 1 а не с 0. То бишь, если в си у тебя так:
Код C++
1
2
3
4
for(int i=0;n<8;n++)
*{
* massiv[i]=.....
*};
То в паскале оно будет считать от 1 до 8:
Код Pascal
1
2
for i:=1 to 8 do
*massiv[i]=.....

А почему не от нуля до 7 к примеру?

Добавлено через 1 минуту

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

Ну и в принципе, циклы немного по разному работают. В си:
Код C++
1
for(int i=0;i<3;i++)...//выполнится 3 раза со значениями i *0,1,2
Код Pascal
1
for i:=0 to 3 do....//выполнится 4 раза со значениями 0,1,2,3

Это и так понятно! т.к i<3, а значит трем равно быть не может.

@Praktolock · 09.08.2013, 11:52

Сообщение от General Motors

А почему не от нуля до 7 к примеру?

В паскале первый элемент массива massiv[1], в си - massiv[0]. Паскаль такой паскаль.

Сообщение от General Motors

Это и так понятно! т.к i<3, а значит трем равно быть не может.

Ну так учитывай это в своём коде
Вот твой исходный код:

C++

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

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

Pascal

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

В сишном варианте у тебя цикл в котором счётчик i выполняется n раз, в паскальном коде n+1 раз

Добавлено через 11 минут
С циклом os аналогично в сишном он тикает от 0 до 7 (8 итераций) в паскале от 0 то 8 (9 итераций). Если i и os играют роли индексов в массивах то в коде на паскале циклы нужно начинать с 1:

Pascal

for i:=1 to n do
begin
   ia:=ia+1;
   for os:=1 to 8 do
      begin
        s:=                  //Вот этот участок кода не понятен
      end 
end

@General Motors · 09.08.2013, 13:28 **[ТС]**

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

Чо-то я вообще не понимаю, что это за код, но вот на что тебе нужно обратить внимание. на сколько мне известно, во всяких там паскалях, массивы индексируются с 1 а не с 0. То бишь, если в си у тебя так:

C++

for(int i=0;n<8;n++)
 {
  massiv[i]=..... 
 };

То в паскале оно будет считать от 1 до 8:

Pascal

1 2	for i:=1 to 8 do massiv[i]=.....

Ну и в принципе, циклы немного по разному работают. В си:

C++

1	for(int i=0;i<3;i++)...//выполнится 3 раза со значениями i 0,1,2

Pascal

1	for i:=0 to 3 do....//выполнится 4 раза со значениями 0,1,2,3

Чуешь разницу?

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

В паскале первый элемент массива massiv[1], в си - massiv[0]. Паскаль такой паскаль.
Ну так учитывай это в своём коде
Вот твой исходный код:

C++

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

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

Pascal

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

В сишном варианте у тебя цикл в котором счётчик i выполняется n раз, в паскальном коде n+1 раз

Добавлено через 11 минут
С циклом os аналогично в сишном он тикает от 0 до 7 (8 итераций) в паскале от 0 то 8 (9 итераций). Если i и os играют роли индексов в массивах то в коде на паскале циклы нужно начинать с 1:

Pascal

for i:=1 to n do
begin
   ia:=ia+1;
   for os:=1 to 8 do
      begin
        s:=                  //Вот этот участок кода не понятен
      end 
end

Это я всё понял я уже попробовал и так и эдак бесполезно. У меня не правильно организован видимо подсчет сам.

Pascal

1	s:= s:=((s shr 1)xor((s xor ia^) shr os))*k;

@General Motors 4 / 4 / 0 Регистрация: 29.11.2012 Сообщений: 68
	08.08.2013, 16:28 [ТС]	14
	Сообщение от coloc Не по теме: Напоминает мне это про старый боян; ТС вопрос: как прошить KDE2 под FreeBSD? - Ответ через 5 лет - Все спасибо, сам разобрался :rofl: Да весело, но для переделки времени было 0. Вот вернулся к этой теме, но опять не получается. 0

@taras atavin 4226 / 1795 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	29.11.2012, 11:18	2
	Сообщение от General Motors Начинаю переводить в Делфи: А при чём здесь раздел плюсов? Оригинал на сях, перевод нужен на обджект паскаль. Ни тот, ни другой язык плюсами не является. Добавлено через 29 секунд 0

ValeryS Модератор 8876 / 6651 / 912 Регистрация: 14.02.2011 Сообщений: 23,420
	29.11.2012, 11:22	3
	Сообщение от General Motors for(i=0;i<n;i++;ia++) давно у нас у Фора 4 аргумента? 0

@General Motors 4 / 4 / 0 Регистрация: 29.11.2012 Сообщений: 68
	29.11.2012, 11:23 [ТС]	4
	Сообщение от taras atavin А при чём здесь раздел плюсов? Оригинал на сях, перевод нужен на обджект паскаль. Ни тот, ни другой язык плюсами не является. Добавлено через 29 секунд Код на с++ Ошибся не тот тег указал. 0

@taras atavin 4226 / 1795 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	29.11.2012, 11:24	5
	Сообщение от General Motors s:= * * * * * * * * //Вот этот участок кода не понятен А что здесь не понятного? Сообщение от General Motors* s=s>>1 - правый сдвиг на 1 бит, то есть деление нацело пополам, Сообщение от General Motors ^ - побитовая (не булевая) ксорка, Сообщение от General Motors ia данные по указателю ia, Сообщение от General Motors* >>os правый сдвиг на os, то есть деление на цело на 2 в степени os, Сообщение от General Motors &1 побитовое (не булевое) and с единицей, то есть выделение младшего бита и обнуление остальных, то есть взятие остатка от деления на цело пополам. Сообщение от General Motors *k - умножение на k. 0

@General Motors 4 / 4 / 0 Регистрация: 29.11.2012 Сообщений: 68
	29.11.2012, 11:26 [ТС]	6
	Сообщение от ValeryS давно у нас у Фора 4 аргумента? Это нормально код на C++. При изменении переменной i от 0 до n переменные i и ia увеличиваются на 1. 0

@taras atavin 4226 / 1795 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	29.11.2012, 11:26	7
	Сообщение от ValeryS давно у нас у Фора 4 аргумента? for на плюсах имеет три позиции, в первой и в последней можно написать произвольное количество операторов от ноля и больше. На чистых сях вроде тоже. Только разделять их надо запятыми. 0

@coloc погромист 415 / 251 / 30 Регистрация: 27.08.2012 Сообщений: 550
	08.08.2013, 16:22	13
	Сообщение от General Motors Переделаю, проверю отпишусь. Сообщение от General Motors Возвращаюсь к этой старой задаче Не по теме: Напоминает мне это про старый боян; ТС вопрос: как прошить KDE2 под FreeBSD? - Ответ через 5 лет - Все спасибо, сам разобрался :rofl: 0

@General Motors 4 / 4 / 0 Регистрация: 29.11.2012 Сообщений: 68
	09.08.2013, 10:17 [ТС]	18
	Сообщение от Praktolock Чо-то я вообще не понимаю, что это за код, но вот на что тебе нужно обратить внимание. на сколько мне известно, во всяких там паскалях, массивы индексируются с 1 а не с 0. То бишь, если в си у тебя так: Код C++ 1 2 3 4 for(int i=0;n<8;n++) { massiv[i]=..... }; То в паскале оно будет считать от 1 до 8: Код Pascal 1 2 for i:=1 to 8 do massiv[i]=..... А почему не от нуля до 7 к примеру? Добавлено через 1 минуту Сообщение от Praktolock Ну и в принципе, циклы немного по разному работают. В си: Код C++ 1 for(int i=0;i<3;i++)...//выполнится 3 раза со значениями i *0,1,2 Код Pascal 1 for i:=0 to 3 do....//выполнится 4 раза со значениями 0,1,2,3 Это и так понятно! т.к i<3, а значит трем равно быть не может. 0