Сформировать секундную стрелку часов в движении

@zaqxswcde · Регистрация: 14.05.2012

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

Задача 1.
Построить п-угольник с заданными координатами вершин (координаты вершин вводятся с клавиатуры).
Задача 2.
Сформировать секундную стрелку часов в движении.

@PAnT0P · 22.05.2012, 12:25

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

Задача 2.
Сформировать секундную стрелку часов в движении.

QBasic/QuickBASIC

CLS
SCREEN 12
K = 3.14 / 180
R = 200
CIRCLE (320, 240), R+10, 14
DO WHILE INKEY$ = ""
    A = INT((TIMER - 15) MOD 60) * 6
    LINE (320, 240)-(320 + X, 240 + Y), 0
    X = R * COS(A * K)
    Y = R * SIN(A * K)
    LINE (320, 240)-(320 + X, 240 + Y), 14
    SLEEP 1
LOOP

@zaqxswcde · 22.05.2012, 16:30 **[ТС]**

спасибо огромное )) могли бы помочь с 1 задачей??)) буду очень признателен...

@Quiet Snow · 22.05.2012, 19:05

1.

QBasic/QuickBASIC

TYPE Vertex2D
 x AS INTEGER
 y AS INTEGER
END TYPE
CLS
  INPUT "Vertices : ", n
    ON ERROR GOTO PrgEr
    DIM Vtx(n) AS Vertex2D
    ON ERROR GOTO 0
  FOR i = 1 TO n
    INPUT "  Vvedite X (0-639) : ", Vtx(i).x
    INPUT "  Vvedite Y (0-479) : ", Vtx(i).y
    PRINT STRING$(80, 196)
  NEXT
SCREEN 12
  COLOR 10
  FOR i = 1 TO n - 1
     LINE (Vtx(i).x, Vtx(i).y)-(Vtx(i + 1).x, Vtx(i + 1).y)
  NEXT
  LINE (Vtx(1).x, Vtx(1).y)-(Vtx(n).x, Vtx(n).y)
WHILE INKEY$ = "": WEND
PrgEr: END

@zaqxswcde · 23.05.2012, 00:26 **[ТС]**

спасибо))))

@zaqxswcde 0 / 0 / 0 Регистрация: 14.05.2012 Сообщений: 19
		1
	Сформировать секундную стрелку часов в движении 22.05.2012, 11:17. Показов 1191. Ответов 4 Метки нет (Все метки) Задача 1. Построить п-угольник с заданными координатами вершин (координаты вершин вводятся с клавиатуры). Задача 2. Сформировать секундную стрелку часов в движении. 0

@zaqxswcde 0 / 0 / 0 Регистрация: 14.05.2012 Сообщений: 19
	22.05.2012, 16:30 [ТС]	3
	спасибо огромное )) могли бы помочь с 1 задачей??)) буду очень признателен... 0

@zaqxswcde 0 / 0 / 0 Регистрация: 14.05.2012 Сообщений: 19
	23.05.2012, 00:26 [ТС]	5
	спасибо)))) 0

Опции темы