Презентация по информатике на тему "Графика в PascalABC - цикл с параметром"

• 1 слайд

  Pascal ABC
  графика с переменными
  Гильзер Наталья Владимировна, г. Уфа МБОУ «Лицей № 60»
  

• 2 слайд

  Рисуем с помощью цикла while
  Задача №1.
  Задача №2.
  Задача №3.
  

• 3 слайд

  while x<540 do
  begin
  rectangle(x,y,x+2*n,y+2*n);
  x:=x+80;
  end;
  Задача №1.
  x:=10;
  y:=10;
  x:=100;
  y:=100;
  или
  

• 4 слайд

  while (x<540) and (y<350) do
  begin
  rectangle(x,y,x+2*n,y+2*n);
  x:=x+2*n;
  y:=y+2*n;
  end;
  Задача №2.
  x:=10;
  y:=10;
  x:=100;
  y:=100;
  или
  

• 5 слайд

  while (x<540) and (y<350) do
  begin
  rectangle(x,y,x+2*n,y+2*n);
  x:=x+2*n;
  y:=y+2*n;
  end;
  Задача №3.
  x:=50;
  y:=50;
  n:=30;
  k:=0;
  

• 6 слайд

  Решения:
  uses graphabc;
  var x,y,n:integer;
  begin
  x:=10;
  y:=10;
  N:=10;
  while x<540 do
  begin
  rectangle(x,y,x+2*n,y+2*n);
  x:=x+2*n;
  end;
  end.
  uses graphabc;
  var x,y,n:integer;
  begin
  x:=10;
  y:=10;
  while (x<540) and (y<350) do
  begin
  rectangle(x,y,x+2*n,y+2*n);
  x:=x+2*n;
  y:=y+2*n;
  end;
  end.
  Задача №1.
  Задача №2.
  Задача №3.
  uses graphabc;
  var x,y,n,k:integer;
  begin
  x:=50;
  y:=50;
  n:=30;
  k:=0;
  setBrushStyle(bsClear);
  while k<100 do
  begin
  rectangle(x+k,y+k,x+10*n-k,y+10*n-k);
  k:=k+10;
  end;
  end.
  

• 7 слайд

  uses graphabc;
  var x,y,n,c:integer;
  begin
  x:=100;
  y:=100;
  c:=0;
  n:=10;
  while (x<540)and (y>0) do
  begin
  rectangle(x+2*c,y-c,x+2*n+2*c,y+2*n+2*c);
  x:=x+2*n;
  c:=c+10;
  
  end;
  end.
  

• 8 слайд

  Начальные координаты:
  X:=10;
  Y:=200;
  N:=20; - масштаб
  Изменения координат:
  Rectangle(10,200,30,220)
  (30,190,60,220)
  (60,180,100,220)
  . . .
  Задача №4. (дополнительно)
  Разработать алгоритм решения.
  

• 9 слайд

  uses graphabc;
  var x,y,n:integer;
  begin
  x:=10;
  y:=30;
  while x<600 do
  begin
  rectangle(x,y,x+40,y+80);
  line(x,y,x+20,y-20);
  line(x+20,y-20,x+40,y);
  x:=x+40;
  end;
  end.
  Рисуем забор
  

• 10 слайд

  uses graphabc;
  var x,y,n:integer;
  begin
  x:=200;
  y:=200;
  n:=100;
  while n>10 do
  begin
  circle(x,y,n);
  n:=n-10;
  end;
  end.
  Если рисуем множество окружностей, то начинаем с
  фигуры большего радиуса, так как она имеет заливку
  белого цвета и закрывает собой предыдущие.
  !
  Круги на воде
  

• 11 слайд

  !
  

• 12 слайд

  Домашнее задание: