Перемещение пера в GraphABC

@vintpirat · Регистрация: 16.01.2011

Студворк — интернет-сервис помощи студентам

Здравствуйте. У меня задача нарисовать деталь в виде кольца с отверстиями. Центры всех отверстий находятся на одинаковом расстоянии от центра детали. Число отверстий вводится с клавиатуры.
Я эту задачу хочу решить через цикл.
Ну где-то так
for i=1 to n do
begin
circle(200,100,30);
А потом надо сделать так, чтобы каждый раз курсор перемещался по окружности.
end;

Подскажите, как это сделать, и возможно ли вообще.

@Puporev · 16.01.2011, 15:49

Сообщение от vintpirat

каждый раз курсор перемещался по окружности.

Какой курсор и зачем????

@vintpirat · 16.01.2011, 15:52 **[ТС]**

Курсор всмысле положение пера. Это надо для того, чтобы в цикле перо перемещалось так, как надо)
Если использовать MoveTo или MoveRel, то каждый раз перо будет перемещаться вдоль одной линии, а мне это не надо.

@Puporev · 16.01.2011, 16:03

Что-то в этом духе?

Pascal

uses crt,graphABC;
var xc,yc,r1,r2,rc,ro,n,i,x,y:integer;
    a:real;
begin
write('Количество отверстий n=');
read(n);
clrscr;
hidecursor;
xc:=windowwidth div 2;
yc:=windowheight div 2;
r1:=150;
r2:=200;
rc:=175;
ro:=10;
a:=2*pi/n;
circle(xc,yc,r1);
circle(xc,yc,r2);
for i:=1 to n do
 begin
  x:=xc+round(rc*cos(a*i));
  y:=yc-round(rc*sin(a*i));
  circle(x,y,ro);
 end;
end.

@vintpirat · 16.01.2011, 16:07 **[ТС]**

Да! Спасибо!

@Puporev · 16.01.2011, 16:09

Переставь местами

Pascal

1 2	circle(xc,yc,r1); circle(xc,yc,r2);

а то второй затирает первый...

@vintpirat 0 / 0 / 0 Регистрация: 16.01.2011 Сообщений: 5
		1
	Перемещение пера в GraphABC 16.01.2011, 15:18. Показов 4603. Ответов 5 Метки нет (Все метки) Здравствуйте. У меня задача нарисовать деталь в виде кольца с отверстиями. Центры всех отверстий находятся на одинаковом расстоянии от центра детали. Число отверстий вводится с клавиатуры. Я эту задачу хочу решить через цикл. Ну где-то так for i=1 to n do begin circle(200,100,30); А потом надо сделать так, чтобы каждый раз курсор перемещался по окружности. end; Подскажите, как это сделать, и возможно ли вообще. 0

@Puporev Почетный модератор 64288 / 47587 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	16.01.2011, 15:49	2
	Сообщение от vintpirat каждый раз курсор перемещался по окружности. Какой курсор и зачем???? 0

@vintpirat 0 / 0 / 0 Регистрация: 16.01.2011 Сообщений: 5
	16.01.2011, 15:52 [ТС]	3
	Курсор всмысле положение пера. Это надо для того, чтобы в цикле перо перемещалось так, как надо) Если использовать MoveTo или MoveRel, то каждый раз перо будет перемещаться вдоль одной линии, а мне это не надо. 0

@vintpirat 0 / 0 / 0 Регистрация: 16.01.2011 Сообщений: 5
	16.01.2011, 16:07 [ТС]	5
	Да! Спасибо! 0

Опции темы