Расставить на экране 100 точек со случайными координатами X и Y ("звездное небо"). Координаты выбирать с помощью random.
Расставить на экране 100 точек со случайными координатами X и Y ("звездное небо"). Координаты выбирать с помощью random.
Гость
Ответ(ы) на вопрос:
Гостьuses GRAPHABC;
var i,x,y:integer;
begin
randomize; for i:=1 to 100 do
begin
x:=random(640)+0;
y:=random(480)+0;
setpixel(x,y,clblack);
end;
readln
end.
Не нашли ответ?
Похожие вопросы