Как посадить слона в холодильник?

[Liksys]

Кстати, кто-то может аргументированно сказать почему C# так плох? А то у меня дядя кодит на нём, а я чувствую какую-то негативную ауру...)

Я где-то в Программировании говорил. Поищи там.

[carnivore]

Мдя, похожи, заразы)))
Все равно С# фтопку!

Солидарен)))

[carnivore]

Кстати, кто-то может аргументированно сказать почему C# так плох? А то у меня дядя кодит на нём, а я чувствую какую-то негативную ауру...)

Ыыыы!Аминь!Не удивлюсь если он как-то связан с Ктулху
Только Чак Норрис способен кодить на этом языке и при этом не поддаваться на влияние его темной силы.А еще говорят, что именно на C# написана прошивка ОБЧР...

[sbar]

Не должен. Там slon и slon_1. Компилятор это допускает.

в program и type 2 одинаковых идентификатора "slon". меня как-то препод на подобной ошибке ловил просто уже (было такое время, программы на бумаге писались почему-то 0_o).

[Dark Neo]

в program и type 2 одинаковых идентификатора "slon". меня как-то препод на подобной ошибке ловил просто уже (было такое время, программы на бумаге писались почему-то 0_o).

Точно! Вот на это я внимания не обратил.

[t.t]

Баянчик в тему: http://www.lib.ru/ANEKDOTY/progrev.txt

[Maximus_V]

Ну тогда и от себя добавлю. Хотя и не привженец паскаля, вот, откопал

Код: Выделить всё

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 Who<>Girl 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 }

[Славик]

Не хватает двух процедур.

DrinkForElefant("vidro")
ElefantGoToRefrigirator("bigom, skotina")

[Maximus_V]

DrinkForElefant("vidro")

и vidro чтоб обязательно было типа longint (точно не помню, как пишется, давно не кодил на паскале):
long - чтобы на весь хобот хватило
int (он же integer) - ведро должно быть целым. Из нецелого ведра попробуй-ка выпей!

[Славик]

Упс, а у меня vidro - строка.

[Denjs]

чего-то вы все тупите...

надо как минимум
zip slon.file /etc/holodilnik/z.lon.(zipped_slon).zip

как вы ТАКОГО БОЛЬШОГО слона в такой маленький холодильник помещать собираетесь?

да и вообще - надо не только заморзить но и на части порезать - для упаковки в несколько холодильников...

[Славик]

Отставить резать слонов, ща гринпис нагрянет.
А вот скомпилировать под конкретную марку холодильника - это да.

[Maximus_V]

emerge --search slon

находит

dev-db/slony1

тогда

Код: Выделить всё

HOLODILNICK_DEVICE="Минск" emerge slony1

и получаем слонов в нашем холодильнике

[Gena_Zakharov]

С удовольствие слушаи дискуссию, не смог не присоедениться.
Так что, вношу свои 5 копеек

Код: Выделить всё

    .model tiny
    .code
    org 100h
;
    holodilnik equ 03f2h ;порт холодильника
    slon       equ 01a4h;порт слона
    slon_length   equ 0f2eh;длина слона
;
start:
;инициализация
         mov bx,slon
    mov dx,holodilnik
    mov cx,slon_len

loop:
    in  al,bx     ;читаем слона
    out dx,al     ;пишим в холодильник
    dec cx
    jnz loop
;запись закончена
    mov ah,09h
    mov dx, offset message
    int 21h
    ret

    message db "Slon v holodilnike",0
end start

[Subj]

Слон и холодильник - это объекты разных типов, так что нечего морочить мне голову некорректными задачами ))

[Maximus_V]

С удовольствие слушаи дискуссию, не смог не присоедениться.
Так что, вношу свои 5 копеек

[code]

int 21h
ret

Э нет, уважаемый! 21-е прерывание - это из доса... А слабо под линукс портировать?

[stampoon]

uses zip,slon_device,holodilnik_device;
var
st:holodilnik;
nd:slon;
tmp:byte;
ttmp:byte;
begin
tmp:=d2byte(st);
tmp:=zip(tmp,'0,5');
ttmp:=d2byte(nd,'0,5');
ttmp:=ttmp+tmp;
st:=byte2h(ttmp);
writeln(st);
readln;
end.

[Civil]

phasma

Код: Выделить всё

#!/bin/bash
ln -sf /dev/zero /dev/simple_generator_slona
ln -sf /dev/null /dev/holodilnik
dd if=/dev/generator_slona of=/dev/holodilnik bs=1024M count=1

Код: Выделить всё

#!/bin/bash
ln -sf /dev/urandom /dev/generator_slona
ln -sf /dev/null /dev/holodilnik
dd if=/dev/generator_slona of=/dev/holodilnik bs=1M count=1

Можно ещё

Код: Выделить всё

#!/bin/bash
ln -sf /dev/random /dev/advanced_generator_slona
ln -sf /dev/null /dev/holodilnik
echo "Please wait! We are now going to generate elephant and then put it into refregerator! It can take a while..."
dd if=/dev/advanced_generator_slona of=/dev/holodilnik bs=1024 count=1

[Pradead]

У меня slon_1_i386.deb не ставится требует пакет hobot_1, где можно взять, а то слон в сырцах много весит.

[Maximus_V]

У меня slon_1_i386.deb не ставится требует пакет hobot_1, где можно взять, а то слон в сырцах много весит.

