Informatika és tudomány

35802
IWimv2m.jpg
  • geo91
    #10
    Az első címhez nem ezt a videót akartam, de nem baj ez is vicces.
  • geo91
    #9
    Örök klasszikusok:

    Lefagy a gép


    Win 95
  • [HUN]FaTaL
    #8
    :DDDDDDDD
  • geo91
    #7
  • REPS0L
    #6
    i5-2500K; GTX560Ti; 8GB DDR3
    http://bofox.hu
  • REPS0L
    #5
    fav :DDDDD
    i5-2500K; GTX560Ti; 8GB DDR3
    http://bofox.hu
  • ldavid
    #4
    jóak :D





  • geo91
    #3

  • RAZOR27
    #2
    "/* Ki mint vet, úgy arat */
    set_quality( Aratas, get_quality(Vetes) );"

    Ez tetszik +fav :)
    \"If you want to go fast, go alone. If you want to go far, go together.\"
  • geo91
    #1
    Szerintem ez megérdemel egy külön topic-ot.
    Kezdjük is:

    Közmondások programnyelven

    /* Addig jar a korsó a kútra... */
    while( state(Korso) != _BROKEN ) go( Korso, &Kut);
    --------------------------------------------------------------------------------
    /* Ki mint vet, úgy arat */
    set_quality( Aratas, get_quality(Vetes) );
    --------------------------------------------------------------------------------
    /* Ajandék lónak... */
    if( origin(Horse) == _SOUVENIR ) Allow_Look_At.Teeth=0;
    --------------------------------------------------------------------------------
    /* Soha ne a falu legszebb lányát vedd feleségül! */
    if( bride_ID == most_beautiful( GetAllGirls(_THIS_VILLAGE))) exit(-1);
    --------------------------------------------------------------------------------
    {Ki korán kel, aranyat lel}
    If TimeToInt(Wakeup.Time)<TimeToInt(StrToTime("06:00:00")) then
    AddToList(UserLoggedIn.FoundItems,Gold);
    --------------------------------------------------------------------------------
    {Nezd meg az anyjat, vedd el a lanyat}
    Function May_I_Marry_Her(Girl: TGirl):boolean;
    begin
    With Girl.Mother do
    May_I_Marry_Her:=((Body.Qality="attractive") and
    (face.Quality="beautiful"));
    end;
    --------------------------------------------------------------------------------
    {Aki máasnak vermet ás az a sírásó}
    type
    TEmployed=class(THuman)
    Job : String[30];
    procedure OnGraveDigging( Sender: Tobject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;
    Procedure TEmployed.OnGraveDigging( Sender: Tobject);
    begin
    Sender.Job:="GraveDigger";
    end;
    --------------------------------------------------------------------------------
    {Egyszer volt Budán kutyavásár}
    Const
    Num_Of_Dog_Buying_In_Buda=1;
    --------------------------------------------------------------------------------
    /* Sok lúd disznót gyöz */
    uses animals;
    var lud, diszno: Tanimal;
    Procedure Attack(A, B: Tanimal; NumA, NumB: Word);
    begin
    If NumA*A.Strength>NumB*B.Strength then write(A.Caption)
    else if NumA*A.Strength<NumB*B.Strength then write(B.Caption)
    else write('Nobody');
    writeln(' Won');
    end;
    begin
    Lud.Caption:='Lúd';
    Lud.Strength:=10;
    Diszno.Caption:='Disznó';
    Diszno.Strength:=540;
    Attack(Lud, Diszno, 1, 1 );
    Attack(Lud, Diszno, 20, 1 );
    Attack(Lud, Doszno, 60, 1 );
    end.
    F9 (Run)
    Result:
    Disznó Won.
    Disznó Won.
    Lúd Won.