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

Pascal ABC графика с переменнымиГильзер Наталья Владимировна, г. Уфа МБОУ «Лицей № 60» Рисуем с помощью цикла whileЗадача №1.Задача №2.Задача №3. while x<540 dobeginrectangle(x,y,x+2*n,y+2*n);x:=x+80;end;Задача №1.x:=10;y:=10;x:=100;y:=100;или

while (x<540) and (y<350) dobeginrectangle(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;или

while (x<540) and (y<350) dobeginrectangle(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;
Решения:uses graphabc;var x,y,n:integer;beginx:=10;y:=10;N:=10;while x<540 dobeginrectangle(x,y,x+2*n,y+2*n);x:=x+2*n;end;end.uses graphabc;var x,y,n:integer;beginx:=10;y:=10;while (x<540) and (y<350) dobeginrectangle(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;beginx:=50;y:=50;n:=30;k:=0;setBrushStyle(bsClear);while k<100 dobeginrectangle(x+k,y+k,x+10*n-k,y+10*n-k);k:=k+10;end;end. uses graphabc;var x,y,n,c:integer;beginx:=100;y:=100;c:=0;n:=10;while (x<540)and (y>0) dobeginrectangle(x+2*c,y-c,x+2*n+2*c,y+2*n+2*c);x:=x+2*n;c:=c+10;end;end. Начальные координаты:X:=10; Y:=200;N:=20; - масштабИзменения координат:Rectangle(10,200,30,220) (30,190,60,220) (60,180,100,220) . . . Задача №4. (дополнительно)Разработать алгоритм решения.

uses graphabc;var x,y,n:integer;beginx:=10;y:=30;while x<600 dobeginrectangle(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.Рисуем забор uses graphabc;var x,y,n:integer;beginx:=200;y:=200;n:=100;while n>10 dobegincircle(x,y,n);n:=n-10;end;end.Если рисуем множество окружностей, то начинаем с фигуры большего радиуса, так как она имеет заливку белого цвета и закрывает собой предыдущие.!Круги на воде
! Домашнее задание: