Основы алгоритмизации и программирования. Часть четвертая. Файловая система Turbo Pascal. Асламова В.С - 49 стр.

UptoLike

ВУЗ: 

АГТА | Ангарск

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

Рубрика: 

97
шрифта (параметр Font), направление текста (параметр Direction) и размер
шрифта (параметр CharSize). Выберем векторный шрифт с номером 3, обыч-
ное направление текста слева направо (Direction=0) и увеличенный размер
шрифта.
SetTextStyle(3,0,4);
После этого выведем число 360.
OutTextXY(XCoord,YCoord,S) ;
Вся программа будет выглядеть следующим образом:
Uses Graph,Crt;
Var Gd,Gm,Err,i,IntSn:integer ;
Sn:Real;
XCoord,YCoord:Integer;
S:String;
{$1 D:/pas/init.pas}
begin
{Инициализация графического режима}
Init;
{Установка цвета фона и экрана и вывод
осей}
SetColor(O) ;
SetBkColor(l) ;
Line(10,5,10,GetMaxY-5) ;
Line(10,GetMaxY div 2,GetMaxX-10,GetMaxY div 2);
MoveTo (10,GetMaxY div 2);
SetColor(2) ;
{Расчет и вывод на экран графика функции}
For i:=0 To GetMaxX – 20 Do
begin
Sn:=Sin(i*2*pi/(GetMaxX-20));
IntSn:=Round((GetMaxY div 2-5)*Sn);
LineTo (i+10,GetMaxY Div 2-IntSn) ;
end;
{Вывод чисел}
XCoord:=GetMaxX – 60 ;
YCoord:=GetMaxY div 2;
Str (360,S) ;
SetTextStyle (3,0,4) ;
OutTextXY(XCoord,YCoord,S) ;
XCoord:=20 ;
YCoord:=0;
Str(1, S);
SetTextStyle(3,0, 4) ;
98
OutTextXY(XCoord, YCoord, S) ;
XCoord:=20;
YCoord:=GetMaxY – 40;
Str (-1, S) ;
SetTextStyle (3, 0, 4) ;
OutTextXY(XCoord, YCoord, S) ;
Readln;
CloseGraph;
end.
Полученный график приведен на рисунке
1
360
-1
Рис.2.
Рисование контуров фигур
Рассмотрим основные принципы построения контурных фигур. На-
пример выведем в центре экрана синий прямоугольник на красном фоне.
Rectangle (X1, Y1, X2, Y2: Integer)- рисует контур прямоугольника.
Здесь Х1 и Y1 определяют координаты левого верхнего угла, а Х2 и Y2 - пра-
вого нижнего угла прямоугольника.
При установленном графическом режиме для выбора цвета, па-
раметров линии и вывода прямоугольника может быть использована
следующая последовательность операторов.
SetColor(Blue) ;
SetBkColor(Red) ;
SetLineStyle(1,1,1) ;
X:=GetMaxX div 2;
Y:=GetMaxY div 2;
Rectangle(X-100,Y-50,X+100,Y+50) ; 
шрифта (параметр Font), направление текста (параметр Direction) и размер             OutTextXY(XCoord, YCoord, S) ;
шрифта (параметр CharSize). Выберем векторный шрифт с номером 3, обыч-               XCoord:=20;
ное направление текста слева направо (Direction=0) и увеличенный размер              YCoord:=GetMaxY – 40;
                                                                                     Str (-1, S) ;
шрифта.                                                                              SetTextStyle (3, 0, 4) ;
      SetTextStyle(3,0,4);                                                           OutTextXY(XCoord, YCoord, S) ;
                                                                                     Readln;
После этого выведем число 360.                                                       CloseGraph;
      OutTextXY(XCoord,YCoord,S) ;                                                   end.

Вся программа будет выглядеть следующим образом:                                     Полученный график приведен на рисунке
      Uses Graph,Crt;
      Var Gd,Gm,Err,i,IntSn:integer ;                                               1
      Sn:Real;
      XCoord,YCoord:Integer;
      S:String;
                                {$1 D:/pas/init.pas}                                                                                     360
      begin
                                {Инициализация графического режима}
              Init;
                                {Установка цвета фона и экрана и вывод осей}            -1
              SetColor(O) ;
              SetBkColor(l) ;                                                                                         Рис.2.
              Line(10,5,10,GetMaxY-5) ;
              Line(10,GetMaxY div 2,GetMaxX-10,GetMaxY div 2);
              MoveTo (10,GetMaxY div 2);                                                            Рисование контуров фигур
              SetColor(2) ;
                                {Расчет и вывод на экран графика функции}            Рассмотрим основные принципы построения контурных фигур. На-
              For i:=0 To GetMaxX – 20 Do
                begin                                                          пример выведем в центре экрана синий прямоугольник на красном фоне.
                  Sn:=Sin(i*2*pi/(GetMaxX-20));                                      Rectangle (X1, Y1, X2, Y2: Integer)- рисует контур прямоугольника.
              IntSn:=Round((GetMaxY div 2-5)*Sn);                              Здесь Х1 и Y1 определяют координаты левого верхнего угла, а Х2 и Y2 - пра-
              LineTo (i+10,GetMaxY Div 2-IntSn) ;                              вого нижнего угла прямоугольника.
        end;                                                                               При установленном графическом режиме для выбора цвета, па-
                                       {Вывод чисел}
      XCoord:=GetMaxX – 60 ;                                                      раметров линии и вывода прямоугольника может быть использована
      YCoord:=GetMaxY div 2;                                                      следующая последовательность операторов.
      Str (360,S) ;
      SetTextStyle (3,0,4) ;                                                             SetColor(Blue) ;
      OutTextXY(XCoord,YCoord,S) ;                                                       SetBkColor(Red) ;
      XCoord:=20 ;                                                                       SetLineStyle(1,1,1) ;
      YCoord:=0;                                                                         X:=GetMaxX div 2;
      Str(1, S);                                                                         Y:=GetMaxY div 2;
      SetTextStyle(3,0, 4) ;                                                             Rectangle(X-100,Y-50,X+100,Y+50) ;
                                       97                                                                          98

Страницы