Если ладья за один ход может перейти с одного поля на другое, вывести логическое значение True

@Иннулечка · Регистрация: 28.10.2012

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

Даны координаты (как целые от 1 до 8) двух различных полей шахматной доски. Если ладья за один ход может перейти с одного поля на другое, вывести логическое значение True, в противном случае вывести значение False. Помогите пожалуйста в Pascal

@ermolay · 16.11.2012, 19:58

Pascal

var
  x1,y1,x2,y2: byte;
  boo: boolean;
begin
  boo:=false;
  repeat
    write('Введите координаты первого поля: ');
    readln(x1,y1);
  until (x1 in[1..8])and(y1 in [1..8]);
  repeat
    write('Введите координаты второго поля: ');
    readln(x2,y2);
  until (x2 in[1..8])and(y2 in [1..8]);
  if (x1=x2)or(y1=y2) then boo:=true;
  writeln(boo);
  readln;
end.

@Иннулечка · 16.11.2012, 20:23 **[ТС]**

спасибо огромное

@Иннулечка 0 / 0 / 1 Регистрация: 28.10.2012 Сообщений: 18
		1
	Если ладья за один ход может перейти с одного поля на другое, вывести логическое значение True 16.11.2012, 19:51. Показов 5609. Ответов 2 Метки нет (Все метки) Даны координаты (как целые от 1 до 8) двух различных полей шахматной доски. Если ладья за один ход может перейти с одного поля на другое, вывести логическое значение True, в противном случае вывести значение False. Помогите пожалуйста в Pascal 0

@Иннулечка 0 / 0 / 1 Регистрация: 28.10.2012 Сообщений: 18
	16.11.2012, 20:23 [ТС]	3
	спасибо огромное 0

Если ладья за один ход может перейти с одного поля на другое, вывести логическое значение True

Решение