Перейти к публикации
forum-okna.ru

Програмисты шутят


tal

Рекомендованные сообщения

Это вам не квадрат Малевича, это серьезно :wub: ... возможно не программистам это не понять :rolleyes:

 

Procedure Drinks;

Begin

 

Open(Bottles);

Repeat

Drink(Next(Gramms100));

Zakus:=Eat(Next(Foods));

Until TwoViewInEyes;

 

End;{ Drinks }

 

 

Увидел этот прикол,задумался. Мухлевич намулевал черный квадрат и понеслось-ах какая прелесть, это гениально т .д.

может Евг.Онегина перевести на язык программирования, наверное круто получится. Надо только язык выбрать, чтоб рифму соблюсти :rolleyes:

Ссылка на комментарий
Поделиться на других сайтах


Оконный портал tybet.ru | Подписка на новости | Бесплатные объявления | Наша телега | База оконных знаний | ОНЛАЙН-ВЫСТАВКА



Это вам не квадрат Малевича, это серьезно :rolleyes: ... возможно не программистам это не понять :rolleyes:

 

Procedure Drinks;

Begin

 

Open(Bottles);

Repeat

Drink(Next(Gramms100));

Zakus:=Eat(Next(Foods));

Until TwoViewInEyes;

 

End;{ Drinks }

 

 

Увидел этот прикол,задумался. Мухлевич намулевал черный квадрат и понеслось-ах какая прелесть, это гениально т .д.

может Евг.Онегина перевести на язык программирования, наверное круто получится. Надо только язык выбрать, чтоб рифму соблюсти :)

 

тут только одна проблема..

заглючит процедура когда жидкость в бутылке закончиться.. :wub:

Ссылка на комментарий
Поделиться на других сайтах

тут только одна проблема..

заглючит процедура когда жидкость в бутылке закончиться.. :wub:

Не, код продуман до мелочей. В переводе на великий и могучий:

 

объявляем процедуру выпивания

Procedure Drinks;

 

начинаем программу

Begin

 

открываем бутылки

Open(Bottles);

 

Инструкция цикла между Repeat и Until будет выполняться до тех пор, пока условие не станет ложным

а условие=пока есть, что дринкать по 100 грамм и закусывать

 

открываем цикл с неизвестным заранее числом повторений

Repeat

Drink(Next(Gramms100));

Zakus:=Eat(Next(Foods));

 

когда в глазах начинает двоиться цикл заканчивается

Until TwoViewInEyes;

 

конец программы

End;{ Drinks }

 

 

Так, что код корректен вполне :rolleyes:

Ссылка на комментарий
Поделиться на других сайтах

Я, наверное, старый, но на Fortran-е это выглядело гораздо забавнее. Текст, дословно, не помню, но после того как выпито:

"go to masha

if (что-то там...) go to nina

И так далее...

" Пришел поручик Ржевский и все опошлил..."

Ссылка на комментарий
Поделиться на других сайтах

Есть другой вариант. :thumbsup:

Program Party;

Uses Vine, Food, Condoms;

{$I Variable.Pas}

Procedure Prepare;

Begin

Find(House);

Buy(Bottles);

Buy(Food);

Call(Friends);

Call(Girls);

End;{ Prepare }

Procedure Drinks;

Begin

Open(Bottles);

Repeat

Drink(Next(Gramms100));

Food:=Eat(Next(Foods));

Until TwoViewInEyes;

End;{ Drinks }

Procedure Dances;

Begin

Music:=True;

Call(OneGirl);

Go(DancingRoom);

With Music.Jump Do

Begin

If Girl(Drink)>Normal(Drink) Then

Begin

Touch(AssOfGirl);

Touch(BreastOfGirl);

End

Else

Begin

Go(DrinkingRoom);

Let`s(Girl):=Drinks(More);

Return(DancingRoom);

End;

End;

End;{ Dances }

Procedure Fuck( Who : Sex );

Var

HowMany: LongInt;

Begin

If WhoGirl Then Write('Are yor sodomite ??!');

Find(DarkRoom);

Close(Door_and_windows);

If Not Find(BedInRoom) Then BedInRoom:=AnyTable;

 

HowMany:=0;

Repeat

Call(Next(Who));

Delete(DressOf(Who));

Kiss(Lips,Breast,OtherPartsOfBody);

Repeat

Asm

PUSH YourPenis

POP? YourPenis

End;

Until YouHaveOrgasm;

Case HowMany of Inc(HowMany);

If (HowMany mod 15 = 0) Then Write('You are BIG man !!!');

Until YourPenisStay;

End;{ Fuck }

Begin { Party — Main Program }

Prepare;

Drinks;

If Who(Drink)>Normal(Drink) Then Who:=FaceDown;

 

Dances;

Fuck(Girls);

Go(AtHomes);

End.{ Main Program }

Ссылка на комментарий
Поделиться на других сайтах

Даж ASM зацепили, сейчас еще подождем на PHP, Perl и Питоне для полноты картины :thumbsup:

Где про гёрлов, там идеально впишутся php'эшные include и fsockopen

во экспромтом родилось

if (! eregi ("Womens"){18,40Year},kompany) {

print "Access denied";

}

:)

Ссылка на комментарий
Поделиться на других сайтах

  • 1 month later...

Работаю я ИТ-шником в банке.

Конец месяца, работы навалилось. Зашиваюсь..

Звонок по тел. одной нашей клиентки (клиент-банк у них стоит), клиентка старушка "Божий Одуванчик". Вы не подумайте я не зверь+. Но так получилось.

К. Добрый день!!

Я. Добрый

К. У нас проблема не работает Клиент банк.

Через 40 минут общения я понял, завис модем, ну расказивать где кнопочка выключения, и что нужно выключить и включить модем эт ещо 30 мин..

Я. Перегрузите машину

К. Хорошо

Проходит около двух часов, звонок:

К. Добрый день!!

Я. Добрый

К. Машину перегрузили, мешки пересчитали но Клиент банк так и не работает..?????

Я. (ели говорю, почти плачу от смеха) Я имел ввиду компьютер

К. Как компьютер?? Что же я скажу мальчикам?? Там машина на 3 тонны.

Занавес+..

Ссылка на комментарий
Поделиться на других сайтах

Поется на мотив "Большой секрет для маленькой компании"

 

Не секрет,

Что сервак не растет в огороде,

Не продашь, хоть и купишь, сервак,

И поэтому я

Головой на keyboard"e

Засыпаю, устав

От дневных передряг

 

ПРИПЕВ:

Под тихое бурчание,

Процессора журчание,

Под клавиш стрекотание,

Под ругань и напряг

Создам сервак для маленькой,

Для маленькой такой компании,

Для скромной такой компании

Огромный такой сервак

 

Не секрет,

Что в Сети серваки уважают,

Но рекламу для них хрен найти,

И поэтому я

Юзеров зазываю

То на чат, то на чай,

То на конкурс зайти

 

ПРИПЕВ

 

Не секрет,

Что сервак очень любит заботу,

Не живет бехз апгрейдов моих,

И поэтому я

Стал спецом по support"y,

И теперь он мне снится

В кошмарах ночных

 

ПРИПЕВ:

Под компа скрежетание,

Под клавиш стрекотание

Я тихо впал в отчаяние,

Твержу я, как дурак:

"Зачем он сдался, маленькой,

Малюсенькой такой компании

И скромной такой компании,

Огромный такой сервак?!"

Ссылка на комментарий
Поделиться на других сайтах

  • 3 weeks later...
Работаю я ИТ-шником в банке.

Конец месяца, работы навалилось. Зашиваюсь..

Звонок по тел. одной нашей клиентки (клиент-банк у них стоит), клиентка старушка "Божий Одуванчик". Вы не подумайте я не зверь+. Но так получилось.

Вызывает генеральный к себе администратора нашего, Саню.

- Саш, тут такое дело. Жена ноутбук купила. Ну, там ей по работе чего-то

надо. Помоги ей, а? Она подъедет часов в шесть. Настроить там все.

Программы какие установить... Ну, короче, она скажет. Поможешь?

- Хорошо, Вячеслав Сергеевич.

Саня парень молодой, безотказный и очень ответственный. Единственный

недостаток жутко застенчивый. Краснеет, даже когда Зинаида Васильевна,

наш бухгалтер, кричит на весь офис:

- Санчо! Ты где? Приди уже и вставь мне наконец! Нету никаких моих

дамских сил более!

Вставить нужно флешку, на которой она носит все финансовые секреты

фирмы. Расположение USB-разъема на системном блоке несовместимо с

пышными формами Зинаиды Васильевны. Попытка Саши однажды

приспособить для этих целей удлинитель закончилась криком: "Санчо,

он не лезет! Я боюсь! Миленький, ты уж сам! Сам! Сам! "

Вечером приехала Света, жена генерального. Шикарная блондинка и далеко

не дура. Имидж-студия и салон красоты в центре. Отдала Саше ноутбук.

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

прическам, то ли по макияжу. Говорит, хочу завтра своим девочкам семинар

устроить по новым технологиям.

Саня поковырялся до полуночи. Конечно, все сделал. Семь раз проверил.

Как последний штрих поставил картинкой рабочего стола хитрую морду

своего любимого кота Чипа крупным планом. Считай - визитную карточку.

Позвонил генеральный .. как дела?

- Все закончил, Вячеслав Сергеевич.

- Молодец. Ты тогда ноутбук на столе прям оставь, Света заедет, заберет.

А ты до обеда можешь отдыхать.

Утром Гриша, менеджер по продажам, мелкий пакостник и большой знаток IT

технологий по журналу Игромания видит на столе у Сани новенький ноутбук.

- Ого! Санчес наш ноутбучиком разжился! Вот тихушник. Ух ты! Крутой

аппарат! Ну, Саня! Ну, ладно... Щас мы тебе.

И через пять минут на рабочем столе вместо кота красуется по диагонали

огромный мужской половой член в шикарном разрешении и качестве.

Еще через полчаса на глазах у изумленного Гриши ноутбук уплывает из

офиса на высоких каблуках Светланы Николаевны.

Вечером на столе у Сани звонит телефон.

- Алло, Саша? Это Светлана. Я хотела сказать спасибо тебе большое!

Саня смущается и краснеет.

- Да не за что, Светлана Николаевна. Я всегда рад, если что.

- Саш, я спросить еще хотела: там на рабочем столе картинка.

- Не понравилась, да? - огорчается Саня.

- Что ты! Девочки были просто в восторге! Я когда включила, они аж

завизжали. Просили обязательно узнать, это чей объект изображен на

снимке?

- Мой. Саня еще больше смущается и добавляет. Его Чип зовут.

- Ого! Саш, мои девочки просили хозяина этого Чипа провести с ними какой

нибудь семинар. Компьютерной грамотности, к примеру. Ты не против?

- Да я-то с удовольствием. Если Вячеслав Сергеевич разрешит.

- Разрешит, не волнуйся! Я попрошу разрешит. На следующей неделе, да?

- Ой, а мне же это .. Подготовиться надо!

Ничего, ты справишься! Ты, главное, Чипа с собой не забудь прихватить...

Ссылка на комментарий
Поделиться на других сайтах

  • 4 weeks later...

Приходит новый русский домой, достает из портфеля ружьё и дохлую мышь, кладет их на монитор, включает компьютер, через секунду выключает, достаёт сотовый, набирает номер и говорит:

- Слышь, Василич, поставил я на компьютер винчестер и мышку, а он ни хрена не работает!!!

- Ну, значит, у тебя или памяти не хватает, или мать плохая.

- Ты чё, мужик..

Ссылка на комментарий
Поделиться на других сайтах

  • 2 months later...
  • Сейчас на странице   0 пользователей

    • Нет пользователей, просматривающих эту страницу.
×
×
  • Создать...

Важная информация

Условия и правила использования форума Правила.