Перейти к содержимому


Фотография
- - - - -

BeerDrinker v0.5L


21 ответов в этой теме

#1 GlebVt

GlebVt

    нервное чучело

  • True Members
  • PipPipPipPipPip
  • 6 290 сообщений
69
Хороший
  • Пол:Мужчина

Опубликовано 17 Апрель 2006 - 00:28

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

#include <iostream.h>
#include <dos.h>

#define sip sleep

int Drink(int (*TAS)(float *), float *b){
	while(!TAS(b));
	return -1;
}

int TakeASip(float *V){
	if(*V > 0){
		  *V -=0.2;
		  sip(1);
		  cout << "glotok )" << endl;
		  return 0;
	}
	return -1;
}

int main(){
	float * BeerV = new float;
	cout << "Skol'ko piva?" << endl;
	cin >> *BeerV;
	if(Drink(TakeASip, BeerV))
			cout << "Konchilos' ((((" << endl;
	sleep(1);
	delete BeerV;
	return 0;
}

это в принципе можно и в 10 строк уложить(даже в 5))), но ничо так смотрится, да? ))))
неплохо загнул?

ЗЫ Тема ни о чем....

ЗЫЫ если кто захочет скомпилить:
борланд скомпилит и так, а вот, допустим Dev-cpp надо такую тему:
после инклудов написать using namespace std
#include <iostream.h> заменить на #include <iostream>
sleep заменить на какую-нибудь похожую функцию
  • 0

#2 chich

chich

    Super True Member

  • True Members
  • PipPipPipPipPip
  • 410 сообщений
0
Обычный
  • Пол:Мужчина

Опубликовано 17 Апрель 2006 - 12:16

а как это всё должно было выглядеть? :) я них*я не понял :blink:
  • 0
о_0

#3 Damon

Damon

    Ваше название статуса

  • True Members
  • PipPipPipPipPip
  • 3 320 сообщений
0
Обычный
  • Пол:Мужчина
  • Город:77.244.212.***
  • Интересы:Проверить длину

Опубликовано 17 Апрель 2006 - 15:15

аррр я кроме паксаля ничего не знаю :) так что ждём файнал вершион ;)
  • 0
=)

#4 Igor Diakonov

Igor Diakonov

    Super True Member

  • Admin
  • PipPipPipPipPip
  • 10 190 сообщений
224
Очень хороший
  • Пол:Мужчина
  • Город:SPB

Опубликовано 17 Апрель 2006 - 15:42

#!/usr/bin/perl
use IO::Drink
use beer;

while (alive) {
drink(beer);
}
  • 0

#5 VANDAL

VANDAL

    Nice

  • True Members
  • PipPipPipPipPip
  • 555 сообщений
0
Обычный
  • Пол:Мужчина

Опубликовано 17 Апрель 2006 - 20:29

#!/usr/bin/perl
use IO::Drink
use beer;

while (alive) {
drink(beer);
}

:megalol:
  • 0
Размещенное изображение

Размещенное изображение

Завтра будет.
Лучше.

#6 Lusha

Lusha

    Super True Member

  • True Members
  • PipPipPipPipPip
  • 243 сообщений
0
Обычный
  • Интересы:Спрашивай!

Опубликовано 17 Апрель 2006 - 20:57

while (Beer.exist() || (friends.money > 0)){
for(int i = 0; i < friends.NUMBER;i++){
friends.person[i].drink(pint)
}
}
;) ето ЖаВа

Сообщение изменено: Lusha, 17 Апрель 2006 - 20:58.

  • 0

#7 BrONtOSAUR

BrONtOSAUR

    Linux-gamer

  • True Members
  • PipPipPipPipPip
  • 1 607 сообщений
0
Обычный
  • Пол:Мужчина
  • Город:Ленинград, Кирза
  • Интересы:Компы, игры, Интернет, всё что связано с этим

Опубликовано 08 Июнь 2006 - 17:12

Весёлая прога, я скомпилил.



Тока мож пояснить, я C++ чуток знаю, но не разбираюсь в указателях.
  • 0
System #1: Debian GNU/Linux Squeeze/Sid + kernel 2.6.31.4 + gcc 4.3 + X.org 7.3 + KDE 3.5.9
System #2: Windows 7 x86 Ultimate
Сказал думер: IDCLIP... и застрял в стене
Я в контакте

#8 zadira

zadira

    Super True Member

  • True Members
  • PipPipPipPipPip
  • 3 274 сообщений
-1
Обычный
  • Пол:Мужчина

Опубликовано 08 Июнь 2006 - 18:01

1001 10 101011
101
10101010 10101 0 0101
10101101111010101010
101101011 1101
011010101 010 0 1010 1101


