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

                              Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


бражения муарового узора, полученного пересечением двух семейств рас-
ходящихся отрезка прямых. Качество и изображение получаемого узора за-
висит в основном от трёх параметров: kl, k2 - расстояний между отрезками
слева и справа; h – смещения вниз (вверх) всего семейства.
  Программа
  program uzor;
       uses crt, graph;
  var gd, gm, errCode, i, kl,k2,h: integer;
  begin
          kl:=8; k2:=3; h:=110; gd:=Detect; InitGraph(gd,gm, ' ');
       errCode:=GraphResult;
          if errCode = grOk then
          begin
          setcolor (green);
          for i:=l to (420 div kl) do
            begin
            line (0, i*kl, 640, i*k2+h);
            line (0, i*k2+h, 640, i*kl);
            end;                                .
               repeat until keypressed;
               CloseGraph;
               end
          else writeln('errCode=', errCode);
  end.
  Процедуры построения прямоугольных фигур удобно использовать, в
частности, при построении схем, диаграмм.
  Пример 3: Программа строит столбчатую диаграмму, наглядно отра-
жающую числовую информацию о населении 6 крупных городов мира:
Токио, Гамбурга, Москвы, Бангкока, Мехико и Парижа.
     Программа
  program colon;
  uses crt, graph;
  const m: array[1..6] of real=(11500,2300,9700,5100,12400,8200);
  name: array[1..6] of
  string=('Токио', 'Гамбург', 'Москва', 'Бангкок', 'Мехико', 'Париж');
  var gd,gm,k,n,s: integer; st: string[6];
  begin
  gdi:=detect; initgraph(gd,gm,' '); setcolor(15);
  setlinestyle(0,0,1);
  line(60,400,620,400); line(60,400,60,100);
          settextstyle(0,0,1);
          for k:=l to 12 do
          begin n:=1000*k; str(n,st); outtextxy(10,400-20*k-4,st);


                                   16