- Главная
- Разное
- Бизнес и предпринимательство
- Образование
- Развлечения
- Государство
- Спорт
- Графика
- Культурология
- Еда и кулинария
- Лингвистика
- Религиоведение
- Черчение
- Физкультура
- ИЗО
- Психология
- Социология
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Маркетинг
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Что такое findslide.org?
FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Обратная связь
Email: Нажмите что бы посмотреть
Презентация на тему Сложные условия. Шахматные задачи
Содержание
- 2. 1Задача 1. Даны координаты шахматной доски x
- 3. 87654321 1 2 3 4 5 6 7 827+3=10Четная5+1=6Четная8+4=12Четная
- 4. 87654321 1 2 3
- 5. 4Program n1;Uses Crt;var x,y:Integer;begin ClrScr; write('Введи Х
- 6. 5Задача 2. Даны координаты двух различных полей
- 7. 87654321 1 2 3 4 5 6 7 86
- 8. 7Program n2;Uses Crt;var x,y,x1,y1:Integer;begin ClrScr; write('Введи Х
- 9. 8Задача 3. Даны координаты двух различных полей
- 10. 87654321 1 2 3 4 5 6 7 89
- 11. 87654321 1 2 3 4 5 6 7 8107-3=45-1=4
- 12. 11Program n1;Uses Crt;var x,y,x1,y1:Integer;begin ClrScr; write('Введи Х
- 13. ?12Задача 4. Даны координаты двух различных полей
- 14. 87654321 1 2 3 4 5 6 7 813
- 15. 14Program n4;Uses Crt;var x,y,x1,y1:Integer;begin ClrScr; write('Введи Х
- 16. ?15Задача 5. Даны координаты двух различных полей
- 17. 87654321 1 2 3
- 18. 17var x,y,x1,y1:Integer;a,b:boolean;begin ClrScr; write('Введи Х ');Readln(x); write('Введи
- 19. 87654321 1 2 3 4 5 6 7 8183,34,13,15,14,35,33,25,24,2Тест
- 20. ?19Задача 6. Даны координаты двух различных полей
- 21. 87654321 1 2 3 4 5 6 7 820
- 22. 87654321 1 2 3
- 23. 22var x,y,x1,y1:Integer;a,b:boolean;begin ClrScr; write('Введи Х ');Readln(x); write('Введи
- 24. 87654321 1 2 3 4 5 6 7 8234,65,77,78,64,45,37,38,46,5Тест
- 25. Скачать презентацию
- 26. Похожие презентации
1Задача 1. Даны координаты шахматной доски x и y, (целые числа, лежащие в диапазоне от 1-8). Учитывая, что левое нижнее поле доски (1;1) является черным, проверить, какого цвета поле координаты которого введены с клавиатуры.
Слайд 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). Проверить, попадет ли слон за один ход с одного поля на другое.?
Слайд 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.
Слайд 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.
