Стр.5 Пример написания кода "Паркетчику" «Бордюры»

 

На  этой странице  мы  рассмотрим команды  для  «Паркетчика» - «Вызвать»  и  «Возврат». Эти  команды  можно применить  в том  случае когда  «Паркетчику»  надо выполнить  одну  и  ту  же последовательность  действий  несколько раз.  Например,  в нашем  примере,  чтобы положить  на  поле 7  зелёных  и 6  красных  бордюров. Для  этого  в  Программе  «Паркетчик» предусмотрены  ещё  вспомогательные  алгоритмы или «Подпрограммы»,  которые  можно вызвать  по  команде «Вызвать».  Оператор  «Вызвать»  сообщает «Паркетчику»,  что  он будет  иметь  дело с  «Подпрограммой»,  а не  с  отдельным допустимым  действием.   После слова  «Подпрограмма»  обязательно должно  быть  записано любое  произвольное  небольшое имя  Подпрограммы;  ведь Подпрограмм  может  быть несколько  и  Паркетчик точно  должен  знать какую  Подпрограмму  его отправили  исполнять.  После выполнения  всех  команд Подпрограммы  -  Паркетчик возвращается  в  основную Программу  по  команде «Возврат»   и  выполняет следующую  команду  после той   команды  «Вызвать», которая  отправила  его   в Подпрограмму.

   Весь текст  Программы  и текст  Подпрограммы  заключается в  фигурные  скобки.

 

Подпрограмма бордюр {
Делать пока ( НЕ сверху стена )
{Положить( зеленая ); Шаг вверх;}
Делать пока ( НЕ справа стена )
{Положить( зеленая ); Шаг вправо;}
Делать пока ( НЕ снизу стена )
{Положить( зеленая ); Шаг вниз;}
Делать пока ( НЕ слева стена )
{Положить( зеленая ); Шаг влево;}
Шаг вверх;Шаг вправо;
Возврат;
};
Подпрограмма красный {
Делать пока (НЕ зеленая)
{Положить( красная ); Шаг вверх ;}
Шаг вниз; Шаг вправо;
Делать пока ( НЕ зеленая )
{Положить( красная ); Шаг вправо;}
Шаг вниз; Шаг влево;
Делать пока ( НЕ зеленая )
{Положить( красная ); Шаг вниз;}
Шаг вверх;Шаг влево;
Делать пока ((НЕ зеленая) и (НЕ красная))
{Положить( красная ); Шаг влево;}
Шаг вверх;Шаг вправо;
Возврат;
};
Подпрограмма зел {
Делать пока ( НЕ красная )
{Положить( зеленая ); Шаг вверх;}
Шаг вниз; Шаг вправо;
Делать пока ( НЕ красная )
{Положить( зеленая ); Шаг вправо;}
Шаг вниз; Шаг влево;
Делать пока ( НЕ красная )
{Положить( зеленая ); Шаг вниз;}
Шаг вверх;Шаг влево;
Делать пока (( НЕ красная ) и (НЕ зеленая))
{Положить( зеленая ); Шаг влево;}
Шаг вверх;Шаг вправо;
Возврат;
};
Программа
{Вызвать бордюр ;
Вызвать красный ; Вызвать зел ;
Вызвать красный ; Вызвать зел ;
Вызвать красный ; Вызвать зел ;
Вызвать красный ; Вызвать зел ;
Вызвать красный ; Вызвать зел ;
Вызвать красный ; Вызвать зел ;
Положить( красная );
};};}

 Скопируйте  эту  программу  или  набейте  сами  в программу  "Паркетчик"  и  запустите  на  выполнение.

     Возможно  изучив  программу  "Паркетчик"  вы  сможете  составить  более  короткую  программу  для  выполнения  бордюров.

Создать бесплатный сайт с uCoz