Jump to content
PirateClub.hu

Nagyon kocka vicccek


Piero
 Share

Recommended Posts

- Mit hall a vonaton utazó webmester?

- <td>.....</td> <td>.....</td> <td>.....</td> <td>.....</td>

 

- Hol fészkel az intermadár?

- Interfészekben.

 

- Mi az: kicsi, sárga és veszélyes?

- Naposcsibe a root jelszóval.

 

- Mire táncolnak a programozók?

- Algoritmusra.

 

- Miért konvergens a mozgólépcső?

- Mert monoton és korlátos.

 

- Nagymama! Miért olyan nagy az arcod?!

- Azért mert Debian-t használok! :)

 

Kocka közmondások (megoldás alattuk, más színnel):

 

1, while (state(Korso) != BROKEN) go (Korso, &Kut)

/* Addig jar a korso a kutra, amig el nem torik */

2, set_quality(Aratas, get_quality(Vetes))

/* Ki mint vet, ugy arat */

3, if (origin(Horse) == SOUVENIR) Allow_Look_At.Teeth = 0

/* Ajandek lonak ne nezd a fogat */

4, if (bride_ID == most_beautiful(GetAllGirls (THIS_VILLAGE))) exit(-1)

/* Soha ne a falu legszebb lanyat vedd felesegul! */

5, if (TimeToInt(Wakeup.Time) < TimeToInt(StrToTime ("06:00:00")))

AddToList(UserLoggedIn.FoundItems, Gold)

/* Ki koran kel, aranyat lel */

6, Function May_I_Marry_Her(Girl: TGirl): boolean begin With Girl.Mother

do May_I_Marry_Her := ((Body.Quality="attractive") and (face.Quality =

"beautiful")) end

/* Nezd meg az anyjat, vedd el a lanyat */

7, 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

/* Aki masnak vermet as, az a siraso */

8, Const Num_Of_Dog_Buying_In_Buda = 1

/* Egyszer volt budan kutyavasar */

9, 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:=`Lud` Lud.Strength:=10 Diszno.Caption:=`Diszno`

Diszno.Strength:=540 Attack(Lud, Diszno, 1, 1) Attack(Lud, Diszno, 20,

1) Attack(Lud, Diszno, 60, 1) end.

F9 (Run) Result: Diszno won. Diszno won. Lud won.

/* Sok lud disznot gyoz */

10, capturetime(human.type(LIAR)) < capturetime(dog.type(CRIPPLE))

/* 10 A hazug embert hamarabb utolérik, mint a sánta kutyát */

11,sideStep (cat.getWalkType(new Kása(HOT)));

/* 11 Kerülgeti, mint macska a forró kását */

12, Stack.push (someOneOther.getStack().madeBy());

/* 12 Aki másnak vermet ás... */

13, SUN.CanView := true; HE.CanView := false;

/* 13 A napra lehet nézni de rá nem */

14, setAcceptGod(getGiveGod());

/* 14 Amilyen az adjonisten, olyan a fogadjisten */

15, Bird.Type := Bird.feather; Human.Type := Human.friend;

/* 15 Madarat tolláról, embert barátjáról */

16, pig.setType(HUNGRY); pig.setDream(MAKK);

/* 16 Éhes disznó makkal álmodik */

17, Winnig.Priority := 0; Attendance.Priority := CONST_HIGH;

/* 17 A részvétel a fontos... */

18, const bool compareGreenness (Grass* grass) { if (grass.getOwner()==NEIGHBOUR) return true; }

/* 18 A szomszéd kertje mindig zöldebb */

19, PassedDistance := PassedDistance + (1/WalkSpeed);

/* 19 Lassan járj... */

20, If Human.Type = CONST_SMART then Release; If Human.Type = CONST_DONKEY then Suffer;

/* 20 Okos enged, szamár szenved */

 

:D

Link to comment
Share on other sites

Hogy hívják....

 

- az informatikus papot??

- Felhasználó-barát!

 

- orosz internet szolgáltatót??

- Inter-NYET

 

(most igy hírtelen ennyi)

 

Szerk: eszembe jutott még pár:

 

- Mit csinál a rendszergazda az új titkárnőnél?

- Egy új felhasználót!!!

 

- Honnan lehet tudni, hogy a szőke nő fel akart menni a netre?

- A billentyűzeten van a lábnyoma!

 

