Алгоритмические языки и программирование. Часть 3. Модули в Турбо Паскале. Игошина Л.В. - 49 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

49
49
InitGraph(grDriver, grMode,'');
ErrCode := GraphResult;
if ErrCode <> grOk then
Writeln('Ошибка инициализации графического режима:'
, GraphErrorMsg(ErrCode));
end;
begin
init_graph;
{Рисуем колобка}
setbkcolor(7); setcolor(4); setfillstyle(1,15);
circle(100,100,50); floodfill(101,101,4);
setfillstyle(1,1); circle(80,80,10); circle(120,80,10);
floodfill(80,80,4); floodfill(120,80,4);
fillellipse(100,100,5,10); fillellipse(70,150,30,10);
fillellipse(130,150,30,10); setfillstyle(1,12); fillellipse(100,130,20,10);
{Определяем объем памяти, необходимый для хранения изображения}
size:=ImageSize(35,45,165,165);
GetMem(p,size); {Определение адреса начала участка в динамической
области памяти, где будет храниться изображение}
GetImage(35,45,165,165,p^); { Размещение копии изображения в
динамической памяти }
readkey;
{Вывод движущегося изображения}
for i:=0 to 225 do
PutImage(35+i,45+i,p^,0);
readkey;
{Вывод движущегося изображения в 5 раз быстрее}
for i:=1 to 45 do
PutImage(35+i*5,45+i*5,p^,0); readkey;
Closegraph;
end.
Лабораторная работа № 3.4 (18)
Разработка программ с использованием процедур и функций модуля
Graph (часть 2)
Цель работы:
1. Изучение процедур и функций модуля Graph.
2. Разработка программ с использованием модуля Graph.
Варианты заданий
Вариант 1
1. Построить залитый прямоугольник с координатами х1 = 20, y1 = 20, 
                                                                                            49




InitGraph(grDriver, grMode,'');
 ErrCode := GraphResult;
 if ErrCode <> grOk then
  Writeln('Ошибка инициализации графического режима:'
  , GraphErrorMsg(ErrCode));
   end;
begin
     init_graph;
        {Рисуем колобка}
     setbkcolor(7);      setcolor(4);       setfillstyle(1,15);
     circle(100,100,50);      floodfill(101,101,4);
     setfillstyle(1,1);   circle(80,80,10);        circle(120,80,10);
     floodfill(80,80,4); floodfill(120,80,4);
     fillellipse(100,100,5,10);     fillellipse(70,150,30,10);
     fillellipse(130,150,30,10);      setfillstyle(1,12);     fillellipse(100,130,20,10);
     {Определяем объем памяти, необходимый для хранения изображения}
        size:=ImageSize(35,45,165,165);
      GetMem(p,size); {Определение адреса начала участка в динамической
                           области памяти, где будет храниться изображение}
      GetImage(35,45,165,165,p^); { Размещение копии изображения в
                                        динамической памяти }
      readkey;
        {Вывод движущегося изображения}
      for i:=0 to 225 do
      PutImage(35+i,45+i,p^,0);
      readkey;
        {Вывод движущегося изображения в 5 раз быстрее}
      for i:=1 to 45 do
      PutImage(35+i*5,45+i*5,p^,0);           readkey;
      Closegraph;
          end.

                           Лабораторная работа № 3.4 (18)

          Разработка программ с использованием процедур и функций модуля
                                   Graph (часть 2)

      Цель работы:
1. Изучение процедур и функций модуля Graph.
2. Разработка программ с использованием модуля Graph.

                                        Варианты заданий

                                Вариант 1
  1. Построить залитый прямоугольник с координатами х1 = 20, y1 = 20,
                                                                                            49

Страницы