На Главную страницу nuBO.ru  На главную страницу nuBO.ru
| Приколы о Пиве | Карикатуры о Пиве | Картины о Пиве | Анекдоты о Пиве | Пивные истории | Пословицы о Пиве | Винни Пух - любитель Пива |


// Програма Партии Любителей Пива
// Версия 0.1.17  21/10/96

// Реализация этих функций выполняется каждым членом партии самостоятельно!
extern float GetMoney(void);
extern float TwoBeer(float money);
extern float OneMore(float money);
extern float Full(float beer);
extern void Drink(float beer);
extern void Go00(float beer);
extern void Talk(void);

#define err_NoMoney 1
#define err_NoBeer  2
#define BeerCost 3200           // Конкретное значение зависит от региона!

int main(void)
 {
  float money=0;
  float beer=0;
  float cap;
  int count;

  while ((money+=GetMoney())>=BeerCost*2)
   for (cap=TwoBeer(BeerCost*2),money-=BeerCost*2
       ;money>=BeerCost
       ;cap=OneMore(BeerCost),money-=BeerCost)
    {
     if (!cap) return err_NoBeer;  // :-(~
     if (Full(beer)) Go00(beer);
     for (count=50;count-->0;)
      {
       Drink(0.02*cap);
       Talk();
      }
     beer+=cap;
    }
  return err_NoMoney;  // :~(
 }
Все приколы: Программа Диалог у ларька О ПИВО! Почемy вымеpли динозавpы Как Бог Пиво сотворил Стеб над Бочкаревым Пиво системмы Windows FAQ про Пиво Вредные советы Как Голандцы Африку открыли Классика пивного юмора
| Приколы о Пиве | Карикатуры о Пиве | Картины о Пиве | Анекдоты о Пиве | Пивные истории | Пословицы о Пиве | Винни Пух - любитель Пива |

 © 1999-2024 www.nuBO.ru aka beer.artcon.ru
 Макс Лубянов, Павел Егоров  E-mail: paul_egorov@mail.ru