Презентация, доклад к уроку информатики Сложные условия. Шахматные задачи

Содержание

1Задача 1. Даны координаты шахматной доски x и y, (целые числа, лежащие в диапазоне от 1-8). Учитывая, что левое нижнее поле доски (1;1) является черным, проверить, какого цвета поле координаты которого введены с клавиатуры.

Слайд 1Презентация к уроку информатики
9 класс
Автор: Юдин Андрей Борисович
МКОУ Плесская СОШ
PascalABC
8
7
6
5
4
3
2
1
«Шахматные»
задачи
1

2 3 4 5 6 7 8

Задачи на сложные
условия

Презентация к уроку информатики9 классАвтор: Юдин Андрей БорисовичМКОУ Плесская СОШPascalABC87654321«Шахматные»задачи 1  2  3  4

Слайд 21
Задача 1.

Даны координаты шахматной доски x и y, (целые числа,

лежащие в диапазоне от 1-8). Учитывая, что левое нижнее поле доски (1;1) является черным, проверить, какого цвета поле координаты которого введены с клавиатуры.

1Задача 1. Даны координаты шахматной доски x и y, (целые числа, лежащие в диапазоне от 1-8). Учитывая,

Слайд 38
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
Четная

87654321 1  2  3  4  5  6  7  827+3=10Четная5+1=6Четная8+4=12Четная

Слайд 48
7
6
5
4
3
2
1
1 2 3 4 5

6 7 8

3

4+1=5
Не четная

8+5=13
Не четная

87654321 1  2  3  4  5  6  7  834+1=5Не четная8+5=13Не

Слайд 54
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.

4Program n1;Uses Crt;var x,y:Integer;begin ClrScr; write('Введи Х ');Readln(x); write('Введи Y ');Readln(y); if ((x+y) mod 2 =0) then

Слайд 65
Задача 2.

Даны координаты двух различных полей шахматной доски x и

y и x1 и y1, (целые числа, лежащие в диапазоне от 1-8). Проверить, попадет ли ладья за один ход с одного поля на другое.

?

5Задача 2. Даны координаты двух различных полей шахматной доски x и y и x1 и y1, (целые

Слайд 78
7
6
5
4
3
2
1
1 2 3 4 5

6 7 8

6

87654321 1  2  3  4  5  6  7  86

Слайд 87
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.
7Program 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);

Слайд 98
Задача 3.

Даны координаты двух различных полей шахматной доски x и

y и x1 и y1, (целые числа, лежащие в диапазоне от 1-8). Проверить, попадет ли слон за один ход с одного поля на другое.

?

8Задача 3. Даны координаты двух различных полей шахматной доски x и y и x1 и y1, (целые

Слайд 108
7
6
5
4
3
2
1
1 2 3 4 5

6 7 8

9

87654321 1  2  3  4  5  6  7  89

Слайд 118
7
6
5
4
3
2
1
1 2 3 4 5

6 7 8

10

7-3=4

5-1=4

87654321 1  2  3  4  5  6  7  8107-3=45-1=4

Слайд 1211
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.
11Program 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);

Слайд 13?
12
Задача 4.

Даны координаты двух различных полей шахматной доски x и

y и x1 и y1, (целые числа, лежащие в диапазоне от 1-8). Проверить, попадет ли ферзь за один ход с одного поля на другое.

?12Задача 4. Даны координаты двух различных полей шахматной доски x и y и x1 и y1, (целые

Слайд 148
7
6
5
4
3
2
1
1 2 3 4 5

6 7 8

13

87654321 1  2  3  4  5  6  7  813

Слайд 1514
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.
14Program 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);

Слайд 16?
15
Задача 5.

Даны координаты двух различных полей шахматной доски x и

y и x1 и y1, (целые числа, лежащие в диапазоне от 1-8). Проверить, попадет ли король за один ход с одного поля на другое.

?15Задача 5. Даны координаты двух различных полей шахматной доски x и y и x1 и y1, (целые

Слайд 178
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

87654321 1  2  3  4  5  6  7  816x1=x-1 and

Слайд 1817
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.
17var 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

Слайд 198
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

Тест

87654321 1  2  3  4  5  6  7  8183,34,13,15,14,35,33,25,24,2Тест

Слайд 20?
19
Задача 6.

Даны координаты двух различных полей шахматной доски x и

y и x1 и y1, (целые числа, лежащие в диапазоне от 1-8). Проверить, попадет ли конь за один ход с одного поля на другое.

?19Задача 6. Даны координаты двух различных полей шахматной доски x и y и x1 и y1, (целые

Слайд 218
7
6
5
4
3
2
1
1 2 3 4 5

6 7 8

20

87654321 1  2  3  4  5  6  7  820

Слайд 228
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

87654321 1  2  3  4  5  6  7  821x1=x-2 and

Слайд 2322
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.
22var 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

Слайд 248
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

Тест

87654321 1  2  3  4  5  6  7  8234,65,77,78,64,45,37,38,46,5Тест

Слайд 2525
Список литературы:
1. Основы программирования. И. Г. Семакин, А. П. Шестаков Издательство:

Высшая школа, 2001
2. 100 задач по программированию. В. А. Дагене, Г. К. Григас, К. Ф. Аугутис Издательство: Просвещение 1993
3. Паскаль для школьников, Подготовка к ЕГЭ, Кашаев С.М., Шерстнева Л.В., 2011.
4. Книга начинающего шахматиста. Левенфиш Г. Я. Издательство: Москва. «Физкультура и спорт», 1957 г.
25Список литературы:1. Основы программирования. И. Г. Семакин, А. П. Шестаков Издательство: Высшая школа, 20012. 100 задач по

Что такое shareslide.ru?

Это сайт презентаций, где можно хранить и обмениваться своими презентациями, докладами, проектами, шаблонами в формате PowerPoint с другими пользователями. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами.


Для правообладателей

Яндекс.Метрика

Обратная связь

Email: Нажмите что бы посмотреть