Ветвление Паскаль.

@Blondinochka · Регистрация: 23.11.2009

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

помогите составить программу!!!
Пусть (k, l), (m, n) - поля шахматной доски: k, m - номера по горизонтали; l, n - номера по вертикали (l<k, m, n< 8). Определите:
a) можно ли с поля (k, l) попасть на поле (m,n) одним ходом пешки;

@кот Бегемот · 26.11.2009, 22:48

Сообщение от Blondinochka

помогите составить программу!!!
Пусть (k, l), (m, n) - поля шахматной доски: k, m - номера по горизонтали; l, n - номера по вертикали (l<k, m, n< 8). Определите:
a) можно ли с поля (k, l) попасть на поле (m,n) одним ходом пешки;

Pascal

var
k,L,m,n:integer;
begin
writeln('vvedite koordinaty 1 polya');
readln(k,L);
writeln('vvedite koordinaty 2 polya');
readln(m,n);
if (k=m)and((L>=2)and(L<8)and(n=L+1)or(L=2)and(n=4)) then writeln('yes')else writeln('no');
end.

@Blondinochka · 26.11.2009, 23:07 **[ТС]**

СПАСИБО,КОНЕЧНО,А ЭТО ПРАВИЛЬНО?

@кот Бегемот · 26.11.2009, 23:31

Учтено, что пешка может стоять не ближе второй горизонтали, что на первом ходу она может пойти вперёд на 1 или 2 клетки, а потом только по одной, не сделана только проверка правильности ввода (поля от 1 до 8), но это учтено в условии задачи, не хотелось загромождать программу. Проверено, работает. В шахматы я играю очень прилично.

@Blondinochka 0 / 0 / 0 Регистрация: 23.11.2009 Сообщений: 28
		1
	Ветвление Паскаль. 26.11.2009, 21:59. Показов 1463. Ответов 3 Метки нет (Все метки) помогите составить программу!!! Пусть (k, l), (m, n) - поля шахматной доски: k, m - номера по горизонтали; l, n - номера по вертикали (l<k, m, n< 8). Определите: a) можно ли с поля (k, l) попасть на поле (m,n) одним ходом пешки; 0

@Blondinochka 0 / 0 / 0 Регистрация: 23.11.2009 Сообщений: 28
	26.11.2009, 23:07 [ТС]	3
	СПАСИБО,КОНЕЧНО,А ЭТО ПРАВИЛЬНО? 0

@кот Бегемот Платежеспособный зверь 8835 / 4269 / 1621 Регистрация: 28.10.2009 Сообщений: 11,407
	26.11.2009, 23:31	4
	Учтено, что пешка может стоять не ближе второй горизонтали, что на первом ходу она может пойти вперёд на 1 или 2 клетки, а потом только по одной, не сделана только проверка правильности ввода (поля от 1 до 8), но это учтено в условии задачи, не хотелось загромождать программу. Проверено, работает. В шахматы я играю очень прилично. 0

Опции темы