Black_Lung Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код:   dim x(15,59) for i=0 to 15 for j=0 to 59 x(i,j)=0 next next   x(0,1)=1 x(0,3)=1   for i=1 to 15 for c=1 to 10 for j=1 to 59 if x(i-1,j)=1 then x(i,j)=x(i,j) xor x(i-1,j)     if x(i,j)=0 then     k=j     do while x(i,k)=0     k=k+1     x(i,k)=x(i,k) xor 1     loop     end if else x(i,j)=x(i,j) or 0 end if next next s="" For j=0 to 59 s=x(i,j)&s next wscript.echo s next   Всего записей: 275 | Зарегистр. 09-10-2008 | Отправлено: 11:27 03-04-2012

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование