Решаем задачи Абрамян на Паскале. Boolean40

Boolean40. Даны координаты двух различных полей шахматной доски $x_1$ , $y_1$ , $x_2$ , $y_2$ (целые числа, лежащие в диапазоне 1–8). Проверить истинность высказывания: «Конь за один ход может перейти с одного поля на другое».

Решение:

program Boolean40;
var
  x1,y1,x2,y2: Integer;
begin
  Write('Введите 1 координату 1 клетки шахматной доски: ');
  Readln(x1);
  Write('Введите 2 координату 1 клетки шахматной доски: ');
  Readln(y1);
  Write('Введите 1 координату 2 клетки шахматной доски: ');
  Readln(x2);
  Write('Введите 2 координату 2 клетки шахматной доски: ');
  Readln(y2);
  Writeln(((Abs(x1-x2)=1) and (Abs(y1-y2)=2)) or ((Abs(x1-x2)=2) and (Abs(y1-y2)=1)));
end.

program Boolean40;

var

x1,y1,x2,y2: Integer;

begin

Write('Введите 1 координату 1 клетки шахматной доски: ');

Readln(x1);

Write('Введите 2 координату 1 клетки шахматной доски: ');

Readln(y1);

Write('Введите 1 координату 2 клетки шахматной доски: ');

Readln(x2);

Write('Введите 2 координату 2 клетки шахматной доски: ');

Readln(y2);

Writeln(((Abs(x1-x2)=1) and (Abs(y1-y2)=2)) or ((Abs(x1-x2)=2) and (Abs(y1-y2)=1)));

end.

Другие задачи из раздела Boolean можно посмотреть здесь.

Комментарии 4

Renata

22.04.2015 в 10:34

а если
abs(x1-x2) + abs(y1-y2) = 3

Ответить
- Anton
  
  22.04.2015 в 10:48
  
  К сожалению конь так не ходит 🙂
  x1=3;y1=1
  x2=3;y2=4
  
  Ответить
  - Renata
    
    22.04.2015 в 11:00
    
    эх 🙁
    
    Ответить

var
  x1, y1, x2, y2: integer;

begin
  read(x1, y1, x2, y2);
  writeln((abs(x1 - x2) in [1, 2]) and (abs(y1 - y2) in [1, 2]) and
  (abs(x1 - x2) + abs(y1 - y2) = 3))
end.

x1, y1, x2, y2: integer;

read(x1, y1, x2, y2);

writeln((abs(x1 - x2) in [1, 2]) and (abs(y1 - y2) in [1, 2]) and

(abs(x1 - x2) + abs(y1 - y2) = 3))

Ответить

Решаем задачи Абрамян на Паскале. Boolean40

Комментарии:

Комментарии 4

Добавить комментарий Отменить ответ