Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2006.03.19;
Скачать: [xml.tar.bz2];

Вниз

Посмотрите что я творил ;)   Найти похожие ветки 

 
DillerXX ©   (2006-02-26 00:38) [0]

.. на Qbasic"e. Это графические программы, рисующие на экране разные замысловатые (а порой даже очень) фигуры, траектории, и хрен знает что ещё. Некоторые как мне кажется достойны почёта ;) по крайней мере мне многие так говорили. Случайно вспомнил только что, и решил выложить.. писал я это когда мне было.. хм, не знаю сколько, но что такой синус-косинус-экспонента я явно не знал, но я их использовал :) что из этого вышло можете сами понаблюдать. Архив с сорцами и компилятором кувасика: http://dillerxx.newmail.ru/qbasic.rar


 
DillerXX ©   (2006-02-26 00:40) [1]

Забывал добавить - программы серии ROCKET* и SIN_EXP* как мне кажется могли составить лишь профессора МГУ по глубокой укурке :) попробуйте объясните мне как они работают :))


 
Real ©   (2006-02-26 01:08) [2]

нихрена что-то не грузится... хостер видать модный :)


 
Real ©   (2006-02-26 01:19) [3]

прошло 10 минут - ни ошибок, ни таймаутов.... просто что-то грузится, но результат нулевой... смени хост. Кстати, на ньюмэйле (это же кажись из серии хотбокс, писем нет и т.д.) - хостинг просто отвратительный. Мой сайт вообще закрыли, когда траффик по загрузке начал расти в их понятии видать сильно


 
TUser ©   (2006-02-26 09:17) [4]

Да не - грузится все.


 
Vlad Oshin ©   (2006-02-26 10:58) [5]

ф-ла эллипсоподобных фигур
x=sin(бла_бла)
y=cos(ля_ля)
вот и вся фишка


 
DillerXX ©   (2006-02-26 13:20) [6]


> ф-ла эллипсоподобных фигур
> x=sin(бла_бла)
> y=cos(ля_ля)
> вот и вся фишка

это де?


 
Vlad Oshin ©   (2006-02-26 13:49) [7]

q = ((a - s) * SIN(f)) + COS(-t) * 150
e = ((a - s) * COS(f)) + SIN(-t) * 150
PSET (f * (q / f) * 1.5 + 350, e * 1.5 + 240), w

q = (COS(t * (f / 2)) * SIN(w)) * 150
e = (SIN(t * (f / 2)) * COS(w)) * 150
PSET (w * (q / f) * 1.5 + 350, e * 1.5 + 240), w

q = (SIN(t * (f / 2)) / COS(-t)) * 40
e = (COS(t * (f / 2)) / SIN(-t)) * 40
PSET (f * (q / f) * 1.5 + 350, e * 1.5 + 240), w

w = INT(RND(1) * 14 + 1)
q = (SIN(t * (f / 2)) / COS(-t)) * 40
e = (COS(t * (f / 2)) * SIN(-t)) * 40
PSET (f * (q / f) * 1.5 + 350, e * 1.5 + 240), w

IF a MOD s = a / s THEN q = e
w = INT(RND(1) * 14 + 1)
q = (SIN(t * (a + s)) * COS(-t)) * 150
e = (COS(t * (a - s)) * SIN(-t)) * 150
PSET (f * (q / f) * 1.5 + 350, e * 1.5 + 240), w

w = INT(RND(1) * 14 + 1)
q = (SIN(t * (f / 2)) + COS(-t) / SIN(-w) * EXP(t)) * 40
e = (COS(t * (f / 2)) - SIN(-t) / COS(-w) * EXP(t)) * 40
PSET (f * (q / f) * 1.5 + 350, e * 1.5 + 240), w

вот наообум из того архива
ну и т.д.


 
Думкин ©   (2006-02-26 14:09) [8]

Ну если после укурки и под столом и у них ноги двигались - согласен.


 
DillerXX ©   (2006-02-26 16:52) [9]

Не ну мне кажется ROCKET.bas просто шедевр :) Его надо распечатать и на стенку повесить ;)


 
panov ©   (2006-02-26 17:06) [10]

Удалено модератором


 
Pazitron_Brain ©   (2006-02-26 18:40) [11]

Могу выделить немного места на своем сайте... Все равно простаивает...


 
Real ©   (2006-02-26 23:58) [12]


> Pazitron_Brain ©   (26.02.06 18:40) [11]
> Могу выделить немного места на своем сайте... Все равно
> простаивает...


Так твой сайт на народе.ру Во-первых, проще там самому зарегестрировать, чем создавать лишнее звено в публикации материала, а во-вторых - народ.ру - хостер, не намного лучше чем ньюмэйл


 
Defunct ©   (2006-02-27 00:47) [13]

panov ©   (26.02.06 17:06) [10]
Удалено модератором


:)


 
Kerk ©   (2006-02-27 00:52) [14]

Real ©   (26.02.06 23:58) [12]

У Пазитроныча хороший платный хостинг.


 
имя   (2006-02-27 01:02) [15]

Удалено модератором



Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2006.03.19;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.47 MB
Время: 0.012 c
9-1126538054
WonderfulDay
2005-09-12 19:14
2006.03.19
запаковать растры


15-1140637091
Некто
2006-02-22 22:38
2006.03.19
Перепрошил БИОС материнской платы. Теперь проблема.


11-1122494631
feens
2005-07-28 00:03
2006.03.19
RegisterHotKey (KOL)


11-1121750231
hunn
2005-07-19 09:17
2006.03.19
Работа с событиями в KOLEcmListEdit


6-1134137180
skiermax
2005-12-09 17:06
2006.03.19
Exchange Server 2000&MAPI





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский