Разработка факультативного курса Программирование графики для старших классов

Федеральное агентство по образованию

ГОУ ВПО Тульский государственный педагогический университет

имени Л.Н.Толстого

Кафедра информатики и методики обучения информатики

Курсовая работа

Разработка факультативного курса «Программирование графики» для старших классов

Выполнила:

студентка 4 курса, гр. А,

факультета МФиИ

Касрашвили Е. Д.

Научный руководитель:

старший преподаватель

кафедры информатики и МОИ

Сундукова Т.О.

Тула. 2008 г.

Содержание

Тема 6: Работа с фрагментами изображений 17.

Размер памяти, необходимой для сохранения образа фрагмента.

Сохранение образа фрагмента в памяти. Вывод из буфера на экран двоичный образ заданной области экрана.

1 18. Практикум « Работа с фрагментами изображений» 1 Тема 7: Создание движущихся изображений 19. Различные способы создания движущихся изображений. 1 20. Практикум «Создание движущихся изображений». 3 Тема 8: Построения графиков функций на экране дисплея 21. Алгоритмы построения графиков функций 1 22. Практикум «Построения графиков функций». 3 Тема 9: Разработка индивидуального проекта 23. Разработка проекта 1 24. Создание проекта 3 25. Защита проекта 1 Тема 10: Решение интересных задач 26. Фракталы алгебраические, геометрические 2 27. Фракталы схоластические 2

2.3Примеры интересных задач для факультативного курса «Программирование графики»

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

Построение салфетки Серпинского

Возьмем равносторонний треугольник и тремя его средними линиями разобьем на четыре равных треугольника. Внутренность среднего треугольника удалим, а с оставшимися тремя замкнутыми треугольниками повторим только что описанный процесс, то есть разделим каждый из них средними линиями на четыре равных треугольника и внутренности средних из них опять удалим. Очевидно, что после nшагов процесса мы будем иметь 3^n треугольников. Объединение их точек и будем называть салфеткой Серпинского n-ного ранга.

Построение салфетки Серпинского:

Program Sierp;

Uses Graph, Crt;

Type

TComplex = Record

X : Real;

Y : Real;

End;

Const

iter = 50;

max = 127;

Var
z : TComplex;

x, y, n : Integer;

gd, gm : Integer;

mx, my : Integer;

Begin

gd := Detect;

InitGraph(gd,gm,'');

Mx := GetMaxX div 2;

My := GetMaxY div 2;

For y := -my to my do

For x := -mx to mx do Begin

n := 0;

z.x := X * 0.005;

z.y := Y * 0.005;

While (sqr(z.x) + sqr(z.y) < max) and (n < iter) do Begin

If z.y>0.5 Then Begin

z.x:=2*z.x;

z.y:=2*z.y-1;

End Else

If z.x>0.5 Then Begin

z.x:=2*z.x-1;

z.y:=2*z.y;

End Else

Begin

z.x:=2*z.x;

z.y:=2*z.y;

End;

Inc(n);

End;

PutPixel(mx + x,my + y,16 - (n mod 16));

If KeyPressed Then Break;

End;

Readkey;

CloseGraph;

End.

Построение кривой Коха

Начинаем с отрезка-основы: удаляем его среднюю третью часть и заменяем се сторонами равностороннего треугольника.

Если основаимеет длину 1, то фрагмент будет состоять из четырех отрезков, каждый длины 1/3 и. следовательно, обшей длины 4/3. На следующем шаге получаем ломаную, состоящую из 16 отрезков и имеющую общую длину 16/9 и т.д.

Кривая Коха имеет бесконечную длину. Кроме того, кривая Коха состоит из четырёх равных частей, каждая из которых подобна всей кривой с коэффициентом подобия 1/3. Кривая Коха самоподобна: каждая часть является миниатюрной копией целого. Для построения кривой Коха фиксируем степень приближения p . Это означает, что мы будем применять « p » преобразований к «основе». Если основа это отрезок, то результатом будет ломаная линия, состоящая из отрезков равной длины . Будем нумеровать отрезки от 0 до включительно. Для каждого шага (соответствующему индексу n )должен нарисоваться отрезок, точнее говоря, вектор

Построение кривой Коха:

programKox;

uses CRT, Graph;

const

p=5;

var gd, gm: Integer;

i, j: Integer;

x, y, l: Real;

a: Real;

n, m, k: Integer;

begin

gd:=Detect;

InitGraph(gd, gm, 'c:bpbgi');

x:=0;

y:=400;

l:=640/(exp(p*ln(3)));

MoveTo(Round(x), Round(y));

for i:=0 to Round(exp(p*ln(4)))-1 do begin

a:=0;

n

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать