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

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




                       Вращение треугольника

program wr;
uses CRT,Graph;
var
   grDriver:integer;
   grMode :integer;
   ErrCode :integer;
var
   x1,y1,x2,y2,x3,y3,xc,yc,xb,yb,xa,ya:integer;
   n,cw:integer;
   i:longint;
   a,b,c:real;
   x0,y0:integer;
   alfa,alfa0,g,H,pi,z,gamma:real;
procedure w1(xn,yn:integer;var x,y:integer); {преобразование координат}
begin
  x:=round(xn*cos(g)-yn*sin(g));
  y:=round(xn*sin(g)+yn*cos(g));
end;
procedure w2;
  begin
   setcolor(cw);
   line(x0+xc,y0-yc,x0+xb,y0-yb);
   line(x0+xb,y0-yb,x0+xa,y0-ya);
   line(x0+xa,y0-ya,x0+xc,y0-yc);
 end;
BEGIN
   clrscr;
      writeln('введите x0,y0');
      readln(x0,y0);
      writeln('введите a,b,c,alfa0');
      readln(a,b,c,alfa0);
      writeln('введите n');
      readln(n);


                                  96