Процедура Line. “Звезды на экране”

Рейтинг:   / 0
ПлохоОтлично 

Процедура 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.

Критические заметки

Здесь представлены комментарии некоторых спортивных состязаний, а также оценка вопросов, сыгранных в телевизионных клубах "Что? Где? Когда?" России и Беларуси.  Особое внимание будет уделено игровым видам спорта (футбол, хоккей). Найдут для себя полезное и любители шахмат и шахматной композиции. 

Читать

Лучшие книги

Здесь представлены лучшие, на наш взгляд, книги по математике, физике, астрономии, информатике, и некоторым другим предметам. Также предлагается подборка научно-популярной литературы и книг по интеллектуальным играм. Здесь указаны ссылки, по которым Вы можете их скачать.

Перейти к книгам