Главная

Использование повторяющихся изображений для создания орнаментов

ср, 05/04/2011 - 10:08 — tech
Темы учебника
Модуль Graph
Циклы в Паскале
Задача: 

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

Алгоритм решения задачи: 

Повторяющиеся элементы изображения в сумме представляют собой орнамент. Используя правила переноса, можно создавать как простые, так и достаточно сложные орнаменты.

Количество повторений базовой фигуры определяется переменной цикла, для которой задаются начальное и конечное значения, а также шаг (значение сдвига по оси 0X и/или по оси 0Y).

Если перенос базовой фигуры осуществляется в одном направлении (например, по оси 0X), то достаточно использовать одну циклическую конструкцию. Переменной цикла может служить координата x или y, которая изменяется от начального значения до конечного с заданным шагом (обычно равным ширине или высоте базовой фигуры).

Если перенос базовой фигуры производится по обеим осям (по горизонтали и вертикали), то используется два цикла, один из которых вложен в другой. Например, внутренний цикл прорисовывает каждую строку (изменяется только координата x), а внешний осуществляет переход на новую строку (изменяется координата y).

Программа на языке Паскаль:  

uses graph;
var
    g,h:integer;
    x,y:integer;
begin
    g := detect;
    initgraph(g,h,'');
    randomize;
 
    y := 0;
    repeat
        x := 0;
        repeat
            setcolor(10);
            moveto(x,y+50);lineto(x+30,y);lineto(x+30,y+50);
            setcolor(random(10)+6);
            circle(x+30,y+50,20);
            x := x + 60;
        until x > 800;
        y := y + 100;
    until y > 600;
 
readln
end.

  • Добавить комментарий

Комментарии

ср, 05/14/2014 - 22:22 — Гость

Пожалуйста , помогите нарисовать солнце с помощью команд для рис

Пожалуйста , помогите нарисовать солнце с помощью команд для рисования

  • ответить
Втр, 02/11/2014 - 11:50 — Гость

Помогите пожалуйста !

Помогите пожалуйста ! Составить орнамент через цикл .

  • ответить
вс, 02/24/2013 - 21:32 — Гость

с клавиатуры вводится число

с клавиатуры вводится число n
нужно вывести кол-во делителей всех чисел до данного числа в следующем виде:
1+
2++
3++
4+++
5++
6++++
...
n
++-кол-во делителей

  • ответить
чт, 05/17/2012 - 20:31 — Игорь (не проверено)

Помогите сделать задачку на модуль граф !!!! плииз!!!

Нужно закрасить экран : 1) кирпичиками
2) крестиками
помогите плзз

  • ответить
чт, 03/22/2012 - 13:22 — Гость (не проверено)

program blppa;uses crt;var

program blppa; 
uses crt;
var i, j, n, k: integer;
begin
readln(n);
clrscr;
k:=1;
repeat
  begin
   for i:=1 to k do
    begin 
    delay (100); 
    write('*'); 
    end;
   k:=k+1;
  end;
  writeln;
until n=k-1;
end.

  • ответить
вс, 03/18/2012 - 18:34 — Гость (не проверено)

Пожалyйста помогите решить задачy!))

С клавиатyры вводится число N.
Выведите следyющyю фигурy на последней строке N звездочек.  Для решения этой задачи примените конструкцию "цикл в цикле"
*
**
***
****
*****
******
*******

  • ответить
чт, 03/22/2012 - 13:20 — Гость (не проверено)

program blppa;var i, j, n,

program blppa; 
var i, j, n, k: integer;
begin
readln(n);
k:=1;
repeat
  begin
   for i:=1 to k do
   write('*');
   k:=k+1;
  end;
  writeln;
until n=k-1;
end.

  • ответить
пт, 03/23/2012 - 20:41 — Гость (не проверено)

Большое,спасибо!!!!!

Большое,спасибо!!!!!

  • ответить
сб, 11/24/2012 - 17:59 — Гость

даны х,y,z вычислить a,b

даны х,y,z вычислить a,b если:
а=(3+е квадрате)все это деленная на (1+х квадрате модуль открывается у-tg(z)модуль закрывается)
нужно это записать виде программы паскаль

  • ответить