Определить, являются ли две клетки начальным и конечным положением одного хода (шахматы)

@Вася цюрик · Регистрация: 15.01.2015

Студворк — интернет-сервис помощи студентам

Клетка на шахматной доске определяется парой чисел. Определить, являются
ли две клетки начальным и конечным положением одного хода:
a) короля;
b) ферзя;
c) ладьи;
d) слона;
e) коня;
f) пешки.

@кот Бегемот · 18.01.2015, 12:45

А не до фига так сразу?

@Вася цюрик · 18.01.2015, 12:50 **[ТС]**

мне срочно надо помоги плз!!!

@Portoble · 18.01.2015, 13:26

Дальше делать - времени нет.
допиши сам
x- стартовое положение по горизонтали
y- стартовое положение по вертикали
x1 - финальное положение
y1 - финальное положение
программа не учитывает существование клетки
программа не учитывает "рубку" других фигур
возможны другие ошибки

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
uses CRT;
var
x,x1,y,y1,i:integer;
otvet:string;
Begin
writeln('Какой фигурой играем?');
 readln(otvet);
ClrScr;
write('Введите X: ');
 readln(x);
write('Введите Y: ');
 readln(y);
write('Введите X1: ');
 readln(x1);
write('Введите Y1: ');
 readln(y1);
if otvet='королем' then
 Begin
  if (x=x1) and (y=y1-1) then write('такой ход возможен');
  if (x=x1) and (y=y1+1) then write('такой ход возможен');
  if (x1=x+1) and (y1=y-1) then write('такой ход возможен');
  if (x1=x+1) and (y1=y) then write('такой ход возможен');
  if (x1=x+1) and (y1=y+1) then write('такой ход возможен');
 End;
if otvet='ладьей' then
 Begin
  if (x1=x+1) or (x1=x+2) or (x1=x+3) or (x1=x+4) or (x1=x+5) or (x1=x+6) or (x1=x+7) then
    if y=y1 then write('Такой ход возможен');
  if (y1=y+1) or (y1=y+2) or (y1=y+3) or (y1=y+4) or (y1=y+5) or (y1=y+6) or (y1=y+7) then
    if x=x1 then write('Такой ход возможен');
 end;
if otvet='пешкой' then
 Begin
  if (x=x1) and (y1=y+1) then write('Такой ход возможен');
 end;
end.

@Вася цюрик · 18.01.2015, 13:33 **[ТС]**

спасибо до делаю

@Portoble · 18.01.2015, 16:35

не поленился, и закончил:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
uses CRT;
var
x,x1,y,y1,i:integer;
otvet:string;
Begin
writeln('Какой фигурой играем?');
 readln(otvet);
ClrScr;
write('Введите X: ');
 readln(x);
write('Введите Y: ');
 readln(y);
write('Введите X1: ');
 readln(x1);
write('Введите Y1: ');
 readln(y1);
if otvet='королем' then
 Begin
  if (x=x1) and (y=y1-1) then write('такой ход возможен');
  if (x=x1) and (y=y1+1) then write('такой ход возможен');
  if (x1=x+1) and (y1=y-1) then write('такой ход возможен');
  if (x1=x+1) and (y1=y) then write('такой ход возможен');
  if (x1=x+1) and (y1=y+1) then write('такой ход возможен');
 End;
if otvet='ладьей' then
 Begin
  if (x1>=x+1) and (x1<=x+7) then
    if y=y1 then write('Такой ход возможен');
  if (y1>=y+1) and (y1<=y+7) then
    if x=x1 then write('Такой ход возможен');
 end;
if otvet='пешкой' then
 Begin
  if (x=x1) and (y1=y+1) then write('Такой ход возможен');
 end;
if otvet='слоном' then
 Begin
  if x-x1=y1-y then write('Такой ход возможен');
 end;
if otvet='ферзем' then
  Begin
   if (x1=x-1) and (y1=y+2) then write('Такой ход возможен');
   if (x1=x-1) and (y1=y-2) then write('Такой ход возможен');
   if (x1=x+1) and (y1=y+2) then write('Такой ход возможен');
   if (x1=x+1) and (y1=y-2) then write('Такой ход возможен');
   if (x1=x-2) and (y1=y+1) then write('Такой ход возможен');
   if (x1=x-2) and (y1=y-1) then write('Такой ход возможен');
   if (x1=x+2) and (y1=y+1) then write('Такой ход возможен');
   if (x1=x+2) and (y1=y-1) then write('Такой ход возможен');
  end;
if otvet='ферзем' then
 Begin
  if (x=x1) or (y=y1) or (x-x1=y1-y) then write('Такой ход возможен');
 end;
end.

@Вася цюрик · 18.01.2015, 16:45 **[ТС]**

большое тебе спасибо!

@Portoble · 18.01.2015, 17:09

Вася цюрик, спасибо выражается кнопкой "+1 спасибо" или в денежном эквиваленте))

@APALoff · 19.01.2015, 11:23

Portoble, правила 5.10 гласят:

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

Новые блоги и статьи Все статьи Все блоги /
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .

@Вася цюрик 0 / 0 / 0 Регистрация: 15.01.2015 Сообщений: 32

	Определить, являются ли две клетки начальным и конечным положением одного хода (шахматы) 18.01.2015, 12:40. Показов 2480. Ответов 8 Метки нет (Все метки) Клетка на шахматной доске определяется парой чисел. Определить, являются ли две клетки начальным и конечным положением одного хода: a) короля; b) ферзя; c) ладьи; d) слона; e) коня; f) пешки. 0

@кот Бегемот Платежеспособный зверь 8966 / 4389 / 1655 Регистрация: 28.10.2009 Сообщений: 11,647
	18.01.2015, 12:45
	А не до фига так сразу? 0

@Вася цюрик 0 / 0 / 0 Регистрация: 15.01.2015 Сообщений: 32
	18.01.2015, 12:50 [ТС]
	мне срочно надо помоги плз!!! 0

@Вася цюрик 0 / 0 / 0 Регистрация: 15.01.2015 Сообщений: 32
	18.01.2015, 13:33 [ТС]
	спасибо до делаю 0

@Вася цюрик 0 / 0 / 0 Регистрация: 15.01.2015 Сообщений: 32
	18.01.2015, 16:45 [ТС]
	большое тебе спасибо! 0

@Portoble 32 / 32 / 45 Регистрация: 01.11.2014 Сообщений: 155 Записей в блоге: 4
	18.01.2015, 17:09
	Вася цюрик, спасибо выражается кнопкой "+1 спасибо" или в денежном эквиваленте)) 1

Определить, являются ли две клетки начальным и конечным положением одного хода (шахматы)

Решение