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

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

Составители: 

Рубрика: 

{Повторное рисование Cолнца, если оно ближе к наблюдателю, чем
Земля}
If CompressZem<2 then PieSlice(310, 160, 0, 360, RadSun);
{------------------------------------------------------------------
}
RandSeed := VisualPage mod 12;
For i := 1 to 250 do {Рисование протуберанцев}
begin
Projection := (1-sqr(Random))*Pi/2;
XRad := RadSun+Round((20)*sin(Projection))-15;
PolUgol := 2 * Pi * Random+VisualPage/20;
{PolUgol, XRad - полярные координаты протуберанца}
PixelX := 310 + Round( XRad * cos(PolUgol));
PixelY := 160 + Round( Compress * XRad * sin(PolUgol));
PutPixel(PixelX, PixelY, LightRed)
end;
until KeyPressed
END.
Пример 8.11. Программа рисует прямоугольную систему координат,
отображает в ней заданное множество точек и строит все возможные
пары треугольников с вершинами в этом множестве такие, чтобы один
треугольник лежал строго внутри другого.
Для работы программы необходимо предварительно создать в текущем каталоге
текстовый файл dan.dat, содержащий координаты точек множества. Файл должен иметь
структуру:
x
1
y
1
x
2
y
2
... x
n
y
n
, где 0 < x
i
< 400, 0 < y
i
< 600.
Пример файла dan.dat, содержащего координаты десяти точек:
20 20 150 40 90 300 500 400 50 380 110 130 370 290 300 140 70 60 500 170
Пустых строк в файле dan.dat быть не должно. 
          {Повторное рисование Cолнца, если оно ближе к наблюдателю, чем
      Земля}
          If CompressZem<2 then PieSlice(310, 160, 0, 360, RadSun);
           {------------------------------------------------------------------
      }
          RandSeed := VisualPage mod 12;
          For i := 1 to 250 do {Рисование протуберанцев}
            begin
              Projection := (1-sqr(Random))*Pi/2;
              XRad := RadSun+Round((20)*sin(Projection))-15;
              PolUgol := 2 * Pi * Random+VisualPage/20;
              {PolUgol, XRad - полярные координаты протуберанца}
              PixelX := 310 + Round( XRad * cos(PolUgol));
              PixelY := 160 + Round( Compress * XRad * sin(PolUgol));
              PutPixel(PixelX, PixelY, LightRed)
            end;
        until KeyPressed
      END.



    Пример 8.11. Программа рисует прямоугольную систему координат,
  отображает в ней заданное множество точек и строит все возможные
  пары треугольников с вершинами в этом множестве такие, чтобы один
                треугольник лежал строго внутри другого.




Для работы программы необходимо предварительно создать в текущем каталоге
текстовый файл dan.dat, содержащий координаты точек множества. Файл должен иметь
структуру:
x1 y1 x2 y2 ... xn yn , где 0 < xi < 400, 0 < yi < 600.
Пример файла dan.dat, содержащего координаты десяти точек:
20 20 150 40 90 300 500 400 50 380 110 130 370 290 300 140 70 60 500 170
Пустых строк в файле dan.dat быть не должно.

Страницы