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

• 1 слайд

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

• 2 слайд

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

• 3 слайд

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

• 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.
  Прорисовка колес
  Прорисовка кабины
  Прорисовка
  кузова
  Скорость движения
  Вывод готового рисунка
  Точка начала движения
  Уменьшение начальной
  точки
  Рисование объекта
  за графическим окном
  Очистка экрана перед
  выводом рисунка