|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.06.2013, 18:15 | #1 |
Новичок
Джуниор
Регистрация: 05.06.2013
Сообщений: 5
|
Не могу разобраться
Обьясните пожалуйста что делает эта программа, пожалуйста подробнее, если нетрудно:
Код Pascal var max: byte; xf, yf: longint; k: longint; procedure c(x, y, step: shortint); begin if abs(x - xf) + abs(y - yf) <= max - step then if (x = xf) and (y = yf) and (step = max) then begin inc(k); exit; end else begin c(x + 1, y, step + 1); c(x - 1, y, step + 1); c(x, y + 1, step + 1); c(x, y - 1, step + 1); end; end; begin readln(max); readln(xf, yf); c(0, 0, 0); if k <> 0 then writeln(k) else writeln('Impossible'); end. |
07.06.2013, 18:16 | #2 |
Новичок
Джуниор
Регистрация: 05.06.2013
Сообщений: 5
|
Вроде бы здесь что-то про робота
|
07.06.2013, 21:02 | #3 |
Новичок
Джуниор
Регистрация: 05.06.2013
Сообщений: 5
|
*тему в шапку*
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не могу разобраться | m.mshev | Общие вопросы C/C++ | 6 | 05.08.2012 17:51 |
не могу разобраться | as1212 | Помощь студентам | 0 | 15.11.2011 21:10 |
НЕ МОГУ РАЗОБРАТЬСЯ... | GSV84 | HTML и CSS | 0 | 03.02.2010 01:38 |
не могу разобраться | Инспектор ГУЛ | Свободное общение | 7 | 20.09.2009 09:29 |