Перейти к содержанию

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


hypopatamus

Рекомендуемые сообщения

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

Ссылка на комментарий
Поделиться на другие сайты

вот ваша олимпиада в 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, B), 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

Ссылка на комментарий
Поделиться на другие сайты

что-то сторок много для олимпиады, да еще 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, B), 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

Ссылка на комментарий
Поделиться на другие сайты

DEAD

 

SCREEN 12

 

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

 

И еще это:

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

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

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

 

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

 

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

Ссылка на комментарий
Поделиться на другие сайты

Заархивировано

Эта тема находится в архиве и закрыта для дальнейших ответов.

×
×
  • Создать...