Вычислить все возможные ходы ферзём

@xatamof · Регистрация: 15.01.2018

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

вычислить все возможные ходы ферзём

@ZX Spectrum-128 · 15.01.2018, 09:16

Вычислить, можно ли с поля (k, l) одним ходом ферзя попасть на поле (m, n)

@JuriiMW · 15.01.2018, 09:19

Pascal

procedure ХодФерзём(x,y,dx,dy:Integer);
begin
  if (x+dx<1)or(x+dx>8)or(y+dy<1)or(y+dy>8) then Exit;
  WriteFormat(' ({0}-{1})', x+dx,y+dy);
  ХодФерзём(x+dx,y+dy,dx,dy);
end;
begin
  var(x,y):=(ReadInteger('номер колонки:'),ReadInteger(' номер строки:'));
  if (x<1)or(x>8)or(y<1)or(y>8) then begin WriteLn('Косяк!'); Halt; end;
  Write('Возможные ходы:');
  ХодФерзём(x,y,-1, 0);ХодФерзём(x,y,+1, 0);ХодФерзём(x,y, 0,-1);ХодФерзём(x,y, 0,+1);
  ХодФерзём(x,y,-1,-1);ХодФерзём(x,y,+1,-1);ХодФерзём(x,y,-1,+1);ХодФерзём(x,y,+1,+1);
end.

@xatamof 0 / 0 / 0 Регистрация: 15.01.2018 Сообщений: 1
		1
	Вычислить все возможные ходы ферзём 15.01.2018, 08:54. Показов 1502. Ответов 2 Метки нет (Все метки) вычислить все возможные ходы ферзём 0

@ZX Spectrum-128 6810 / 4567 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	15.01.2018, 09:16	2
	Вычислить, можно ли с поля (k, l) одним ходом ферзя попасть на поле (m, n) 0

	15.01.2018, 09:19

Опции темы

Вычислить все возможные ходы ферзём

Решение