IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
Closed Topic Открыть новую тему 
> обход массива по спирали, против часовой стрелки
сообщение
Сообщение #1


Гость






              Не в лом, помогите!!!                                                    

                                                                           Задание 3
Дан прямоугольник из m*n клеток. Робот начинает  движение из клетки (1, 1) вправо по спирали против часовой стрелки. Напечатать координату клетки, где он остановится.
                                      (Код цикла, задающий движение по спирали???)

Сообщение отредактировано: мисс_граффити -
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Прогрессор
****

Группа: Пользователи
Сообщений: 602
Пол: Мужской
Реальное имя: Михаил

Репутация: -  9  +


Но здесь вовсе можно без цикла! Рассуждаем логически:

Код

if m=n then
  begin
  n0:=n div 2+1;
  if m mod 2 = 0 then m0:=m div 2  else m0:=m div 2 +1;
  end;
if m>n then
  begin
  n0:= n div 2+1;
  if n mod 2 = 0 then m0:=n div 2 else  m0:=m- n div 2;
  end;
if n>m then
  begin
  m0:= m div 2+1;
  if m mod 2 = 0 then n0:=m div 2 else  n0:=n- m div 2;
  end;    
{в рассуждении, что робот выходит из левого нижнего угла
  m - длина n - высота,  m0 n0- где робот остановится}

Вроде бы так. Впрочем, проверить не мешает.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 23.09.2017 9:01
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"