Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 12.12.2012
Сообщений: 8
1

Выяснить, являются ли поля (к, 1) и (m, n) шахматной доски полями одного цвета

26.12.2012, 10:26. Просмотров 1595. Ответов 3
Метки нет (Все метки)

Выяснить, являются ли поля (к, 1) и (m, n) шахматной доски полями одного цвета. по паскалу. пожалуйста помогите
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.12.2012, 10:26
Ответы с готовыми решениями:

Шахматы: Выяснить, являются ли поля (k, l) и (m, n) полями одного цвета
Помогите плз создать программу на паскале Поле шахматной доски определятся парой натуральных ...

Являются ли поля (a, b) и (c, d ) шахматной доски полями одного цвета
Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит восьми:...

Выяснить, являются ли поля шахматной доски полями одного цвета
Выяснить, являются ли поля (к , л) и (м , н) шахматной доски полями одного цвета.

Являются ли поля шахматной доски полями одного цвета
Поле шахматной доски определяется парой натуральных чисел, первое из которых задаст номер...

3
durila :d
125 / 107 / 98
Регистрация: 21.12.2012
Сообщений: 160
26.12.2012, 12:11 2
Здравствуйте, вот вариант решения:
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
program _chess_fields;
 
type
 
  TField=record
   vert :  1..8   ;
   hor  : 'a'..'h';
  end;
 
var
 
  F1,F2:Tfield;
 
Procedure ReadFieldPos(var aField:TField);
{ процедура ввода координат поля }
begin
 writeln('Введите координаты поля: ');
 repeat
  Write('hor (a-h): ');
  readln(aField.hor);
  Write('vert (1-8): ');
  readln(aField.vert);
 
 until (aField.vert in [1..8]) and (aField.hor in ['a'..'h']);
end;
 
function CheckFields(const F1,F2:TField):boolean;
{функция возвращает TRUE если F1 и F2 имеют один цвет}
var
 x1:integer;
 x2:integer;
begin
 x1:=ORD(F1.hor)-96+F1.vert;
 x2:=ORD(F2.hor)-96+F2.vert;
 If (     odd(x1)   and       odd(x2) ) OR
    ( not odd(x1) ) and ( not odd(x2) )
 then CheckFields:=TRUE else CheckFields:=FALSE;
end;
 
BEGIN
 
{ input }
 ReadFieldPos(F1);
 ReadFieldPos(F2);
 
{ process. & output }
 Write( CheckFields(F1,F2) )
  { TRUE  - если поля одного  цвета 
    FALSE - если поля разного цвета  }
END.
0
Yzena hick
30.12.2012, 17:19 3
К чему такая сложность?
На сколько я понял его условие то ему просто нужно сравнить клетки.
А сверить модно через нечетность.
Например белый: k+l четное, то есть если сложить координаты одной точки, то оно будет четным или нечетным.
И просто через odd проверить если начальные и конечные координаты четные то один цвет, и наоборот.
3727 / 2682 / 612
Регистрация: 08.06.2007
Сообщений: 9,226
Записей в блоге: 4
30.12.2012, 17:27 4
Цитата Сообщение от Yzena hick Посмотреть сообщение
если начальные и конечные координаты четные то один цвет, и наоборот.
Тогда уж проще сложить у двух полей все четыре координаты. Если четно, то поля одного цвета.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.12.2012, 17:27

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Поле шахматной доски. Определить, являются ли поля (a, b) и (с, d) полями одного цвета
Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит восьми:...

Определить: являются ли эти два поля шахматной доски полями одного цвета?
Помогите: координаты любого поля шахматной доски могут быть заданы парой натуральных чисел, не...

Задачка с шахматной доской: выяснить, являются ли поля (k, e) и (m, n) полями одного цвета
Поле шахматной доски определяется парой натуральных чисел, каждое из которых не превосходит восьми:...

Шахматная доска. Выяснить, являются ли поля (k, l) и (m, n) полями одного цвета
Поле шахматной доски определяется парой натуральных чисел, первое из которых задает номер...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.