Контрольная работа: Программирование решения задач

writeln('dly vuhoda nagmite 0, esli net to 1');

readln(n);

if n=0 then break

until false

end.

Рис. 1. Результаты работы программы для задачи 1

Задача №2

Шахматная доска содержит 8х8 клеток. Горизонтали и вертикали обозначаются цифрами 1-8. Написать программу, проверяющую, можно ли с первой заданной клетки попасть на вторую одним ходом черного слона.

Решение

1. Анализ введенных с клавиатуры исходных данных для первой клетки

2. Условие для а1 > 8 или в1 > 8.

3. Анализ введенных с клавиатуры исходных данных для второй клетки

4. Условие для abs (а2-а1).

5. Выведение условия для выхода

6. Выводрезультатов

Для решения задачи введем координаты первой клетки, притом, что они должны быть меньше восьми; затем координаты второй клетки (они также должны быть меньше восьми). Если разность координат первой клетки равна разности координат второй клетки, то значит с первой клетки можно попасть на вторую одним ходом черного слона, если координаты не равны , то нельзя. Запишемрезультат.

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

var

a1,a2,b1,b2:integer;

c:real;

begin

repeat

writeln('Enter koordinati 1-oy kletki ot 1 do 8');

readln(a1,b1);

if (a1>8) or (b1>8) then writeln('Nelsya enter eto chislo, enter other');

writeln('Enter koordinati 2-oy kletki ot 1 do 8');

readln(a2,b2);

if abs(a2-a1)=abs(b2-b1) then writeln('mogno') else writeln('nelsya');

readln;