Слайд 2
1
Задача 1.
Даны координаты шахматной доски x и
y, (целые числа, лежащие в диапазоне от 1-8). Учитывая,
что левое нижнее поле доски (1;1) является черным, проверить, какого цвета поле координаты которого введены с клавиатуры.
Слайд 3
8
7
6
5
4
3
2
1
1 2 3 4
5 6 7 8
2
7+3=10
Четная
5+1=6
Четная
8+4=12
Четная
Слайд 4
8
7
6
5
4
3
2
1
1 2 3 4
5 6 7 8
3
4+1=5
Не четная
8+5=13
Не
четная
Слайд 5
4
Program n1;
Uses Crt;
var x,y:Integer;
begin
ClrScr;
write('Введи Х ');Readln(x);
write('Введи Y ');Readln(y);
if ((x+y) mod 2 =0) then
writeln ('Черная')
else writeln ('Белая');
end.
Слайд 6
5
Задача 2.
Даны координаты двух различных полей шахматной
доски x и y и x1 и y1, (целые
числа, лежащие в диапазоне от 1-8). Проверить, попадет ли ладья за один ход с одного поля на другое.
?
Слайд 8
7
Program n2;
Uses Crt;
var x,y,x1,y1:Integer;
begin
ClrScr;
write('Введи Х ');Readln(x);
write('Введи Y ');Readln(y);
write('Введи Х1 ');Readln(x1);
write('Введи Y1 ');Readln(y1);
if (x=x1) or (y=y1) then writeln ('Попадает')
else writeln ('Не попадает');
end.
Слайд 9
8
Задача 3.
Даны координаты двух различных полей шахматной
доски x и y и x1 и y1, (целые
числа, лежащие в диапазоне от 1-8). Проверить, попадет ли слон за один ход с одного поля на другое.
?
Слайд 11
8
7
6
5
4
3
2
1
1 2 3 4
5 6 7 8
10
7-3=4
5-1=4
Слайд 12
11
Program n1;
Uses Crt;
var x,y,x1,y1:Integer;
begin
ClrScr;
write('Введи Х ');Readln(x);
write('Введи Y ');Readln(y);
write('Введи Х1 ');Readln(x1);
write('Введи Y1 ');Readln(y1);
if abs(x-x1)=abs(y-y1)then
writeln ('Попадает')
else
writeln ('Не попадает');
end.
Слайд 13
?
12
Задача 4.
Даны координаты двух различных полей шахматной
доски x и y и x1 и y1, (целые
числа, лежащие в диапазоне от 1-8). Проверить, попадет ли ферзь за один ход с одного поля на другое.
Слайд 15
14
Program n4;
Uses Crt;
var x,y,x1,y1:Integer;
begin
ClrScr;
write('Введи Х ');Readln(x);
write('Введи Y ');Readln(y);
write('Введи Х1 ');Readln(x1);
write('Введи Y1 ');Readln(y1);
if ((abs(x-x1)=abs(y-y1)) or (x=x1)or (y=y1))
then
writeln ('Попадает')
else
writeln ('Не попадает');
end.
Слайд 16
?
15
Задача 5.
Даны координаты двух различных полей шахматной
доски x и y и x1 и y1, (целые
числа, лежащие в диапазоне от 1-8). Проверить, попадет ли король за один ход с одного поля на другое.
Слайд 17
8
7
6
5
4
3
2
1
1 2 3 4
5 6 7 8
16
x1=x-1 and
y1=y
x1=x-1 and y1=y+1
x1=x and y1=y+1
x1=x+1 and y1=y+1
x1=x+1 and y1=y
x1=x+1 and y1=y-1
x1=x and y1=y-1
x1=x-1 and y1=y-1
Слайд 18
17
var x,y,x1,y1:Integer;
a,b:boolean;
begin
ClrScr;
write('Введи Х ');Readln(x);
write('Введи Y
');Readln(y);
write('Введи Х1 ');Readln(x1);
write('Введи Y1 ');Readln(y1);
a:=(x1=x-1) and
(y1=y) or (x1=x-1) and (y1=y+1) or (x1=x) and (y1=y+1) or (x1=x+1) and (y1=y+1);
b:=(x1=x+1) and (y1=y) or (x1=x+1) and (y1=y-1) or (x1=x) and (y1=y-1) or (x1=x-1) and (y1=y-1);
if a or b then writeln ('Попадает')
else writeln ('Не попадает');
end.
Слайд 19
8
7
6
5
4
3
2
1
1 2 3 4
5 6 7 8
18
3,3
4,1
3,1
5,1
4,3
5,3
3,2
5,2
4,2
Тест
Слайд 20
?
19
Задача 6.
Даны координаты двух различных полей шахматной
доски x и y и x1 и y1, (целые
числа, лежащие в диапазоне от 1-8). Проверить, попадет ли конь за один ход с одного поля на другое.
Слайд 22
8
7
6
5
4
3
2
1
1 2 3 4
5 6 7 8
21
x1=x-2 and
y1=y+1
x1=x-1 and y1=y+2
x1=x+1 and y1=y+2
x1=x+2 and y1=y+1
x1=x-2 and y1=y-1
x1=x-1 and y1=y-2
x1=x+1 and y1=y-2
x1=x+2 and y1=y-1
Слайд 23
22
var x,y,x1,y1:Integer;
a,b:boolean;
begin
ClrScr;
write('Введи Х ');Readln(x);
write('Введи Y
');Readln(y);
write('Введи Х1 ');Readln(x1);
write('Введи Y1 ');Readln(y1);
a:=(x1=x-2) and
(y1=y+1) or (x1=x-1) and (y1=y+2) or (x1=x+1) and (y1=y+2) or (x1=x+2) and (y1=y+1);
b:=(x1=x-2) and (y1=y-1) or (x1=x-1) and (y1=y-2) or (x1=x+1) and (y1=y-2) or (x1=x+2) and (y1=y-1);
if a or b then writeln ('Попадает')
else writeln ('Не попадает');
end.
Слайд 24
8
7
6
5
4
3
2
1
1 2 3 4
5 6 7 8
23
4,6
5,7
7,7
8,6
4,4
5,3
7,3
8,4
6,5
Тест