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

UptoLike

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

44
44
Здесь Color - переменная, задающая номер цвета (для адаптера VGA от 0 до
15); RedVal, GreenVal, BlueVal - выражения типа Integer, устанавливающие
интенсивность соответственно красной, зеленой и синей составляющих цвета (в
диапазоне от 0 до 256).
Программа, демонстрирующая действие процедуры SetRGBPalette выводит
на экран два залитых прямоугольник (синего и белого цвета), а затем, после
нажатия любой клавиши, синий прямоугольник меняет окраску.
Uses crt,graph;
var grDriver,i: Integer;
{ Здесь
должна быть процедура инициализация графического режима}
begin
Init_Graph_Mode;
if grDriver in [IBM8514, VGA] then begin
setfillstyle(1,1); {Установка сплошной заливки цветом 1 - синим}
bar(100,100,200,400);{Рисование залитого синим, прямоугольника}
setfillstyle(1,2); {Установка сплошной заливки цветом 2 - зеленым}
bar(300,100,400,400);{Рисование залитого зеленым, прямоугольника}
readkey;
for i:=1 to 100 do
begin
{Выбор интенсивности составляющих -действует на синии фигуры}
SetRGBPalette(1,Random(255),Random(255),Random(255));
end;
closegraph;
end
else
begin
outtextxy(300,20,'Адаптер не тот');
readkey;
end;
end.
2.2.10 Вывод
текста в графическом режиме
В графическом режиме стандартными средствами вывести на экран можно
только строковые константы или переменные. Поэтому при выводе числовых
значений необходимо преобразовать их в строковое с помощью процедуры
преобразования типов STR(chislo, stroka).
Для вывода текстовых изображений (строк) можно использовать одну из
двух процедур модуля Graph:
OutText(Строка) или OutTextXY(X, Y, Строка);
Первая из этих процедур выводит текстовую строку, начиная от текущего
положения графического курсора, а вторая - с позиции, определяемой
координатами (X, Y).
                                                                            44




      Здесь Color - переменная, задающая номер цвета (для адаптера VGA от 0 до
15); RedVal, GreenVal, BlueVal - выражения типа Integer, устанавливающие
интенсивность соответственно красной, зеленой и синей составляющих цвета (в
диапазоне от 0 до 256).
      Программа, демонстрирующая действие процедуры SetRGBPalette выводит
на экран два залитых прямоугольник (синего и белого цвета), а затем, после
нажатия любой клавиши, синий прямоугольник меняет окраску.
      Uses crt,graph;
            var     grDriver,i: Integer;
   { Здесь должна быть процедура инициализация графического режима}

begin
    Init_Graph_Mode;
    if grDriver in [IBM8514, VGA] then begin
    setfillstyle(1,1); {Установка сплошной заливки цветом 1 - синим}
    bar(100,100,200,400);{Рисование залитого синим, прямоугольника}
   setfillstyle(1,2); {Установка сплошной заливки цветом 2 - зеленым}
    bar(300,100,400,400);{Рисование залитого зеленым, прямоугольника}
    readkey;
   for i:=1 to 100 do
    begin
        {Выбор интенсивности составляющих -действует на синии фигуры}
    SetRGBPalette(1,Random(255),Random(255),Random(255));
    end;
    closegraph;
                      end
                      else
                      begin
                      outtextxy(300,20,'Адаптер не тот');
                      readkey;
                      end;
  end.

                 2.2.10 Вывод текста в графическом режиме

      В графическом режиме стандартными средствами вывести на экран можно
только строковые константы или переменные. Поэтому при выводе числовых
значений необходимо преобразовать их в строковое с помощью процедуры
преобразования типов STR(chislo, stroka).
      Для вывода текстовых изображений (строк) можно использовать одну из
двух процедур модуля Graph:
      OutText(Строка) или OutTextXY(X, Y, Строка);
      Первая из этих процедур выводит текстовую строку, начиная от текущего
положения графического курсора, а вторая - с позиции, определяемой
координатами (X, Y).
                                                                            44