Клетки

[varkich]

Даны координаты двух полей шахматной доски (координаты клетки - это 2 числа от 1 до 8: номер столбца и номер строки). Одного ли цвета эти клетки на шахматной доске?
Вывести в выходной файл сообщение YES, если они одного цвета, и NO иначе.
Примеры
input.txt output.txt
1 1 2 2 YES

1 1 1 4 NO

[Костя КС]

program pole;
type
mas = array[0..1] of integer;
var
f:text;
t1,t2 : mas;
s1,s2 : integer;
b : boolean;
begin
 assign(f,'input.txt');
 reset(f);
 read(f,t1[0]);
 read(f,t1[1]);
 read(f,t2[0]);
 read(f,t2[1]);
 close(f);
 
 s1 := (t1[0]+t1[1]) MOD 2;
 s2 := (t2[0]+t2[1]) MOD 2;
 
 
 if s1=s2 then  b := true else b:=false;

  assign(f,'output.txt');
 rewrite(f);
  write(f,t1[0],' ');
  write(f,t1[1],' ');
  write(f,t2[0],' ');
  write(f,t2[1],' ');
 if b = true then
  begin
     writeln('yes');
     write(f,'yes');
  end else
  begin
     writeln('no');
     write(f,'no');
  end;
  close(f);
end.

[TinMan]

Костя, твоя прога, конечно, выдаст правильный ответ.. но зачем же все так переусложнять?? Типа без массивов эту задачу уже и не решить? ))

  readln(f,a,b,c,d);
  ...
  if odd(a+b+c+d) then writeln(f,'NO') else writeln(f,'YES');

И еще: если уж ты используешь массивы - то почему не используешь цикл при вводе/выводе? Какой тогда в них вообще смысл, в массивах? утяжелить код, чтоб использовать флешку с ним при самообороне? ))
И зачем много read/write там, где достаточно одного?
keep simple things simple

[Костя КС]

Эта программа была написана много лет тому назад к школьной олимпиаде 9 класса. Поэтому просьба сильно не придираться.

[TinMan]

Сообщение от Костя КС

Эта программа была написана много лет тому назад к школьной олимпиаде 9 класса. Поэтому просьба сильно не придираться.

фигасе причина.. а нам какая разница?

Если тебе мама/жена поставит тарелку и скажет: "этот суп я готовила месяц назад, так что просьба не придираться," - что ты скажешь?

[Serge_Bliznykov]

TinMan, +1

решение должно было выглядеть примерно так:

program pole;
var
  c1,r1,c2,r2 : integer;
begin
 {открываем стандартные файлы ввода/вывода
   и переназначаем их в текстовые файлы}
 assign(input,'input.txt');
 reset(input);
 assign(output,'output.txt');
 rewrite(output);

 {читаем из стандартного файла ввода значения координат полей}
 readln(c1,r1,c2,r2);

 {выводим результат сравнения полей в выходной файл}
 if odd(c1+r1+c2+r2) 
   then writeln('NO') 
   else writeln('YES');

 {закрываем открытые файлы}
 close(input);
 close(output);
end.

Костя КС, извините, что пытаюсь Вам давать советы, но я, по дружески, рекомендую Вам не лезть в бутылку (тем более, что Вы не правы), а лучше рассмотреть другие варианты и понять, почему ваше старое решение крайне громоздкое/неоптимальное/неэффективное...
Всем мы здесь на форуме учимся!

[studen]

вводим координаты полей в переменные x1 и y1 - для первого поля и х2 у2 для второго

bln:= odd(x1 + y1) = odd(x2 + y2)

bln - логическая переменная, будет тру если клетки одного цвета.

ввод/вывод не рассматриваю

[Serge_Bliznykov]

studen, в принципе, тоже верно. ну а чем вариант с

  if odd(a+b+c+d) then writeln(f,'NO') else writeln(f,'YES');

не устраивает?! и переменная булевского типа здесь при решении тоже не нужна!