[Nevil_White]

Дали задание, последовательность чисел. Нужно узнать количество парных.
Как бы все просто это цикл, а как узнать парное число или нет?

[NumLock]

Определение: Два простых числа N1 и N2, где N2> N1 называются парными, если N2 - N1 = 2.

как-то так...

[Nevil_White]

Мм, уже сам догадался.
программно это будет так:

Код:

if (a mod 2 =0)

[NumLock]

через mod можно узнать четное число или нет, а не парные числа.

[Nevil_White]

Продолжаем по теме:

Код:

program zadanie9;
type charset=set of byte;

var set1:set of 1..30;
j,i,res:integer;

begin
    j:=0;

    set1:=[15,4,5,7,9,6,4,8,5,2,3,19,13,13,17,19,15,11,3,22,27,26,24,27,25,29,14,9,13,21];
    
    
    for i:=1 to 30 do
    begin
        if i in set1 then j:=i;

        begin
   
        if (j mod 2=0) then res:=res+1;
        end;
    end;
    writeln('Четных чисел: ', res);

end.

Проблема в том что в результат не правильный, а массив использовать нельзя

[lmikle]

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

Продолжаем по теме:

Код:

program zadanie9;
type charset=set of byte;

var set1:set of 1..30;
j,i,res:integer;

begin
    j:=0;

    set1:=[15,4,5,7,9,6,4,8,5,2,3,19,13,13,17,19,15,11,3,22,27,26,24,27,25,29,14,9,13,21];
    
    
    for i:=1 to 30 do
    begin
        if i in set1 then j:=i;

        begin
   
        if (j mod 2=0) then res:=res+1;
        end;
    end;
    writeln('Четных чисел: ', res);

end.

Проблема в том что в результат не правильный, а массив использовать нельзя

Что занчит "нельзя использовать массив"? А откуда ты будешь брать числа? С консоли?

Да, и еще, а кто будет res инициализировать?

ЗЫ. Вроде ты хотел парные числа, или все-таки четные нужны?

[D_E_N_]

"парные" и "четные" - одно и то же.

Самый быстрый способ определения четности:

Код:

if N or 1 = N then writeln('Число N нечетное') else writeln('число N четное');

[NumLock]

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

"парные" и "четные" - одно и то же.

читай 2-ой пост.

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

Самый быстрый способ определения четности:

Код:

if N or 1 = N then writeln('Число N нечетное') else writeln('число N четное');

если б еще рабочим был)))

[lmikle]

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

если б еще рабочим был)))

Угу. Хотя поправить легко

Код:

if N or 1 = 1 then writeln('Число N нечетное') else writeln('число N четное');

Видимо, описка.

[M.A.D.M.A.N.]

N and 1 = 1 вроде так должно быть?
01010111
and
00000001
=
00000001

[D_E_N_]

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

если б еще рабочим был)))

А он рабочий. Пусть N=1010110 - четное число, тогда
N: 1010110
or
1: 0000001
=
1010111

1010111<>1010110, так что N изменилось, значит у него изначально не стоял самый младший бит нечетности, значит число четное.

Ну, и наоборот, если оно изначально нечетное.

[D_E_N_]

Сообщение от M.A.D.M.A.N.

N and 1 = 1 вроде так должно быть?
01010111
and
00000001
=
00000001

тоже вариант, но работает слегка медленней, так как сбрасываются все биты, кроме одного. но ничего, это заметно разве что на аппаратном уровне.

[Bargest]

тоже вариант, но работает слегка медленней, так как сбрасываются все биты, кроме одного. но ничего, это заметно разве что на аппаратном уровне

Мда. Вообще-то оба числа загружаются в АЛУ, после чего выполняется операция и считывается результат. Даже если число не изменилось вообще, оно будет перезаписано. При этом в АЛУ все операции (логические и +/-) выполняются одновременно над всеми битами. Поэтому скорость абсолютно одинаковая с этой точки зрения.
А вот с другой стороны скорость примера D_E_N_ гораздо ниже. Потому что все логические операции меняют флаги, в т.ч. флаг нуля. Если делать and 1

Код:

mov eax, [N]
and eax, 1
jz ...
; или даже
test [N], 1
jz ...

то в результате будет либо 0, либо 1. В первом случае установится флаг нуля, во втором - сбросится. То есть сравнение производится в 1 команду. А если делать вариант с N or 1 <> N, то надо сначала применить or, а потом еще и сравнить с N (в то время как сравнение гораздо дольше логических операций). И добавляется еще копирование числа между регистрами.

Код:

mov eax, [N]
mov ebx, eax
or eax, 1
cmp eax, ebx
jz ....

Именно поэтому делфийский ODD компилится в первый вариант.
Вопрос только в том, почему мы уже 7 постов подряд обсуждаем четные/нечетные, в то время как парные - совсем другое. Для неверующих - 2 пост в помощь.
Чтобы проверить парность чисел, одно число должно быть на 2 меньше другого, то есть надо их вычесть и результат сравнить с 2.

[NumLock]

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

А он рабочий.

он не отвечает на вопрос парные числа или нет.

[Nevil_White]

На самом деле число которое делиться на 2 без остатка.
А то парное, четное, люди, я в этом не сильно, с массивом легко воплотить, уже даже знаю как.