Форум программистов, компьютерный форум, киберфорум
Наши страницы

QBasic

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 10, средняя оценка - 4.60
Vano Kiriyanov
0 / 0 / 0
Регистрация: 05.04.2011
Сообщений: 3
#1

Координаты шахматной доски - QBasic

05.04.2011, 00:55. Просмотров 1302. Ответов 3
Метки нет (Все метки)

Доброго времени суток, прошу вас помочь с задачей(ее решением).

Даны координаты двух полей шахматной доски. Определить являются ли они одного цвета.

Моя идея заключается в том что, разность координат (Yэнное-Xэнное) равная -6, -4, -2, 0, 2, 4, 6 это клетка одного цвета
А не равная этому множеству- другого.
Вот одна из моих попыток (не удачная):

PureBasic
1
2
3
4
5
6
7
8
9
10
11
INPUT "VVEDITE X1 "; X1
INPUT "VVEDITE Y1"; Y1
INPUT "VVEDITE X2"; X2
INPUT "VVEDITE Y2"; Y2
A = Y1 - X1
B = Y2 - X2
IF A = -6 OR -4 OR -2 OR 0 OR 2 OR 4 OR 6 THEN A = 100
IF B = -6 OR -4 OR -2 OR 0 OR 2 OR 4 OR 6 THEN B = 100
IF A - B = 0 THEN PRINT "KLETKI ODNOGO CVETA"
IF A - B <> 0 THEN PRINT "KLETKI RAZNOGO CVETA"
END
CLS
я сам не программист, но понимаю можно сделать в разы проще и более логично.
Прошу помочь, видоизменить мой вариант или предложить свой.
Заранее благодарен.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.04.2011, 00:55
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Координаты шахматной доски (QBasic):

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

Даны координаты двух различных полей шахматной доски - Pascal
Даны координаты двух различных полей шахматной доски x1,y1,x2,y2,x3,y3 (целые числа , лежащие в диапазоне 1-8). На поле (x1,y1) расположена...

Даны координаты двух различных полей шахматной доски - PascalABC.NET
var x,x1,y,y1:integer; begin write('Введите координату Х поля шахматной доски: '); readln(x); write('Введите координату Y...

Поместить изображение шахматной доски в программу и разбить на ячейки (координаты) - C#
У меня есть доска в виде картинки. Её надо поместить в Windows Form и разбить на ячейки (координаты). Затем надо поверх доски наложить...

Даны координаты (как целые от 1 до 8) двух различных полей шахматной доски - Delphi
Даны координаты (как целые от 1 до 8) двух различных полей шахматной доски. Если ферзь за один ход может перейти с одного поля на другое,...

Упростить алгоритм определения координаты клетки шахматной доски по клику мыши - Free Pascal
у меня это выглядит и работает так: procedure MouseDown(x,y,mb: integer); begin if (x&lt;11) or (x&gt;651) then exit; //если...

3
кот Бегемот
Платежеспособный зверь
8220 / 3792 / 700
Регистрация: 28.10.2009
Сообщений: 9,710
05.04.2011, 01:12 #2
PureBasic
1
2
3
4
5
INPUT "VVEDITE X1 "; X1
INPUT "VVEDITE Y1"; Y1
INPUT "VVEDITE X2"; X2
INPUT "VVEDITE Y2"; Y2
if abs(x1-x2)=abs(y1-y2) THEN PRINT "KLETKI ODNOGO CVETA"else PRINT "KLETKI RAZNOGO CVETA"
1
Vano Kiriyanov
0 / 0 / 0
Регистрация: 05.04.2011
Сообщений: 3
05.04.2011, 01:22  [ТС] #3
Огромная вам благодарность.
0
кот Бегемот
Платежеспособный зверь
8220 / 3792 / 700
Регистрация: 28.10.2009
Сообщений: 9,710
05.04.2011, 02:10 #4
А решение неверное. Это решение задачи - будут ли клетки на одной диагонали, т.е. может ли на них сделать ход слон. А для одного цвета условие другое:
PureBasic
1
if (x1+y1)mod 2=(x2+y2)mod 2 then print"yes" else print"no"
0
05.04.2011, 02:10
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.04.2011, 02:10
Привет! Вот еще темы с ответами:

Даны координаты двух различных полей шахматной доски x1, y1, x2, y2 (целые числа, лежащие в диапазоне 1–8) - C++
Даны координаты двух различных полей шахматной доски x1, y1, x2, y2 (целые числа, лежащие в диапазоне 1–8). Проверить истинность...

Написать программу, запрашивающую координаты коня и определяющую поля шахматной доски, находящиеся под боем - Turbo Pascal
кто поможет:написать программу, запрашивающую координаты коня и определяющую поля шахматной доски, находящиеся под боем

Составить программу, запрашивающую координаты ферзя на шахматной доске и показывающую поля доски, находящиеся под боем - Pascal ABC
Составить программу, запрашивающую координаты ферзя на шахматной доске и показывающую поля доски, находящиеся под боем.

Даны координаты двух различных полей шахматной доски x1, y1, x2, y2 (целые числа, лежащие в диапазоне 1–8). Проверить истинность вы-сказывания: «Ладья - C++
Даны координаты двух различных полей шахматной доски x1, y1, x2, y2 (целые числа, лежащие в диапазоне 1–8). Проверить истинность...


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

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

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