Построение основных графических примитивов

@popuas · Регистрация: 07.04.2014

Author24 — интернет-сервис помощи студентам

С помощью процедуры нарисовать узор

@Puporev · 07.04.2014, 19:45

Pascal

uses GraphABC;
var r,i,j,x,y,d:integer;
begin
r:=20;
d:=r-6;
y:=r;
setbrushstyle(bsClear);
while y<=windowheight do
 begin
  x:=r;
  while x<=windowwidth do
   begin
    circle(x,y,r);
    x:=x+2*d;
   end;
  y:=y+2*d
 end;
end.

@popuas 1 / 1 / 0 Регистрация: 07.04.2014 Сообщений: 19
		1
	Построение основных графических примитивов 07.04.2014, 18:11. Показов 2183. Ответов 1 Метки нет (Все метки) С помощью процедуры нарисовать узор Изображения 0

	07.04.2014, 19:45

Построение основных графических примитивов

Решение