• Предмет: Информатика
  • Автор: ShadyNastya
  • Вопрос задан 2 года назад

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

Ответы

Ответ дал: PsyhoAssasin
5

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

 

 

 

Похожие вопросы