Торайгыров Университет

140008, Pavlodar, Lomov Street, 64

Telephone: 8 (7182) 67-36-85

Fax: 8 (7182) 67-37-02

Admissions committie: 8 (7182) 67-37-73

E-mail: pgu@tou.edu.kz

Факультет физики, математики и информационных технологий и ЦИО в честь празднования 20-летия Независимости Республики объявляет конкурс на создание казахских орнаментов с использованием искусства программирования в компьютерной графике.

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

Дозволено использовать все известные и неизвестные () алгоритмы построения узора (Кривые Гильберта, Серпинского, фракталы и другое), приветствуются динамические алгоритмы.

Для наглядности представим пример использования рекурсивного алгоритма рисования произвольного узора (не казахского, дабы не упрощать задачу).

Решение:
uses crt,graph;
var
gd,gm,mx,my:integer;
ch :char;
procedure krug(x,y,r:integer);
begin
if r>k then
begin
krug(x+r,y,r div 2);
krug(x,y+r,r div 2);
krug(x-r,y,r div 2);
krug(x,y-r,r div 2);
end;
circle(x,y,r);
end;

Procedure Init; {инициализация графического режима}
var err: integer;
begin
DetectGraph(gd,gm);
InitGraph(gd,gm,' путь драйвера');
if GraphResult<>grok then
begin
Writeln(GraphErrorMsg(err));
Readln; Halt(1);
end;
end
BEGIN
Init;
krug(getmaxX div 2, getmaxY div 2, getmaxY div 4);
END.

20 лучших работ будут представлены на всеобщее обозрение в фойе университета (с указанием автора программы) и на празднике Наурыз, а Победителей ждут ценные призы и признание!

Срок сдачи работ до 19 марта 2011 года в исходном и исполняемом варианте, каб. А1-110, ответственный – Рақым Олжас Жумагалиұлы.

МЫ ЖДЕМ ВАШИ РАБОТЫ!

ПРИШЛО ВРЕМЯ ПРОЯВИТЬ СВОЕ ТВОРЧЕСТВО!

Вниманию студентов и магистрантов!