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

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


    Построение типовых геометрических элементов (отрезок, окруж-
                   ность, прямоугольник, эллипс)
4) Построить на графическом экране отрезок (4 способа).

  program grafik;
  uses CRT,Graph;
  label 100;
   var
     grDriver:integer;
     grMode :integer;
     ErrCode :integer;
  var
     dx,dy,d1,d2,d,z1,z2:real;
     l,alfa,g,dg,pi,fi,dalfa:real;
     x0,y0,xk,yk:integer;
     k:integer;
  BEGIN
     clrscr;
       writeln('введите способ задания отрезка');
       readln(k);
       writeln('введите x0,y0');
       readln(x0,y0);
       pi:=4*arctan(1);
        case k of
         1:begin
         writeln('введите xk,yk');readln(xk,yk);
         end;
         2:begin
         writeln('введите dx,dy'); readln(dx,dy);
          xk:=x0+round(dx);yk:=y0-round(dy);
         end;
         3:begin
         writeln ('введите l и alfa');
          readln(l,alfa);
          g:=alfa*pi/180;
          dx:=l*cos(g);dy:=l*sin(g);
          xk:=x0+round(dx);yk:=y0-round(dy);
          end;
         4:begin
         writeln('введите l и dalfa');
          readln(l,dalfa);
         dg:=dalfa*pi/180;
         writeln('введите d1,d2');


                                     91