Главная › Графика и псевдографика в Паскале

Процедура Circle. “Разноцветные окружности”

ср, 02/09/2011 - 12:56 — tech 

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.

  • Версия для печати
  • Добавить комментарий