[hulio]

Собрались в пятницу с девушкой сходить на Ночь пожирателей рекламы и я решил прикинуть расходы. Так появилась эта процедурка, написанная на языке 1с:

Процедура ПрограммаНаВечерПятницы()

   // х - это потраченные за ночь деньги в рублях
   х = 2000*2 + Пожрать + Попить + ДоехатьТуда + ДоехатьОбратно; // 2000 - цена одного билета ночь пожирателей рекламы

   Если (х < ДоФига) Тогда // значит в принципе вечер удался
      Пока ХватаетСил Цикл // ХватаетСил - переменнаяя типа "Булево"
         ЗаниматьсяБезудержнымСексом();
      КонецЦикла;

   ИначеЕсли (ДоФига <= х) И (х < Афигеть) Тогда
      ПоворчатьПоПоводуДенег();
      Попытка
         // после ворчания может произойти конфликт, поэтому секс запихиваем в попытку
         ЗанятьсяБезудержнымСексом();
      Исключение
         // значит конфликт все таки произошел
         СразуЛечьСпать();
      КонецПопытки;

   Иначе
      УбитьПодругу(); // т.к. это она меня уговорила идти на ночь пожирателей рекламы
      ПоиздеватьсяНадБездыханнымТелом(); // это действие необязательное, просто для того, чтобы отыграться со злости
      УбитьСибяАпСтену(); // к этому моменту настроение будет суицидальным
   КонецЕсли;

КонецПроцедуры

оригинал тут
Не забываем камменты оставлять

Сообщение отредактировал hulio: 19 октября 2006 - 14:27

[Kiteman]

и все из-за денег??
беда чувак...

[zealot_e]

зачот чувак )))
тока тут нада проверку еще такую вставить :

ИначеЕсли (x>Афигеть и БудетМинет() и ДастВЖопу() и СъебетсяСутраРаноБезРазговор()) Тогда
     Пока ХватаетСил Цикл // ХватаетСил - переменнаяя типа "Булево"
        ЗаниматьсяБезудержнымСексомВсемиВозможнымиСпособами(
);
     КонецЦикла;

[ashot]

ужас бля - 1С превращает людей в андроидов!!!

[loulax]

Ха ха)) да жеска...