Question

Составить программу, выводящую изображение: на синем фоне экрана 250

точек желтого цвета с произвольными координатами.
PASCAL ABC

Answer 1

program randomDots;

uses graphabc;

const

windowWidth = 640;

windowHeight = 480;

var

i:integer;

begin

setwindowsize(windowWidth, windowHeight);

clearwindow(clblue);

for i:=1 to 250 do

setpixel(round(random() * windowWidth), round(random() * windowHeight), clyellow);

end.