Пожалуйста, ребят, вы же гении информатики!нужно написать программу в QBASIC , которая нарисует звездное небо из 500 звезд (разноцветными точками)!
SCREEN 12RANDOMIZE TIMERFOR I = 1 TO 500 x = INT(RND * 639) + 1 y = INT(RND * 479) + 1 c = INT(RND * 15) + 1 PSET (x, y), cNEXT IEND
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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