эт я так..... разговор поддержать.
  • 0


#9 Igor Diakonov

Igor Diakonov

    Super True Member

  • Admin
  • PipPipPipPipPip
  • 10 190 сообщений
224
Очень хороший
  • Пол:Мужчина
  • Город:SPB

Опубликовано 08 Июнь 2006 - 19:35

6У5ы┐ZPҐ╟&їAyк1÷уMh╔#ґM╟%зу╒√╘Аl░КY/UnЄч╘+)ШГ╩B▒l9(ЮпУ²дi▀ЪDм' ╗Jьж┌╠Г7Vэ%c[╠а9┼-█еzhЬAbЩиЪзх^≤⌠ew┘а╝pJ≤┤ЮL%z^╔J╦{(ёn)eKз`╗YANс┘|,.>І4Eц%ZЮМ▓?П└яіаэЫ╒7н\╒HЙ║/д╩╟рiьyс+)≈iоY█шtHш~╟╝┘oеь:(gєОєkfСY[²яOaQ┬и&~╣(Ь┴▒⌠~ъX├1r└}╚├╡0╦_~•ФзЮГё`$cuJнYг╣6X╣▒%e>{юй╧└bхаSн┌ШIшbR▓xIIWгx'┬²
ґ┼MIhвP+·б^╞Вe╩єМ┤ЮT+@vнVҐGъЇРtХС≈8b~*M\\мґ╞?Z|▒QюgPщ╬*Ё▌о╔>▌²Я_g©zTоfІ};⌡╘t╧J0╧zЄ|р%ґ╒Еq└╝R²чЛШ •╬}
Т4÷╣Э{ еo┐^(-O~│√пgх╚яQЯ╗≈FDц[╡Уoл3ЖУq▐║┤ххS7jbбBЄ≤╨┤°А?┌JьA╡5H┌Ь%ЗD {1╚Мw]=÷^б{мУ°ту?╚P%ґT■╡-ПШ─j√╗+a·nMґ▒≥Ое┼гm.mВШD-lvДzА~{╦кXчyрм╪ЬЭ╣▄єЁ÷РиfmШ╙И*-XОM`>PУr( Ю]©ъ.z█ЙБчrЇ[≈ACG╘▌эCsСЪtЧМN`░Б▓▄╘,eИhP≥хW{Ь©х|`U•┌G≥Л÷╧3>▒";L&Єnч&dыDe\
СAх)L#╨у─I?Ь█└kыО▒2]Э║Я[~OQ%√ыЖn+╧QBQРу ▄І})o²Шо*┴E2▐"cL?K┘Ё9rоMЮ_L'З\ло*хЛ3┴$єгЭк▀nЪ║▌ЩіК▓╧┼яЩ?\Y▀ц>О░╚I⌡≥
О5•QIю╒⌡h6©к>G╦▒║ХПW+3cэбVнUнyОЁоdAV╣!бррі4╘ON6ї2─ЙSНёьУєґlg╧┘┼9╗H}OґщЖ├тJ└pHNА╞─≥╬·╒ГЩц┼4]щ
&ҐvЭв⌠├╝│╗EGy_Ы╝~├╒r≤"e|wєбM5≤у╬Ч
б╬⌠┼нСb*Г⌡X;3Ma]┤┼\\╩ь єd╞n·╝2бВ;|Є╩о%≈n√к⌠1Р#R#чтo⌠▒fk ╣ьFрЫе~
•z>xшT~TД3O≈ПdцYє█╟хґЪ≈АВ#i6Й╪■u Шд<░Хo;в≥>Ц■TdЙXкЙOc=▐adЕV,И╗D▒√D≥u·=
ощ┤SrЯ┘IїЕ °╬l▌•▐V┬i7з'hМ~TеУію_Qю╡░вP╦}▐иgбV-!Э┤Eц²#7░r'жт≤ПЫЮ╞я7"░│уа╙├4╒qGtvy╔oБx·÷і|░8нFuКю⌠еЛ=ажM^·═IНQNз|©┴\"РМЄ┴·МqTхtuO┼6=╛Ки╚k▌юЧy╣е╩┌р╙≥.╧maOЭр LЧЧё┐ФОЦёG═'=яЙiв,Ґdr╣С#C4v╩ЛхБИc@©КVҐ
н┤─5QЦK<K•╘9Т)СV┐┬U1Й+ы?(▌j═J┼іk3■Wл%╡Yn┬`ХТ╞цNєХ©7▀К'гуCпуЧ╧•ґЯНД┐Cq╪Е╗╝KфkоWа!
2Оь7xx■б1f┘v┬p(║ёЫмЮлЙ7Тf╚Z┐L



Эт я так...
cat /dev/urandom ;)
  • 0

#10 Ryo

Ryo

    -=Dante=-

  • True Members
  • PipPipPipPipPip
  • 1 350 сообщений
-10
Обычный
  • Пол:Мужчина
  • Город:Aden World
  • Интересы:Shenmue, Lineage II, Emulation, Dojo

Опубликовано 08 Июнь 2006 - 19:36

А теперь скажите где купить то, что вы курили?
  • 0
Никто не останется девственным - жизнь поимеет всех © Курт Кобейн

#11 Subaru

Subaru

    Sensei.

  • True Members
  • PipPipPipPipPip
  • 2 532 сообщений
0
Обычный
  • Город:Deep Space
  • Интересы:Киберпространственная нейролингвистика.

Опубликовано 08 Июнь 2006 - 19:40

… Алиса никогда не видела такой странной гусеницы.
Гусеница лежала на шляпке огромного гриба, и была просто огромная.
- Добрый день! — промолвила Алиса.
- Кто… Ты… — протяжно произнесла гусеница.
Гусеница курила большую трубку. Выпуская с каждым, словом клубы дыма. Сладкие и мохнатые они поднимались вверх, завиваясь и путаясь сами в себе, уносимые легким теплым ветерком.
«А может мне тоже покурить» — подумала Алиса…
… И больше она не думала не о злобной и гламурной королеве, не о слабохарактерном мазохисте короле, не о мажоре шапочнике с его маргинальным кроликом, не даже об эротичной улыбке старого чеширского педофила… ОНА ВООБЩЕ БОЛЬШЕ НИ О ЧЕМ НЕ ДУМАЛА…
…До самого утра…
…пока не проснулась…
…от нестерпимой головной боли…
…в луже собственной блевотины…
…в однокомнатной квартирке…
…на окраине Салтовского жилмассива…
…Рядом лежал забычкованный в меховом тапке косяк… и книжка «Алиса в зазеркалье», заложенная в самой середине уже ставшим подсыхать куском салями…
- А..Х..ТЬ! — промолвила Алиса, нащупав у себя полное отсутствие груди, член в джинсах и трехдневную щетину.
- блe… завязываю. — в очередной раз клялся он себе…


цопирайт: http://lano4ka-devo4...l.com/1567.html
  • 0

#12 BoNuS

BoNuS

    (A) (E)

  • True Members
  • PipPipPipPipPip
  • 5 257 сообщений
2
Обычный
  • Пол:Мужчина
  • Город:СПб

Опубликовано 08 Июнь 2006 - 19:41

<Uдfеeўсъ_
ъ€Ѓчµ…»бвтсЄїѓ^жЏD%l$јћэdmж[lЯ.ъRrJжЄћ®Oьㄤ4Jз.яSу']Rє•Љз
y*LХ•1™нl~ХЇ„я„ЪчЁжЧЅћгGэГр/ПЬ¤ці(ЌЅ™
,_РdІ<]|S їн!‘­х№ЇU.рЕkШҐц~Ч'Њnф/зhЋҐQ¬­ГьфК§UРyЖR43?Г¶ 7щ›¦ш6@;ШНџ&С№ЅБO"vI(Њч‚дЊ;УЫф$ЁБ:лФY‹# їСBm ­
  • 0
My ftp: ftp://77.244.211.66
Drum and Bass radio: http://77.244.211.66:8000

#13 Ryo

Ryo

    -=Dante=-

  • True Members
  • PipPipPipPipPip
  • 1 350 сообщений
-10
Обычный
  • Пол:Мужчина
  • Город:Aden World
  • Интересы:Shenmue, Lineage II, Emulation, Dojo

Опубликовано 08 Июнь 2006 - 19:43

ОЙНИМАГУ, перенесите этот рассказик в раздел анегдоты :megalol:
  • 0
Никто не останется девственным - жизнь поимеет всех © Курт Кобейн

#14 Subaru

Subaru

    Sensei.

  • True Members
  • PipPipPipPipPip
  • 2 532 сообщений
0
Обычный
  • Город:Deep Space
  • Интересы:Киберпространственная нейролингвистика.

Опубликовано 08 Июнь 2006 - 19:46

Чего, никогда Алису не читали?
Это настольная книга любого ИТ специалиста.
  • 0

#15 GlebVt

GlebVt

    нервное чучело

  • True Members
  • PipPipPipPipPip
  • 6 290 сообщений
69
Хороший
  • Пол:Мужчина

Опубликовано 16 Июнь 2006 - 02:05

2BrONtOSAUR
что бы это дело пояснить, надо выпить примерно столько же, сколько и тогда )) увы денег щас нету что бы столько пить ))
а про указатели можно в любой книжке про си почитать
  • 0

#16 CherryPah

CherryPah

    Штатный IT раздолбай

  • Moderators
  • PipPipPipPipPip
  • 9 761 сообщений
584
Очень хороший
  • Пол:Мужчина

Опубликовано 17 Июнь 2006 - 21:34

namespace eval Beer {
variable beer 1
variable money 1
variable sostoyanie 1
variable time 1
variable friends 1
variable DEBUG 0

proc drink {
set entry [::GetEntry $beer]
if {([string is digit -strict $beer] != 1)} {set drink 1}
if {([string is digit -strict $beer] != 0)} {set drink 0}
return
set entry [::GetEntry $money]
if {([string is digit -strict $money] !> 20)} {set beer 1}
if {([string is digit -strict $money] !< 20)} {set beer 0}
return
set entry [::GetEntry friends$]
if {([string is digit -strict $friends] !> 1)} {set money 20}
if {([string is digit -strict $friends] !< 1)} {set money 0}
return
set entry [::GetEntry sostoyanie$]
if {([string is digit -strict $sostoyanie] !> 1)} {set drink 1}
if {([string is digit -strict $sostoyanie] !< 1)} {set drink 0}
return
set entry [::GetEntry time$]
if {([string is digit -strict $time] !> 23.00)} {set drink 0}
if {([string is digit -strict $time] !< 23.00)} {set drink 1}
return
}

Эта tcl....
  • 0

Вконтакте
Когда я купил коробку с WoW, на ней не было ни слова про теорикрафт и ротацию. Там было сказано: СТАНЬ ГЕРОЕМ, УБЕЙ ДРАКОНА.
Хочу назад в ванилу, никаких вещей за баджи, убил босса-полутал эпик, не убил ходи в синих трусах и зеленой рубахе, завидуй рейдерам в т1/2, молись на богов пве в т3.


#17 Никбордик

Никбордик

    Super True Member

  • True Members
  • PipPipPipPipPip
  • 155 сообщений
-2
Обычный
  • Пол:Мужчина
  • Город:спб

Опубликовано 17 Июнь 2006 - 22:37

while (alive) {
drink(beer);
}



Вот это понравилось. Респект :D
  • 0
Мира нет, это всё плод моего воображения. Я придумал всех Вас...

#18 xumuk88

xumuk88

    User is banned

  • True Members
  • PipPipPipPipPip
  • 3 910 сообщений
-1
Обычный
  • Пол:Мужчина
  • Город:Одессы

Опубликовано 20 Июнь 2006 - 00:31

иероглифы блин <_<
  • 0

#19 Bandosss

Bandosss

    маргалы выкалу , пасть порву ыыыы=))

  • True Members
  • PipPipPipPipPip
  • 3 591 сообщений
0
Обычный
  • Пол:Мужчина
  • Город:Ленинский 92 =))
  • Интересы:приходите

