Графики.Паскаль

[Stilet]

uses Graph;
var i:integer; driver,mode:integer;
 procedure H(x,y,col:integer;ang:double);
 var p:array[1..6,1..2] of integer;a,i:integer;ag:double;
 begin
  a:=100;
  ag:=(ang-45)*pi/180;
  for i:=1 to 4 do begin
   p[i,1]:=x+round(a*cos(ag));
   p[i,2]:=y+round(a*sin(ag));
   ag:=ag+pi/2;
  end;

   ag:=(ang)*pi/180;
   a:=a-30;
   p[5,1]:=x+round(a*cos(ag));
   p[5,2]:=y+round(a*sin(ag));
   ag:=ag+pi;
   p[6,1]:=x+round(a*cos(ag));
   p[6,2]:=y+round(a*sin(ag));

  moveto(p[1,1],p[1,2]);lineto(p[2,1],p[2,2]);
  moveto(p[3,1],p[3,2]);lineto(p[4,1],p[4,2]);
  moveto(p[5,1],p[5,2]);lineto(p[6,1],p[6,2]);

 { circle(x,y,10);   for i:=1 to 4 do   circle(p[i,1],p[i,2],20);}

 end;

begin
 driver:=detect;
 initgraph(driver,mode,'');
 h(300,200,white,45);
 readln;
 closegraph;
end.

Здесь 45 - это угол. Допиши в цикле его изменение и получишь вращение

[radon228]

спасибо большое,но не понял по поводу цикла.

Здесь 45 - это угол. Допиши в цикле его изменение и получишь вращение

[Stilet]

h(300,200,white,45); - процедура отрисовывающая Н в координатах 300,200 белым цветом, повернутую на 45 градусов. В цикле изменяй последний параметр и получишь вращение (и отрисовку цветом прикрути, ато я наверное забыл)

[radon228]

а ты можешь показать как это делать? что-то трудновато...

что такое round и double? и как сделать чтобы клавишами управления поворачивать фигуру вокруг своей оси?

[Stilet]

А вот ты почитай про Repeat-unil потом про KeyPressed, и про параметры-переменные в Паскале

что такое round и double

Double Это вещественные числа
Round это округление

Читай внимательно эту тему:
http://www.programmersforum.ru/showthread.php?t=51422
Изучи примеры в ней.

[radon228]

спасибо)я просто с паскалем мало дружу,и для меня это сложно,если тебе не трудно,сделай пожалуйста. я тебя очень прошу.

[Stilet]

Я уже домой ухожу, так что посмотри внимательно ссылку и попробуй оттуда прикрутить себе Repeat-until