Главная страница
    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.011 c
1-1140011439
Spieler
2006-02-15 16:50
2006.03.19
Служба + форма


1-1140182772
lis1985
2006-02-17 16:26
2006.03.19
Динамические звенья


2-1141026942
apl
2006-02-27 10:55
2006.03.19
Про отчеты


3-1138472788
H010d Freeze
2006-01-28 21:26
2006.03.19
Эксклюзивное соединение через ADO


2-1141544280
NSK3D
2006-03-05 10:38
2006.03.19
Ошибка сохранения





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский