Презентация, доклад по информатике для 10 кл. Графика в паскале (движение группы объектов)

LockDrawing; - блокирует вывод в графическое окно, осуществляя рисование только во внеэкранном буфере. ClearWindow; - очищает графическое окно белым цветом.SetBrushColor(color); - устанавливает цвет кисти.Процедуры движения объектов

Слайд 1Движение группы объектов

Движение группы объектов

Слайд 2LockDrawing; - блокирует вывод в графическое окно, осуществляя рисование только во внеэкранном

буфере.

ClearWindow; - очищает графическое окно белым цветом.

SetBrushColor(color); - устанавливает цвет кисти.

Процедуры движения объектов

LockDrawing; - блокирует вывод в графическое окно, осуществляя рисование только во внеэкранном буфере. ClearWindow; - очищает графическое окно белым

Слайд 3Sleep; - устанавливает скорость анимации.

Redraw; - осуществляет перерисовку окна вывода при

заблокированном выводе в графическое окно.

Цикл while условие do … end; - действие выполняется пока истинно условие
Sleep; - устанавливает скорость анимации.Redraw; - осуществляет перерисовку окна вывода при заблокированном выводе в графическое окно.Цикл while

Слайд 4Пример движения грузовика
uses graphABC;
var x,i: integer;
begin
lockdrawing;
x:=700;
while x>-200 do
Begin
clearwindow;
setbrushcolor(clNavy);
rectangle(x,230,x+180,300);
setbrushcolor(clGray);
rectangle(x-60,180,x,300);
setbrushcolor(clSkyBlue);
rectangle(x-50,190,x-10,230);


setbrushcolor(clBlack);
circle(x,320,20);
circle(x+140,320,20);
sleep(40);
redraw;
x:=x-10;
end;
end.

Прорисовка колес

Прорисовка кабины

Прорисовка
кузова

Скорость движения

Вывод готового рисунка

Точка начала движения

Уменьшение начальной
точки

Рисование объекта
за графическим окном

Очистка экрана перед
выводом рисунка

Пример движения грузовикаuses graphABC;var x,i: integer;  beginlockdrawing;x:=700;while x>-200 doBeginclearwindow;setbrushcolor(clNavy);rectangle(x,230,x+180,300);setbrushcolor(clGray);rectangle(x-60,180,x,300);setbrushcolor(clSkyBlue);rectangle(x-50,190,x-10,230);   setbrushcolor(clBlack);   circle(x,320,20);

Что такое shareslide.ru?

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


Для правообладателей

Яндекс.Метрика

Обратная связь

Email: Нажмите что бы посмотреть