zastavk.PAS

Dvt-spb.ru

Какая Пилорама лучше ленточная dvt-spb.ru.

dvt-spb.ru

{* Заставка *}

Unit ZASTAVK;
Interface
Implementation
Begin
 writeln('
Небольшая заставка в графическом режиме
'
);
End.

Program Zastavka;

Uses zastavk.pas; {* Эту строку можно удалить *}
Uses Graph, Crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  i            : integer;
  x            : word;
  y            : word;
  color        : word;
  EllipseColor : word; {процедура инициализации графики}
Var {* Необходимые переменные *}
  Dv : integer;
  Mv : integer;
Begin
  Dv := EGA;
  Mv := EGAHi;
  InitGraph(Dv, Mv, '');
End;
Begin
  Ini;
  randomize; {"перемешиваем" случайные числа}
  EllipseColor := random(14) + 1;
  SetColor(EllipseColor); {задаем цвет эллипса}
  For i := 1 To 300 Do {* Увеличиваем i от 1 до 300 с шагом 1 *}
    Ellipse(random(640), random(480), 0, 360, random(60) + 5, random(60) + 5);
  Repeat      x := Random(640); {берем случайную}
    y := Random(480); {координату точки}
  If GetPixel(x, y)EllipseColor Then
  Begin
    color := Random(15); {задаем цвет заполнения}
    If color  EllipseColor Then
    Begin
      SetFillStyle(1, color); {устанавливаем цвет заполнения}
      FloodFill(x, y, EllipseColor); {заполняем цветом область, в которой          находится точка с координатами (x, y) }
    End;
    
  End;
  Until keypressed; {повторяем до тех пор, пока не будет нажата клавиша}
  CloseGraph; {закрываем графический режим}
End.