- Hogy hívják a templomok közti hálózatot?

- PapLAN.

 

- Mi az új 7 gombos számítógép-újraindítási billentyűkombináció?

- Ctrl+Alt+Del; Ctrl+Alt+Del; Reset

 

- Hogy hívják a katonai operációs renszer?

- CommanDos.

 

Két számítástechnikus beszélget:

- Szia! Kölcsön adnál 1000 Ft-ot?

- Adok 1024-et, hogy kerek legyen!

Módosította Chipi
Link to comment
Share on other sites

Az Internet-függőség jelei:

- Mikor kimész hajnali 3-kor a WC-re, előbb megnézed, hogy érkezett-e új e-mail. Útban visszafelé ismét megnézed.

- Van egy tetoválásod, amelyen az áll: "This body best viewed with Netscape Navigator 4.1 or higher."

- Gyerekeid nevei: Eudora, Mozilla és AltaVista

- Kikapcsolod a modemedet és azonnal megszáll egy szörnyű üres érzés...

- Repülőgépen a fele utadat a laptopoddal az öledben töltöd, míg a gyereked a csomagtartóban van.

- Úgy döntesz, hogy még két éven keresztül jársz főiskolára: az ingyenes Internet-hozzáférés miatt.

- Kineveted azokat, akiknek 14,4-es modemjük van.

- A hagyományos postai leveleken is kezdesz smiley-t használni.

- A modemed bedöglik, és már két órája nem töltötted le a leveleidet. Manuálisan hívod fel az Internet szolgáltatódat, és fütyülve próbálsz kommunikálni a szerverrel... és sikerül!

- Rájössz, hogy a szövegszerkesztőben minden mondatvégi pont után automatikusan odaírod a "com"-ot.com

- Minden barátodnak "@" van a nevében.

- A macskádnak saját honlapja van.

- Nem tudod felhívni édesanyádat... nincs modemje.

- A telefonszámládat egy nagy dobozban hozza ki a posta.

- Felizgulsz, valahányszor a tárhelyedről beszélsz.

- Nem tudod, hogy a három legjobb barátodnak mi a neme. Mindig semleges neveken jelentkeznek be az IRC-n.

Jelek, amik arra utalnk, hogy túl sokat gépezel:

 

- Olvasol egy könyvet, és automatikusan keresed a lap szélén a gördítősávot.

- Felveszed a telefont, és automatikusan egy IP címet kezdesz beírni.

- A liftben kétszer kattintasz a kívánt emelet gombjára.

- Keresed az ikont, amire kétszer kattintva ki tudnád nyitni a hálószoba ablakát.

- Ha elkövetsz valami hibát, elkezded keresni a visszavonás funkciót.

- Lenézed azokat az embereket, akik csak szimpla írássűrűséggel beszélnek.

- Simán megértesz egy olyan mondatot, amiben háromnál több betűszó szerepel.

- Az autód sebességmérőjét km/h-ról átskáláztatod dpi-re.

- Gyakrabban cseréled a képernyővédődet, mint az alsógatyádat.

- Összeveszel gyerekkori barátoddal azon, hogy vajon a trackball vagy a touch pad használata kényelmesebb-e.

 

=====

 

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.

 

/* Sok lúd disznót gyöz */

 

=====

 

Két informatikus beszélget:

-Neked mi volt eddig a legkomolyabb kapcsolatod?

-Két megabites ADSL!!!

 

=====

 

Kedvencem:

 

Két informatikus beszélget:

- Képzeld, tegnap az éjszakai klubban megismerkedtem egy csinos szőke nővel.

- Szerencsés fickó!

- Felhívtam a lakásra, ittunk egy kicsit, átöleltem...

- És aztán, mi volt még?

- Egyszer csak azt mondja: "vetkőztess le!"

- Nahát...

- Levettem a szoknyáját, aztán a bugyiját is, aztán lefektettem az új laptopom mellé az asztalra...

- Nocsak vettél egy új laptopot? Milyen processzorral?

 

Egyelőre ennyi :)

Link to comment
Share on other sites

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.

 

ez nagggggggggggggggypn kemény xD

Link to comment
Share on other sites

  • 3 weeks later...
  • 3 months later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Hozzászólás a témához...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Jelenleg olvassa   0 members

    • No registered users viewing this page.
×
×
  • Create New...