10 DIM A%(5)
20 FOR I%=1 TO 500
30 N%=ABS(MOD(RND(0),5)):A%(N%)=A%(N%)+1
40 NEXT I%
50 PRINT A%(0): PRINT A%(1): PRINT A%(2): PRINT A%(3): PRINT A%(4): STOP

Результата рандома и правда верны.

XakepPRO, О, примерно такой же кусок кода и у меня лежит где-то я тестил им генератор.

Моя первая программа она выводит на экран любое слово, любого цвета, и любых координат.

Poseydon (05.03.2011/20:51) Моя первая программа она выводит на экран любое слово, любого цвета, и любых координат. [code] 1 cls 2 input "Write word:",s$ 3 input "X:",x%:input "Y:",y% 4 input "R:",r%:"G:",g%:"B:",b% 5 cls тут вроде ошибка есть: перед "G:",g% надо поставить input и перед "B:",b% тоже

эд я так сокращаю а то здесь писать долго

Poseydon (08.03.2011/13:41) эд я так сокращаю а то здесь писать долго Неправильно ты сокращаешь..

я про сокращение на сайте

Щас на яве мучаю градиенты, решил портануть на бэйс,мож кому пригодятся, можно исполэзовать для меню, файл-менов или просто как фон, поэксперементируйте с цветом и кардинатоми, экономим ресы! zip поменяйте на bas
http://waper.ru/file/1639725/download/15f1a52f1304dbbfc42/grad.zip

напишите мне програмку движение человека, вот картинка нада нарезать, для игры, кто хочет помочь?

limil, я тебе помогу. завтра код вышлю