Что такое findslide.org?

FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.


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

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

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

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

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

Содержание

1Задача 1. Даны координаты шахматной доски x и y, (целые числа, лежащие в диапазоне от 1-8). Учитывая, что левое нижнее поле доски (1;1) является черным, проверить, какого цвета поле координаты которого введены с клавиатуры.
Презентация к уроку информатики9 классАвтор: Юдин Андрей БорисовичМКОУ Плесская СОШPascalABC87654321«Шахматные»задачи 1 1Задача 1. Даны координаты шахматной доски x и y, (целые числа, лежащие 87654321 1  2  3  4  5  6  7  827+3=10Четная5+1=6Четная8+4=12Четная 87654321 1  2  3  4  5  6 4Program n1;Uses Crt;var x,y:Integer;begin ClrScr; write('Введи Х ');Readln(x); write('Введи Y ');Readln(y); if 5Задача 2. Даны координаты двух различных полей шахматной доски x и y 87654321 1  2  3  4  5  6  7  86 7Program n2;Uses Crt;var x,y,x1,y1:Integer;begin ClrScr; write('Введи Х ');Readln(x); write('Введи Y ');Readln(y); write('Введи 8Задача 3. Даны координаты двух различных полей шахматной доски x и y 87654321 1  2  3  4  5  6  7  89 87654321 1  2  3  4  5  6  7  8107-3=45-1=4 11Program n1;Uses Crt;var x,y,x1,y1:Integer;begin ClrScr; write('Введи Х ');Readln(x); write('Введи Y ');Readln(y); write('Введи ?12Задача 4. Даны координаты двух различных полей шахматной доски x и y 87654321 1  2  3  4  5  6  7  813 14Program n4;Uses Crt;var x,y,x1,y1:Integer;begin ClrScr; write('Введи Х ');Readln(x); write('Введи Y ');Readln(y); write('Введи ?15Задача 5. Даны координаты двух различных полей шахматной доски x и y 87654321 1  2  3  4  5  6 17var x,y,x1,y1:Integer;a,b:boolean;begin ClrScr; write('Введи Х ');Readln(x); write('Введи Y ');Readln(y); write('Введи Х1 ');Readln(x1); 87654321 1  2  3  4  5  6  7  8183,34,13,15,14,35,33,25,24,2Тест ?19Задача 6. Даны координаты двух различных полей шахматной доски x и y 87654321 1  2  3  4  5  6  7  820 87654321 1  2  3  4  5  6 22var x,y,x1,y1:Integer;a,b:boolean;begin ClrScr; write('Введи Х ');Readln(x); write('Введи Y ');Readln(y); write('Введи Х1 ');Readln(x1); 87654321 1  2  3  4  5  6  7  8234,65,77,78,64,45,37,38,46,5Тест 25Список литературы:1. Основы программирования. И. Г. Семакин, А. П. Шестаков Издательство: Высшая
Слайды презентации

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

Даны координаты шахматной доски x и

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

y, (целые числа, лежащие в диапазоне от 1-8). Учитывая,

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


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

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

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

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

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);

4Program n1;Uses Crt;var x,y:Integer;begin ClrScr; write('Введи Х ');Readln(x); write('Введи Y ');Readln(y);

write('Введи Y ');Readln(y);
if ((x+y) mod 2 =0) then

writeln ('Черная')
else writeln ('Белая');
end.


Слайд 6 5
Задача 2.

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

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

доски x и y и x1 и y1, (целые

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

?


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

87654321 1 2 3 4 5 6 7 86

5 6 7 8
6


Слайд 8 7
Program n2;
Uses Crt;
var x,y,x1,y1:Integer;
begin
ClrScr;
write('Введи Х ');Readln(x);

7Program n2;Uses Crt;var x,y,x1,y1:Integer;begin ClrScr; write('Введи Х ');Readln(x); write('Введи Y ');Readln(y);

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.

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

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

доски x и y и x1 и y1, (целые

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

?


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

87654321 1 2 3 4 5 6 7 89

5 6 7 8
9


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

87654321 1 2 3 4 5 6 7 8107-3=45-1=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);

11Program n1;Uses Crt;var x,y,x1,y1:Integer;begin ClrScr; write('Введи Х ');Readln(x); write('Введи Y ');Readln(y);

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.

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

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

доски x и y и x1 и y1, (целые

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


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

87654321 1 2 3 4 5 6 7 813

5 6 7 8
13


Слайд 15 14
Program n4;
Uses Crt;
var x,y,x1,y1:Integer;
begin
ClrScr;
write('Введи Х ');Readln(x);

14Program n4;Uses Crt;var x,y,x1,y1:Integer;begin ClrScr; write('Введи Х ');Readln(x); write('Введи Y ');Readln(y);

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.

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

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

доски x и y и x1 и y1, (целые

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


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

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

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

17var x,y,x1,y1:Integer;a,b:boolean;begin ClrScr; write('Введи Х ');Readln(x); write('Введи Y ');Readln(y); write('Введи Х1

');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

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

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.

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

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

доски x и y и x1 и y1, (целые

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


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

87654321 1 2 3 4 5 6 7 820

5 6 7 8
20


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

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

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

22var x,y,x1,y1:Integer;a,b:boolean;begin ClrScr; write('Введи Х ');Readln(x); write('Введи Y ');Readln(y); write('Введи Х1

');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

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

5 6 7 8
23
4,6
5,7
7,7
8,6
4,4
5,3
7,3
8,4
6,5
Тест


  • Имя файла: slozhnye-usloviya-shahmatnye-zadachi.pptx
  • Количество просмотров: 146
  • Количество скачиваний: 0