Процедура Circle

uses
    graph;
 
var
    g, h, i, x, y, r: integer;
 
begin
    g := detect;
    initgraph(g,h,'');
 
    randomize;
    for i := 1 to 30 do begin
        setcolor(random(15));
        x := random(1000) + 100;
        y := random(800) + 100;
        r := random(100);
        circle(x,y,r);
    end;
 
readln
end.	

Программа выводит на экран 30 окружностей разным цветом в разных местах окна.

Для вывода окружности на экран используется процедура Circle, которая принимает три параметра – координаты центральной точки и радиус окружности. В данном коде они определяются случайным образом с помощью функции random.

Добавить комментарий