Изобразить цветной шум - Pascal ABC

Формулировка задачи:

Составьте программу выводящую на экран картинку: Указание. Координаты (а,b) точки, лежащей выше главной диагонали, удовлетворяют условию a>b

Код к задаче: «Изобразить цветной шум - Pascal ABC»

textual
uses graphABC;
var i,x,y:integer;
begin
randomize;
//вообще нужно
//clearwindow(clBlack);
//но у меня в простом АС это часто не срабатывает
setbrushcolor(clBlack);
rectangle(0,0,windowwidth,windowheight);
for i:=1 to 20000 do
 begin
  x:=1+random(windowwidth);
  y:=1+random(windowheight);
  if (x<=windowheight)and(y<=x) then setpixel(x,y,clGreen)
  else if (x<=windowheight)and(y>x) then setpixel(x,y,clRed)
  else setpixel(x,y,clYellow)
 end;
end.

9   голосов, оценка 4.222 из 5


СОХРАНИТЬ ССЫЛКУ