if (x1=x2) or (y1=y2) then
WriteLn('Может')
else
WriteLn('Не может');
Задача в паскале
Помогите решить задачу
даны координаты полей шахматной доски (х1, у1) и (х2, у2), где х1,у1,х2,у2 - это целые числа в диаппазоне от 1 до 8, при этом координаты х - соответствуют буквенному коду поля, а координаты у -числовому. Определить сможет ли ладья перейти из одного поля на другое.
даны координаты полей шахматной доски (х1, у1) и (х2, у2), где х1,у1,х2,у2 - это целые числа в диаппазоне от 1 до 8, при этом координаты х - соответствуют буквенному коду поля, а координаты у -числовому. Определить сможет ли ладья перейти из одного поля на другое.
[COLOR=orangered]кросспостинг на форуме запрещен. [/COLOR]
Твой пост в разделе "Студенты" удаляю, т.к. в данном разделе считаю его более уместным. Удачи :)!
Твой пост в разделе "Студенты" удаляю, т.к. в данном разделе считаю его более уместным. Удачи :)!
Цитата:
Originally posted by Vufer
Помогите решить задачу
даны координаты полей шахматной доски (х1, у1) и (х2, у2), где х1,у1,х2,у2 - это целые числа в диаппазоне от 1 до 8, при этом координаты х - соответствуют буквенному коду поля, а координаты у -числовому. Определить сможет ли ладья перейти из одного поля на другое.
Помогите решить задачу
даны координаты полей шахматной доски (х1, у1) и (х2, у2), где х1,у1,х2,у2 - это целые числа в диаппазоне от 1 до 8, при этом координаты х - соответствуют буквенному коду поля, а координаты у -числовому. Определить сможет ли ладья перейти из одного поля на другое.
Задача-то ведь элементарная!
Вот кусок кода:
Код:
Цитата:
Originally posted by sp999
Задача-то ведь элементарная!
Задача-то ведь элементарная!
Особенно когда на доске нет других фигур ;)
Цитата:
Originally posted by Dian
Особенно когда на доске нет других фигур ;)
Особенно когда на доске нет других фигур ;)
Конечно, только про другие фигуры в задаче упоминания нет.
Цитата:
Originally posted by sp999
Задача-то ведь элементарная!
Вот кусок кода:
Задача-то ведь элементарная!
Вот кусок кода:
Код:
if (x1=x2) or (y1=y2) then
WriteLn('Может')
else
WriteLn('Не может');
WriteLn('Может')
else
WriteLn('Не может');
Что-то здесь не то!!!
Не получается ничего!!!
Подскажите еще
Все получилось
Цитата:
Originally posted by Vufer
Все получилось
Все получилось
так сбрось код для других, если он отличается от выше приведенного
Цитата:
Originally posted by OlgaKr
так сбрось код для других, если он отличается от выше приведенного
так сбрось код для других, если он отличается от выше приведенного
Выложу когда здам контрольную и она будет зачтена.
А если будет такое условие
даны координаты полей шахматной доски (х1, у1) и (х2, у2), где х1,у1,х2,у2 - это целые числа в диаппазоне от 1 до 8, при этом координаты х - соответствуют буквенному коду поля, а координаты у -числовому. Определить сможет ли слон перейти из одного поля на другое.
Спасибо.
даны координаты полей шахматной доски (х1, у1) и (х2, у2), где х1,у1,х2,у2 - это целые числа в диаппазоне от 1 до 8, при этом координаты х - соответствуют буквенному коду поля, а координаты у -числовому. Определить сможет ли слон перейти из одного поля на другое.
Спасибо.
Код:
var x1,x2,y1,y2:byte;
begin
write('x1 = ');readln(x1);
write('y1 = ');readln(y1);
write('x2 = ');readln(x2);
write('y2 = ');readln(y2);
if abs(x2-x1) = abs(y2-y1) then
writeln('Слон может всё, он всемогущ')
else writeln('Слон тут бессилен');
readln
end.
begin
write('x1 = ');readln(x1);
write('y1 = ');readln(y1);
write('x2 = ');readln(x2);
write('y2 = ');readln(y2);
if abs(x2-x1) = abs(y2-y1) then
writeln('Слон может всё, он всемогущ')
else writeln('Слон тут бессилен');
readln
end.
Проверку на диапазон от 1 до 8 влом делать. Думаю, и сам справишься.
Можно даже для коня:
Код:
if (abs(x2-x1) = 1 and abs(y2-y1) = 2) or
(abs(x2-x1) = 2 and abs(y2-y1) = 1) then
writeln('Конь здесь проходит.')
else writeln('Здесь коням не место :)');
(abs(x2-x1) = 2 and abs(y2-y1) = 1) then
writeln('Конь здесь проходит.')
else writeln('Здесь коням не место :)');