Практикум по решению задач на ЭВМ. Тарова И.Н - 15 стр.

                        Практикум по решению задач на ЭВМ


outtextxy(x,y,st)                Вывести строку st, начиная с точки (х,у)
                                 Вывести строку, начиная с точки расположения
outtext(st)
                                 текущего указателя

       Первый аргумент процедуры setfillstyle(t,c) - тип закраски t - принима-
    ет значения из интервала 0..12. Наиболее употребителен тип t=1 - запол-
    нение фигуры текущим цветом.
       Для вывода текста на графический экран сначала выполняется процеду-
    ра settextstyle(f,n,d), устанавливающая шрифт f, направление вывода n
    и размер символов (параметр d). При f=0 используется стандартный то-
    чечный шрифт, встроенный в систему Турбо-Паскаль. С использованием
    других шрифтов познакомимся ниже. Направление вывода п принимает
    значения 0 (горизонтальный вывод) и 1 (вертикальный вывод).
       Размер букв определяется параметром d, принимающим значения из
    интервала 1..10. Если d=1 и f=0, то каждый символ занимает квадрат 8*8
    точек, при d>1 сторона квадрата умножается на d. Далее, с помощью про-
    цедуры outtextxy(x,y,st) строка st выводится на экран, начиная с точки
    (х,у).
         Например:
             settextstyle(0,0,2);
             outtextxy (100,200,'горизонтальная строка');
             outtextxy(100,230,'paзмep увеличен вдвое’);
       Примеры графических программ
       Пример 1: программа рисует звездное небо с 400 «звездами», вспыхи-
    вающими постепенно, и полную желтую луну.
         Программа
       program sky;
       uses crt,graph;
       var k,gd,gm: integer;
       begin gd:=detect;
              initgraph (gd, gm, ' '); randomize;
              for k:=l to 400 do
              begin putpixel (random(640), random(480),
              random(15)+1);
              delay(10);
           end;
              setfillstyle (l,14); setcolor(14);
              circle(550,80,30); flopdfill (550, 80,14);
              repeat until keypressed;
              closegraph
       end.
       Пример 2. Узор. Используя простейшие геометрические образы, строят
    замечательные графические изображения. Ниже приведена программа изо-


                                        15