Презентация по информатике на тему "Ипользование переменных в графике PascalABC"

• 1 слайд

  Использование Переменных
  в рисовании
  Автор: Зубкова Екатерина Александровна
  ГБОУ СОШ №1378 г. Москва
  Язык программирования PascalABC
  

• 2 слайд

  Операторы цикла
  Переместите мышкой название устройства на его изображение и отпустите кнопку мышки.
  

• 3 слайд

  Задача
  circle(50,100,10);
  circle(80,100,10);
  circle(110,100,10);
  circle(140,100,10);
  circle(200,100,10);
  circle(230,100,10);
  circle(260,100,10);
  circle(290,100,10);
  
  Нарисовать горизонтальный ряд окружностей радиусом 10 на расстоянии 100 от верхнего края экрана с такими горизонтальными координатами:50, 80, 110, 140, …, 290.
  Фрагмент программы:
  

• 4 слайд

  Задача
  circle(50,100,10);
  circle(80,100,10);
  circle(110,100,10);
  circle(140,100,10);
  circle(200,100,10);
  circle(230,100,10);
  circle(260,100,10);
  circle(290,100,10);
  
  Нарисовать горизонтальный ряд окружностей радиусом 10 на расстоянии 100 от верхнего края экрана с такими горизонтальными координатами:50, 80, 110, 140, …, 290.
  Фрагмент программы:
  

• 5 слайд

  Использование переменной
  Для решения задачи воспользуемся циклом с постусловием.
  Обозначим первую координату за x. Чтобы x изменялся, организуем цикл repet.
  uses GraphABC;
  var x:integer;
  Begin
  SetWindowWidth(600);
  SetWindowHeight(400);
  x:=50;
  repeat
  circle(x,100,10);
  x:=x+30;
  until x>290;
  end.
  

• 6 слайд

  Цвет фигуры
  uses GraphABC;
  var x:integer;
  begin
  SetWindowWidth(600);
  SetWindowHeight(400);
  SetPenColor(сlFuchsia );
  SetPenWidth(3);
  x:=50;
  repeat
  circle(x,100,10);
  x:=x+30;
  until x>290;
  end.
  Добавив в программу команду SetPenColor(color) и SetPenWidth(n) можно изменить цвет и ширину окружностей.
  

• 7 слайд

  Функция randomize и random в рисовании
  randomize;
  SetWindowWidth(600);
  SetWindowHeight(400);
  SetPenWidth(3);
  x:=50;
  repeat
  SetPenColor(clrandom);
  circle(x,100,10);
  x:=x+30;
  until x>290;
  
  .
  Использование функций randomize и random позволяет рисовать разноцветные фигуры, различных размеров. Рассмотрим пример:
  

• 8 слайд

  Разноцветные круги
  SetBrushColor(clrandom);
  
  .
  Использование функций randomize и random позволяет рисовать разноцветные фигуры, и заливать их разным цветом.
  Если в программе изменить условие, и переменную x увеличивать на 1, то можно получить такую картинку!
  

• 9 слайд

  Рисуем разноцветные линии
  

• 10 слайд

  Использование двух и более переменных
  randomize;
  x:=50;
  y:=50;
  repeat
  setbrushcolor(clrandom);
  circle(x,y,30);
  x:=x+60;
  y:=y+40;
  until x>500;
  

• 11 слайд

  Задачи
  Нарисуйте ряд точек по направлению из левого нижнего угла в правый верхний.
  Нарисуйте пару десятков концентрических окружностей, то есть окружностей разного радиуса, но имеющих общий центр.
  Если радиус самого маленького круга и задачи 2 будет порядка 50, а самого большого – во весь экран и если радиусы соседних окружностей будут различаться на 2-3 пикселя, то на экране вы увидите привлекательный «компакт-диск». Сделайте его золотым.
  Не трогая x, а меняя только y и R, вы получите коническую башню.
  Меняя все три параметра, вы получите трубу, уходящую в бесконечность.
  Разлинуйте экран в линейку.
  А теперь в клетку.