Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 106 стр.

  y := 120; h := 50; y1 := 140;
  SetTextStyle(DefaultFont, HorizDir, 2); {шрифт, направление, размер}
  OutTextXY(160, 20, 'Конструируем интерьер');
  SetFillStyle(5, LightRed); {тип штриховки и цвет (ярко красный)}
  For i := 4 downto 1 do
    begin {рисование параллелепипедов заданного размера}
      Bar3D(75, y1+i*h, 145, y1+(i+1)*h, 60, TopOff); Delay(200);
    end;
  Bar3D(75 , y1 , 145, y1+h , 60, TopOn); Delay(200);
  Bar3D(180, y , 290, y+h , 30, TopOn); Delay(200);
  Bar3D(330, 225 , 400, y+4*h , 30, TopOn); Delay(200);
  Bar3D(300, y+3*h, 370, y+5*h , 30, TopOn); Delay(200);
  Bar3D(370, y+3*h, 440, y+5*h , 30, TopOn); Delay(200);
  Bar3D(300, y , 370, y+h , 30, TopOn); Delay(200);
  Bar3D(370, y , 440, y+h , 30, TopOn); Delay(200);
  Bar3D(442, y , 500, y+5*h , 30, TopOn); Delay(200);
  Rectangle(135, 425, 470, 450); {рисование pамки для сообщения}
  SetTextStyle(DefaultFont, HorizDir, 1);
  OutTextXY(150, 435, 'Для продолжения нажмите любую клавишу !');
  Key := ReadKey; ClearViewPort; {очистка окна}
{-----------------------------------------------------------------}
  SetTextStyle(DefaultFont, HorizDir, 2);
  OutTextXY(100, 20, 'Рисуем столбиковую диаграмму');
  x := 50; Randomize; {инициализация датчика случайных чисел}
  For i := 1 to 8 do {цикл по столбикам диаграммы}
    begin
      Color := Random(12)+1; {задание кода цвета (кроме черного)}
      SetFillStyle(i, Color); {задание типа штриховки и цвета}
      SetColor(Color);
      Bar3D(x, 350-Height[i], x+50, 380, 20, TopOn); {рисование столбика}
      x := x+70; {изменение координаты x };
      Delay(200) {задержка}
    end;
  Key := ReadKey; CloseGraph; {Закрытие графического режима}
END.
     Пример 8.9. Эта программа демонстрирует работу с пикселами,
                  случайными эллипсами и секторами.




  Внимание: будет работать только если Turbo Pascal установлен в каталог
   C:\TP и каталог C:\TP\BGI содержит необходимый файл egavga.bgi.
Program RandomFigures;
  Uses Graph, Crt;
  Var
    Key                      : Char;
    GrDriver, GrMode         : Integer;
    Radius, MaxX, MaxY, Ugol : Word; {параметры процедур}
BEGIN
  GrDriver := Detect; {автоопределение типа графического драйвера}
  InitGraph(GrDriver, GrMode, 'C:\TP\BGI'); {установка графического режима}
  SetTextStyle(DefaultFont, HorizDir, 2);