Вопрос № 19509: Помогите пож. QBasic - как сделать секторную диаграму ? Для основы есть семь действительных чисел их надо представить в виде секторной диаграмы. Принимаются любые ответы !!!!
Заранее спасибо !...
Вопрос № 19509
Помогите пож. QBasic - как сделать секторную диаграму ? Для основы есть семь действительных чисел их надо представить в виде секторной диаграмы. Принимаются любые ответы !!!!
Заранее спасибо !
Отправлен: 11.04.2005, 10:55
Вопрос задал: Sniffer (статус: Студент)
Всего ответов отправлено: 1
Отвечает: DSota
Здравствуйте, Sniffer!
DIM x(7) AS DOUBLE
x(1) = 1
x(2) = 2
x(3) = 2
x(4) = 2
x(5) = 2
x(6) = 2
x(7) = 7
DIM sum AS DOUBLE
FOR i = 1 TO 7
sum = sum + x(i)
NEXT i
sum = 6.28 / sum
SCREEN 2
DIM angle AS DOUBLE
FOR i = 1 TO 7
for j=1 to 50
CIRCLE (100 , 100), j, i, angle, angle + x(i) * sum
next j
angle = angle + x(i) * sum
NEXT i
Ответ отправил: DSota (статус: Студент)
Отправлен: 11.04.2005, 11:52 Оценка за ответ: 5 Комментарий оценки: Только пришлось сменить Screen 2 на Screen 12