slon_1 - это старая версия, обязательно обновитесь - последняя стабильная версия slon_1_99. Из ее особенностей я бы отметил возможность установки без пакетов hobot, nogi, hvost. Имейте ввиду, что для работы этой версии потребуется большой отсек в холодильнике подкачки.
А для продвинутых юзеров имеется пакет slon_1_99_devel.src.tar.bz2 - возможна компиляция с несколькими (до 65535) hobot, hvost. Также для слабых маленьких холодильников класса "Минск_i286" можно откомпилировать плосского прямоугольного слона.

[stampoon]

У меня slon_1_i386.deb не ставится требует пакет hobot_1, где можно взять, а то слон в сырцах много весит.

rpm пакеты ставятся без проблем!

[Subj]

Жжоте ))

[Nerr]

Код: Выделить всё

#!/usr/bin/perl -w

use utf8;
use encoding "utf8";

# Наш слоник
my $слон = "слон";
utf8::encode($слон);
# Открываем дверку холодильника
open (ДВЕРКА, ">холодильник");
# Пинком под зад отправляем слона в холодильник
syswrite ДВЕРКА, $слон, 8;
# Захлопываем дверку холодильника
close ДВЕРКА

[Pradead]

Опять проблема: ставлю hobot-indian_1_i386.deb на slon-afric_1_i386.deb, а при попытке поставить слона в холодильник boschkgv33x25, говорит хобота нет, что делать, начальник рвет и мечет, ему позарез нужен слон в холодильнике.

[Славик]

Опять проблема: ставлю hobot-indian_1_i386.deb на slon-afric_1_i386.deb, а при попытке поставить слона в холодильник boschkgv33x25, говорит хобота нет, что делать, начальник рвет и мечет, ему позарез нужен слон в холодильнике.

Как это что! Исходники править!

[Maximus_V]

Опять проблема: ставлю hobot-indian_1_i386.deb на slon-afric_1_i386.deb, а при попытке поставить слона в холодильник boschkgv33x25, говорит хобота нет, что делать, начальник рвет и мечет, ему позарез нужен слон в холодильнике.

Что это у вас за консольный холодильник с разрешением 33х25? Хобот и не появится, пока вы не запустите Х-сервер в режиме "Кухня" с разрешением не менее 1024х768

[Pradead]

Решил так:

Код:

mount /dev/boschkgv33x25 /home/kuhna

Потом лезу в настройки холодильника и правлю до расширения 1024х768, с пакетами разобрался, там был конфликт видов, хобот от индийского, а сам слон африканский. Adept Manager глюкнул, не тот репозиторий был указан, он гад вместо ЮАР-овского залез на индийское зеркало.

[Lord3D]

Код: Выделить всё

uses
    Crt, Dos;

type
   Animals = (Zhiraf, Slon, Begemot);
var
   Holodilnik: Set Of Animals;
   Slon:         Animals;
   i:              Byte;

begin
   {Содержимое холодильника берём из строки параметров}
   for i := 1 to ParamCount do
      Include (Holodilnik, ParamStr[i]);
   if Slon in Holodilnik then
      writeln ('Cлон уже есть в холодильнике - второй туда не влезет...э)
   else
      begin
         if Begemot in Holodilnik then
            Exclude(Holodilnik, Begemot)
         else
            if Zhiraf in Holodilnik then
               Exclude(Holodilnik, Zhiraf);
         Include (Holodilnik, Slon);
      end;
end.

Стандартный ТП7 для доса - паскаля на линухе не знаю(

[Mellon]

Код: Выделить всё

# Copyright 1999-2008 Gentoo Foundation
# Distributed under the terms of the GNU General Public License v2
# $Header: /var/cvsroot/gentoo-x86/sci-biology/elephant/elephant-1.33.ebuil,v 1.00 2008/04/06 4:53:43 Mellon Exp $

inherit eutils refrigerator

DESCRIPTION="Elephant package"
HOMEPAGE="http://en.wikipedia.org/wiki/Elephant"
SRC_URI="http://www.africa.org/savannah/elephant/${P}.tar.bz2"

LICENSE="GPL-2"
SLOT="0"
KEYWORDS="~amd64 ~ia64 ~ppc ~ppc-macos ~ppc64 ~x86"
IUSE="vaccine"

RESTRICT="mirror"

DEPEND="sys-libs/glibc"

RDEPEND="$DEPEND
    sci-biology/refrigerator"

S="${WORKDIR}/${PN}"

src_unpack() {
    unpack ${A}
        cd "${S}"
        if use vaccine; then
        epatch "${FILESDIR}"/${PN}-vaccine.patch
        fi
}

src_compile() {
        emake CFLAGS="${CFLAGS}" || die "emake failed"
}

src_install() {
    insinto /usr/lib/refrigerator/site-packages
    doins  elephant || die "doins failed"
    dodoc AUTHORS ChangeLog FAQ README TODO
}

pkg_postinst() {
        refrigerator_mod_optimize "${ROOT}"/usr/lib/refrigerator/site-packages/${PN}
}

pkg_postrm() {
        refrigerator_mod_cleanup "${ROOT}"/usr/lib/refrigerator/site-packages/${PN}
}

[stampoon]

http://rpm.pbone.net/index.php3/stat/4/idp...4.i586.rpm.html

что это?!