Домашнее задание 11 класс (25 января - 31 января)

 

Домашнее задание 11 класс (25 января - 31 января)

0b76f116a6574bfd512353e1f3f4b189.gif
Орна́мент (лат. ornamentum — украшение) — узор, основанный на повторе и чередовании составляющих его элементов
Мы на уроках начали рассматривать принципы разработки орнамента в графическом режиме языка Паскаль. Так как далеко не все учащиеся присутствовали на занятии привожу листинг программы простого орнамента, рассмотренного на уроке:
program Ornament;
uses graph;
var
  gd,gm:smallint;
  maxX,maxY,koy,kox,r:integer;
begin
  gd:=detect;
  initgraph(gd,gm,'');
  r:=150;
  maxX:=getmaxX div r -1;
  maxY:=getmaxy div r -1;
  SetLineStyle(1,0,3);
  for koy:=1 to maxY do
   begin
    for kox:=1 to maxX do
     begin
   setcolor(15);
   circle(kox*r,koy*r,r);
     end;
   end;
  readln;
  closegraph;
end.   
В результате работы программы орнамент из окружностей заполняет всё графическое окно вывода:
28499cc06dae064416c7e6f40710c415.jpg


Предлагается задание 3-х уровней сложности:
  1. Низкий уровень: разработать свой орнамент из графических примитивов языка Паскаль. Пример создания подробных орнаментов можно посмотреть здесь: http://zhekinpascal.ucoz.ru/index/sozdanie_ornamenta/0-32
  2. Средний уровень: реализовать один их хантыйских орнаментов (файл с образцами орнаментов прилагается к сообщению)
  3. Высокий уровень: создать орнамент из сложный деталей, описанных в отдельных процедурах пользователя. Примеры сложных деталей можно посмотреть здесь: http://sweetmenu.ru/articles/interesnoe/postroenie-ornamentov.-ispolzovanie-okruzhnostej.html и http://sweetmenu.ru/articles/interesnoe/priemyi-postroeniya-ornamentov.-perepleteniya-i-volnyi.html
Все орнаменты создаются на весь экран для любого разрешения экрана.
Делаем задачу в Lazarus, где его взять - смотри в «Задаче на неделю 18-24 января». Решение задачи размещается в комментарии к сообщению с указанием автора с приложенным скриншотом (обязательно кадрировать - «отрезать» всё лишнее) и исходником программы (1 файл проекта с расширением PAS).

К сообщению приложены файлы:
Орнаменты хантов.pdf - описание традиционных орнаментов народов ханты
Графика FreePascal.pdf - PDF аналог презентации о графических возможностях Паскаля (рассматривали на лекции)
Графика+в+Паскале.pdf - описание всех графических процедур и функций модуля Graph
ТРАДИЦИОННЫЕ ПАТТЕРНЫ.pdf - информация о сложных орнаментах
Сергей МоховСергей Мохов
05.02.2016 22:290 ОтветитьЕщё
Меняем логин, убираем RAR, читаем сообщение
Сергей МоховСергей Мохов
06.02.2016 10:490 ОтветитьЕщё
Решение задачи размещается в комментарии к сообщению с указанием автора...
Сергей МоховСергей Мохов
08.02.2016 21:460 ОтветитьЕщё
Альбина, а почему так поздно, болела?
*
 
....