Сообщество - IT-юмор

IT-юмор

7 076 постов 53 204 подписчика

Популярные теги в сообществе:

Мясо в горшочке. Кодорецепт

Решил побаловать народ рецептом. А чтоб не было скучно, оформил в виде программистского кода на VB.


Imports System.Тушилка с крышкой

Imports System.Духовка

Imports System.Data.Свинина

Imports System.Data.Картошка

Imports System.Data.Лук

Imports System.Data.Подсолнечное Масло

Imports System.Data.Соль

Imports System.Data.Морковь

Imports System.Data.Перец черный // мясо без перца - деньги на ветер ;)

Imports System.Data.Вода


Dim Уровень Заполнения Тушилки As Integer

Dim Появился Зверский Запах, Текут Слюнки As Boolean

Dim Свинина Готова, Картошка Мягкая As Boolean


Private Sub Приготовление()

Резать Свинина, форма - куб (X = 3, Y = 3, Z = 3)

Резать Картошка, форма - как пожелаете()

Резать Лук, форма - кольцо()

Налить Подсолнечное Масло в Тушилка


For Уровень Заполнения Тушилки = 0 To "Сколько Влезет"

Положить в Тушилка слой Свинина()

Сыпать в тушилка Соль(по вкусу)

Положить в Тушилку слой Лук()

Положить в Тушилку слой Картошка()

Next Уровень Заполнения Тушилки


Налить в Тушилку немного Вода()

Закрыть Тушилка крышкой()

Поставить Тушилка в разогретую Духовка(огонь небольшой)


Do While (Появился Зверский Запах = True) And (Текут Слюнки = True)

Посмотреть состояние блюда()

If (Свинина Готова = True) And (Картошка Мягкая = True) Then End Do

Loop


Вытащить Тушилка из Духовка()

Разложить блюдо по тарелкам()

Приступить к употреблению блюда()

End Sub


Приятного аппетита!


(с) Arch-vile

Показать полностью
171

Бизнес-идея

Сисадминю малость в одной конторе. Решил по-приколу, по-дешевке продавать «красивые» IP адреса в локальной сети любителям красивых номеров на авто. Например: 192.168.1.111 , 192.168.1.222, подешевле идут 192.168.1.101 и 202 и так далее.

Главное – убедить бухгалтеров, что с «крутыми» IP интернет шустрее и стабильней. Думаю еще ежемесячную абон. плату на них ввести )

Отличная работа, все прочитано!