Процедура Line

uses
    graph;
 
var
    g, h, i, j, x, y, x2, y2: integer;
 
begin
    g := detect;
    initgraph(g,h,'');
 
    randomize;
    for i := 1 to 12 do begin
        setcolor(random(15));
        x := random(400) + 100;
        y := random(400) + 100;
        for j := 1 to 10 do begin
            x2 := x + random(40)-20;
            y2 := y + random(40)-20;
            line(x,y, x2, y2);
        end;
    end;
 
readln
end.	

Программа выводит на экран 12 «звездочек», каждая из которых содержит по 10 линий.

Координаты центральной точки каждой звездочки задаются случайным образом в диапазоне от 100 до 500 (400 + 100) пикселей.

Цвет также задается случайным образом.

Длина линий может быть до 20 пикселей и меньше.

Для вывода линии на экран используется процедура Line.

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