Изобразите взрыв сверхновой звезды (если это задание делать по-простому, то понадобится четыре оператора цикла, можно сложнее — но и короче). Сделайте лучи во всех четырех случаях разного цвета — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
SCREEN 12
CONST Pi = 3.14159265358#, Gr = Pi / 180
LINE (0, 0)-(639, 479), 15, BF
FOR Ug = 0 TO 360 STEP 9
  LINE (320, 240)-(320 + COS(Ug * Gr) * 390, 240 - SIN(Ug * Gr) * 390), 0
NEXT
DO: LOOP UNTIL INKEY$ <> ""
FOR Ug = 0 TO 360 STEP .6
  LINE (320, 240)-(320 + COS(Ug * Gr) * 390, 240 - SIN(Ug * Gr) * 390), 7
NEXT
FOR Ug = 0 TO 360 STEP 3
  LINE (320, 240)-(320 + COS(Ug * Gr) * 390, 240 - SIN(Ug * Gr) * 390), 8
NEXT
FOR Ug = 1 TO 361 STEP .7
  LINE (320, 240)-(320 + COS(Ug * Gr) * 390, 240 - SIN(Ug * Gr) * 390), 0
NEXT

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment