Расставить на экране 30 окружностей со случайными координатами X и Y, случайного радиуса и цвета ("мыльные пузыри").Паскаль, пожалйуста решите, кто знает
Расставить на экране 30 окружностей со случайными координатами X и Y, случайного радиуса и цвета ("мыльные пузыри").Паскаль, пожалйуста решите, кто знает
Гость
Ответ(ы) на вопрос:
Гостьuses graphabc;
var x,y,r,i,color:integer;
begin
randomize;
for i:=1 to 30 do
begin
x:=random(640)+0;
y:=random(480)+0;
r:=random(30)+5;
circle(x,y,r);
color:=random(1000)+0;
FloodFill(x,y,color);
end;
end.
Не нашли ответ?
Похожие вопросы