Опубликовано 20 Июнь 2006 - 02:07

:typing: да
  • 0
• В ответ на создание кубика Рубика наши умельцы создали шарик-х@ярик
-
Сюжета в сказке нет , он ушел еще вчера в синих ластах и очках

#20 GeX

GeX

    Super True Member

  • Moderators
  • PipPipPipPipPip
  • 11 350 сообщений
111
Очень хороший
  • Пол:Мужчина
  • Город:Ленинский 110/2

Опубликовано 27 Август 2006 - 15:25

Источник : http://www.obozrevat.../3/21/99689.htm

ПРЕВЕД отрывнаяжизнь;

ЮЗАЕМ
ЗАЛИВВЫЛИВ.АЛКО, ПИФФКО;

КАНСТАНТА
Жизнь : преведохрененноечисло = вечная
Доза : преведчисло = 0,5

кагдила ПИЕМ;
ТИПА
кросаффчег : преведчисло;
начал
ЖЖГИ кросаФФчег = 1 да Жизнь поехали
начал
ЗАЛИВВЫЛИВ.АЛКО.Дринк(Доза, ПИФФКО.СВОЕЛЮБИМОЕ);
кончел
кончел

МЕДВЕД

ЗЫ.
Переделка идеи Игоря.

ЗЗЫ.
Курил - ни хрена не сигареты =)))
  • 0
Я в контакте Ты должен быть сильным, иначе, зачем тебе быть
Размещенное изображениеРазмещенное изображение
Размещенное изображениеРазмещенное изображение



Ответить в эту тему



  

Посетителей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных пользователей