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

                                                                     34




  for i:=1 to 5 do begin
  color:=color-1;
  dr:=dr+10;
  circle(450,130,30+dr);
   setcolor(color);
   end;
 readkey;
{ Рисование эллипсов}
  color:=15; setcolor(color);
  dx:=0; dy:=0;
  for i:=1 to 5 do begin
  color:=color-1;
  dx:=dx+15; dy:=dy+10;
   ellipse(120,330,0,360,30+dx,20+dy);
   setcolor(color);
   end;
    readkey;
{ Рисование дуг}
     color:=15;     setcolor(color);
  dr:=0;
  for i:=1 to 5 do begin
  color:=color-1;
  dr:=dr+15;
   arc(420,350,0,120,20+dr);
   setcolor(color);
   end;
      readkey;
 end;
 begin
  {Основная программа}
 Init_Graph_Mode;
 kontur;
 closegraph;
 end.

                         Лабораторная работа № 3.3 (17)

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

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


                                                                     34