простая задача на Qbasic.

[hypopatamus]

проблема такая-нужно построить n-угольник вписанный в круг., чтобы пользователь вводил точку середины окуружгости,ее радиус и числo n(то есть углов.!). Помогите плизз!

[Marik]

hypopatamus

А как бы ты такую задачу решал?

[NightWolF]

hypopatamus

Хрена себе простенькая Эт 1 задача с олимпиады по информатке в 2001 году.

[tank-pro]

АХ hypopatamus ........ так ни кто ине решил?

[hypopatamus]

tank-pro

да вообще....

[DEAD]

hypopatamus

скинь мне Байсик на leyferata_собака_ya.ru

[DEAD]

вот ваша олимпиада в 26 строк

 

DIM X(361)

DIM Y(361)

INPUT "KOORDITATA CENTRA PO OSI -x- ", A

INPUT "KOORDINATA CENTRA PO OSI-y- ", B

INPUT "RADIUS OKRUGNOSTI ", R

INPUT "KOLICHESTVO UGLOV ", N

SCREEN 12

CIRCLE (A, , R

POR = 0

FOR ALFA = 0 TO 360

UGOL = ALFA * (3.14159 / 180)

X = (R * COS(UGOL)) + A

Y = (R * SIN(UGOL)) + B

X(POR) = X

Y(POR) = Y

POR = POR + 1

NEXT ALFA

X1 = A + R

Y1 = B

FOR In = 0 TO 360 STEP (360 / N)

X = X(In)

Y = Y(In)

LINE (X1, Y1)-(X, Y)

X1 = X

Y1 = Y

NEXT In

[DEAD]

что-то сторок много для олимпиады, да еще 2001 года

дамаую, так по лучше будет....

 

INPUT "KOORDITATA CENTRA PO OSI -x- ", A

INPUT "KOORDINATA CENTRA PO OSI-y- ", B

INPUT "RADIUS OKRUGNOSTI ", R

INPUT "KOLICHESTVO UGLOV ", n

SCREEN 12

CIRCLE (A, , R

x1 = A + R

y1 = B

FOR ALFA = 0 TO 360 STEP (360 / n)

UGOL = ALFA * (3.14159 / 180)

x = (R * COS(UGOL)) + A

y = (R * SIN(UGOL)) + B

LINE (x1, y1)-(x, y)

x1 = x

y1 = y

NEXT ALFA

[NightWolF]

DEAD

 

SCREEN 12

 

Вспомнил команду - ностальгия ))

 

И еще это:

x = (R * COS(UGOL)) + A

y = (R * SIN(UGOL)) + B

LINE (x1, y1)-(x, y)

 

Эээээххх... Молодость на АГАТ-9 )

 

На кувасике был оператор circle