Question

Пожалуйста, ребят, вы же гении информатики!нужно написать программу в QBASIC , которая нарисует звездное небо из 500 звезд (разноцветными точками)!

Answer 1

SCREEN 12
RANDOMIZE TIMER
FOR I = 1 TO 500
x = INT(RND * 639) + 1
y = INT(RND * 479) + 1
c = INT(RND * 15) + 1
PSET (x, y), c
NEXT I
END