Question

Помогите по pascal abc пожалуйста!Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит восьми:первое число-номер вертикали(при счете слева направо), а второе-номер по горизонтали(при счете снизу вверх). С клавиатуры вводятся четыре числа a, b, c,d, каждое из которых не превосходит восьми. На поле ( a,b ) расположен слон. Написать программу, которая выводит на экран true, если слон угрожает полю ( c,d ) false в противном случае.ПРИМЕЧАНИЕ. Слон может перемещаться строго по диагонали на произвольное число клеток.

Answer 1

Program slon;
var a, b, c, d:integer;
begin
a:=0; b:=0; c:=0; d:=0;
while (a<1) or (a>8) do begin write ('Введите число от 1 до 8, a='); readln (a); end;
while (b<1) or (b>8) do begin write ('Введите число от 1 до 8, b='); readln (b); end;
while (c<1) or (c>8) do begin write ('Введите число от 1 до 8, c='); readln (c); end;
while (d<1) or (d>8) do begin write ('Введите число от 1 до 8, d='); readln (d); end;
if abs(a-c)=abs(b-d) then write ('true') else write ('false');
end.

Answer 2

Постановка задачи

Вам необходимо написать программу на языке Pascal, которая будет определять, угрожает ли слон полю с заданными координатами.

Решение

Для решения этой задачи можно использовать следующий алгоритм: 1. Считать с клавиатуры четыре числа: `a`, `b`, `c`, `d`, которые представляют собой координаты полей на шахматной доске. 2. Проверить, находятся ли поля `a` и `b` на одной диагонали с полями `c` и `d`. Для этого можно использовать следующее условие: модуль разности `a - c` должен быть равен модулю разности `b - d`. 3. Если условие выполняется, вывести на экран `true`, иначе вывести `false`.

Пример кода на Pascal

```pascal program Chess; var a, b, c, d: integer; begin writeln('Введите координаты полей a, b, c, d:'); readln(a, b, c, d); if abs(a - c) = abs(b - d) then writeln('true') else writeln('false'); end. ```

Объяснение кода

- В первой строке объявляется программа с именем "Chess". - В блоке `var` объявляются переменные `a`, `b`, `c`, `d`, которые будут использоваться для хранения координат полей. - В блоке `begin` начинается основная часть программы. - С помощью `writeln` выводится сообщение с просьбой ввести координаты полей. - С помощью `readln` считываются значения `a`, `b`, `c`, `d` с клавиатуры. - С помощью условного оператора `if` проверяется условие: модуль разности `a - c` должен быть равен модулю разности `b - d`. - Если условие выполняется, то с помощью `writeln` выводится на экран `true`, иначе выводится `false`. - В конце программы ставится точка `.`.

Пример работы программы

``` Введите координаты полей a, b, c, d: 2 3 5 6 false ```