Линейный алгоритм

[Alexandra1991]

Помогите, уважаемые знатоки, девушке, начинающему програмисту, сложить программу по таким данным:

Линейный алгоритм. Логические типы данных . Логической переменной Pole присвоить значение true, если поля (Hor1,ver1) и (Hor2,ver2) шахматной доски имеют одинаковый цвет (Hor1,ver1,hor2,ver2) – целие от 1 до 8

Я долго думала,но не смогла решить, вся надежда теперь на вас!
Буду вам очень признательна.

[D@rkD@iver]

напиши в личку, сделаю за умереную плату

[Alexandra1991]

как перенести тему в раздел "помощь студентам"?

[zettor]

По моему так, но надо проверить:
var Hor1,ver1,Hor2,ver2: byte;
pole,b,b1: boolean;
begin
readln (hor1,ver1,hor2,ver2); { если белая клетка то true}
IF (hor1 mod 2= 0) and (ver1 mod 2= 0)then b:= false
else if (hor1 mod 2 <> 0) and (ver1 mod 2 = 0) then b:= true
else if (hor1 mod 2 = 0) and (ver1 mod 2 <> 0) then b:= true
else b:= false;
IF (hor2 mod 2) and (ver2 mod 2) = 0 then b1:= false
else if (hor2 mod 2 <> 0) and (ver2 mod 2 = 0) then b1:= true
else if (hor2 mod 2 = 0) and (ver2 mod 2 = 0) then b1:= true
else b1:= false;
if b=b1 then pole:= true
else pole:= false;
writeln (pole);
end.

[Serge_Bliznykov]

zettor, ну предпосылка правильная, но навороченно... я запутался.. (но это отнюдь не означает, что решение неверное!!! может быть и правильное.)
Но ведь проще так:
поле чёрное, если вертикальная и горизонтальная координаты имеют одинаковую чётность (или оба нечётные, или оба чётные) и белое, если они имеют разную чётность.
Т.к. нам не надо получать, какой цвет поля (белый или чёрный) а нужно только выяснить одинаковые ли цвета то можно написать так:
цвет первого поля: odd(Hor1) = odd(Ver1)
цвет второго поля: odd(Hor2) = odd(Ver2)
ну и вот решение (одна строчка кода):

Pole := (odd(Hor1) = odd(Ver1)) = (odd(Hor2) = odd(Ver2));

всё.

[zettor]

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

[zettor]

type sh = 1..8;
var Hor1,ver1,Hor2,ver2: sh;
pole: boolean;
begin
readln (hor1,ver1,hor2,ver2);
Pole := (odd(Hor1) = odd(Ver1)) = (odd(Hor2) = odd(Ver2));
writeln (pole);
end.
Готовое решение.

[Alexandra1991]

zettor

Большое, пребольшое вам спасибо!