Модуль Graph: Нарисовать в нижней, левой четверти экрана 150 точек, выбирая координаты и цвета случайным образом

@Captain Puppan · Регистрация: 08.01.2013

Нарисовать в нижней, левой четверти экрана 150 точек, выбирая координаты и цвета случайным образом

@Puporev · 14.01.2013, 12:59

Pascal

uses graphABC;
var x,y,xp,yv,i:integer;
begin
xp:=windowwidth div 2;
yv:=windowheight div 2;
for i:=1 to 150 do
 begin
  x:=1+random(xp);
  y:=yv+random(yv);
  setpixel(x,y,clrandom);
 end;
end.

@Captain Puppan 0 / 0 / 0 Регистрация: 08.01.2013 Сообщений: 9
		1
	Модуль Graph: Нарисовать в нижней, левой четверти экрана 150 точек, выбирая координаты и цвета случайным образом 14.01.2013, 11:56. Показов 2059. Ответов 1 Метки нет (Все метки) Нарисовать в нижней, левой четверти экрана 150 точек, выбирая координаты и цвета случайным образом 0

Опции темы

Модуль Graph: Нарисовать в нижней, левой четверти экрана 150 точек, выбирая координаты и цвета случайным образом

Решение