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
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.11.2009, 21:59
Ответы с готовыми решениями:

Паскаль ветвление
помогите решить пожалуйста Два прямоугольника расположенные в первом квадранте со сторонами...

Ветвление и циклы. Паскаль
1. Даны дейтсвительные числа a,b,c (a&gt;0). Полностью исследовать биквадратное уравнение...

Ветвление
Помогите решить оч надо Условие Валя и Вера на своём участке собрали А кг клубники. Из них B кг...

ветвление
Ракета запускается с точки на экваторе и развивает скорость v км/с. Каков результат запуска?...

3
Платежеспособный зверь
8835 / 4269 / 1621
Регистрация: 28.10.2009
Сообщений: 11,407
26.11.2009, 22:48 2
Цитата Сообщение от Blondinochka Посмотреть сообщение
помогите составить программу!!!
Пусть (k, l), (m, n) - поля шахматной доски: k, m - номера по горизонтали; l, n - номера по вертикали (l<k, m, n< 8). Определите:
a) можно ли с поля (k, l) попасть на поле (m,n) одним ходом пешки;
Pascal
1
2
3
4
5
6
7
8
9
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.
1
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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.11.2009, 23:31
Помогаю со студенческими работами здесь

На ветвление.
Определить сумму цифр трёхзначного числа. Вывести его на печать, если сумма больше или равна 11, а...

Ветвление
Помогите, пожалуйста, с решением задачи на ветвление. Заранее ВСЕМ СПАСИБО!

Ветвление
Даны натуральные числа x1,x2,x3,y1,y2,y3. Пинадлежит ли нчало координат треугольнику с вершинами...

Ветвление
помогите выполнить задание...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru