Forth и другие саморасширяющиеся системы программирования Locations of visitors to this page
Текущее время: Пт сен 21, 2018 07:59

...
Google Search
Forth-FAQ Spy Grafic

Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Ответить на тему  [ Сообщений: 36 ]  На страницу 1, 2, 3  След.
Автор Сообщение
 Заголовок сообщения: С НОВЫМ ГОДОМ!
СообщениеДобавлено: Ср дек 31, 2008 09:12 
Не в сети
Administrator
Administrator
Аватара пользователя

Зарегистрирован: Вт май 02, 2006 13:19
Сообщения: 3565
Откуда: St.Petersburg
Благодарил (а): 4 раз.
Поблагодарили: 72 раз.
S" С НОВЫМ 2009 ГОДОМ!" TYPE

_________________
С уважением, WingLion
Forth-CPU . RuF09WE
Мой Форт
Отсутствие бана это не заслуга юзера, а недоработка модератора (с)


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Ср дек 31, 2008 09:28 
Не в сети
Аватара пользователя

Зарегистрирован: Чт май 18, 2006 08:55
Сообщения: 30
Откуда: Мелмак, Гидра Кентавра
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
." И Вам здоровья, счастья, удачи!"


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Ср дек 31, 2008 11:04 
Не в сети

Зарегистрирован: Сб май 06, 2006 12:01
Сообщения: 959
Откуда: Украина, Харьков
Благодарил (а): 2 раз.
Поблагодарили: 7 раз.
.( и удачных интересных разработок, которые дают не только удовольствие, но и хорошее вознаграждение!) CR

_________________
With best wishes, in4.


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Ср дек 31, 2008 11:33 
Не в сети

Зарегистрирован: Вт май 09, 2006 12:31
Сообщения: 3438
Благодарил (а): 5 раз.
Поблагодарили: 16 раз.
и постоянства в осуществлении

_________________
понимаю некоторую бестолковость некоторых вопросов


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Ср дек 31, 2008 13:30 
\ Да сопутствует Вам Фортуна!


Вернуться к началу
  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Ср дек 31, 2008 14:09 
Не в сети
Аватара пользователя

Зарегистрирован: Вс май 07, 2006 11:38
Сообщения: 279
Откуда: Slavyansk, Ukraine
Благодарил (а): 0 раз.
Поблагодарили: 0 раз.
ФОРТуна с нами!!!

С НАСТУПАЮЩИМ ВСЕХ!!!

_________________
Банзай!


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Ср дек 31, 2008 14:47 
Не в сети

Зарегистрирован: Пн ноя 05, 2007 13:54
Сообщения: 135
Благодарил (а): 0 раз.
Поблагодарили: 11 раз.
0 [if] С праздником, дорогие любители Форта! [then]


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Ср дек 31, 2008 16:02 
Не в сети
Administrator
Administrator
Аватара пользователя

Зарегистрирован: Вт май 02, 2006 22:48
Сообщения: 6405
Благодарил (а): 14 раз.
Поблагодарили: 100 раз.
Код:
VARIABLE RND
: RANDOM // - X
  RND @ 69069 * 31415 + 278720333 MOD DUP RND !
;

30 CONSTANT КАЖДАЯ

CREATE СНЕЖИНКИ[] КАЖДАЯ 2 * CELLS ALLOT

{   КАЖДАЯ 0 DO
    RANDOM ABS 80 MOD СНЕЖИНКИ[] I 2 * -TH !
    RANDOM ABS 30 MOD СНЕЖИНКИ[] I 2 * -TH 4 + !
  LOOP
}

: СНЕЖИНКИ-ВНИЗ
  КАЖДАЯ 0 DO
    1 СНЕЖИНКИ[] I 2 * -TH 4 + +!
    СНЕЖИНКИ[] I 2 * -TH 4 + @ 30 >
    IF RANDOM ABS 80 MOD СНЕЖИНКИ[] I 2 * -TH !
        0 СНЕЖИНКИ[] I 2 * -TH 4 + !
    THEN
  LOOP
;

: СНЕЖИНКИ-РИСОВАТЬ
  0xFFFFFF SETCOLOR
  КАЖДАЯ 0 DO
    СНЕЖИНКИ[] I 2 * -TH @
    СНЕЖИНКИ[] I 2 * -TH 4 + @ GOTOXY " *" PRINT
  LOOP
  0x00FF00 SETCOLOR 30 10 GOTOXY " С НОВЫМ ГОДОМ!!!" PRINT
;

: С_НОВЫМ_ГОДОМ!
  CLS
  СНЕЖИНКИ-ВНИЗ
  СНЕЖИНКИ-РИСОВАТЬ
;

200 TIMER_INTERVAL !
USE С_НОВЫМ_ГОДОМ! AS <TIMER> 


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Ср дек 31, 2008 17:28 
Не в сети
Administrator
Administrator
Аватара пользователя

Зарегистрирован: Вт май 02, 2006 13:19
Сообщения: 3565
Откуда: St.Petersburg
Благодарил (а): 4 раз.
Поблагодарили: 72 раз.
кварковая плазма? ;)

_________________
С уважением, WingLion
Forth-CPU . RuF09WE
Мой Форт
Отсутствие бана это не заслуга юзера, а недоработка модератора (с)


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Ср дек 31, 2008 17:38 
Не в сети
Administrator
Administrator
Аватара пользователя

Зарегистрирован: Вт май 02, 2006 22:48
Сообщения: 6405
Благодарил (а): 14 раз.
Поблагодарили: 100 раз.
Снежинки падают :)


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Ср дек 31, 2008 18:28 
Не в сети
Аватара пользователя

Зарегистрирован: Пт окт 20, 2006 00:14
Сообщения: 27
Откуда: Volgograd
Благодарил (а): 6 раз.
Поблагодарили: 0 раз.
Поздравляю с Новым 2009 Годом!


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Ср дек 31, 2008 19:21 
Не в сети
Moderator
Moderator
Аватара пользователя

Зарегистрирован: Чт май 04, 2006 00:53
Сообщения: 4947
Откуда: был Крым, теперь Новосибирск
Благодарил (а): 18 раз.
Поблагодарили: 56 раз.
Ну, и ЗДОРОВЬЯ КРЕПКОГО всем, и обязательно членам семьи, особенно маленьким!

_________________
Мне бы только мой крошечный вклад внести,
За короткую жизнь сплести
Хотя бы ниточку шёлка.
fleur


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Ср дек 31, 2008 20:48 
Не в сети
Аватара пользователя

Зарегистрирован: Вт мар 20, 2007 23:39
Сообщения: 1255
Благодарил (а): 3 раз.
Поблагодарили: 17 раз.
С новым годом! Урра! :)

_________________
Cтоимость сопровождения программного обеспечения пропорциональна квадрату творческих способностей программиста.
Роберт Д. Блисc


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Ср дек 31, 2008 21:02 
Не в сети
Аватара пользователя

Зарегистрирован: Пт дек 26, 2008 21:16
Сообщения: 407
Откуда: Великий Новгород
Благодарил (а): 9 раз.
Поблагодарили: 3 раз.
Всех С НОВЫМ ГОДОМ!!!!
Удачи Счастья и Радости!!!


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
 Заголовок сообщения:
СообщениеДобавлено: Вт янв 13, 2009 14:51 
Не в сети

Зарегистрирован: Ср сен 13, 2006 10:06
Сообщения: 636
Откуда: Омск
Благодарил (а): 0 раз.
Поблагодарили: 3 раз.
Всех с праздником "СТАРЫМ НОВЫМ ГОДОМ!".

P.S. Рождество по старому стилю встречаем, значит и новый год встретим!

_________________
Меня нет, не будет и не было.


Вернуться к началу
 Профиль Отправить личное сообщение  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 36 ]  На страницу 1, 2, 3  След.

Часовой пояс: UTC + 3 часа [ Летнее время ]


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4


Вы не можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
phpBB сборка от FladeX // Русская поддержка phpBB