Vicclap.hu - viccek archívum, 26 . oldal

Mit jelez a számítógéped, és mit is akar mondani valójában?

"Nyomjon meg egy billentyűt!" - Bármelyiket megnyomhatod, akkor se történik semmi.

"Végzetes hiba történt. Tájékoztassa a Microsoftot a felmerült problémáról!" - Ahol fél óra várakoztatás után közlik veled, a hibát a hardver okozta.

"Telepítés a következő helyre: C:\..." - Meg persze a c:\windows, a C:\windows\system\ és még egy pár helyre, ahonnan sosem fogod eltávolítani többet.

"Kérem tegye be a következő lemezt: 5" - Mivel jól tudom, hogy csak 4 lemezből áll az egész telepítő.

"Elfogyott a memória" - Nem érdekel, hogy 512MB van, én akkor is az alsó 640kB-ba akarok valamit csinálni.

"A lemez nem olvasható" - Talán ha nem fejjel lefelé raknád be, nagyeszű...

"Kérem, várjon..." - ...a következő néhány napig.

"A directory nem létezik" - ...most már. Hoppá, letöröltem, ugye nem baj?

"Kérem mentse el adatait, az alkalmazás leáll" - Mit idegesítselek, úgyis rá fogsz jönni, hogy már késő.

Gratulálunk! Ön épp most telepítette a Windows lefagyásgátló,...gátló,...gátló,...gátló...

Egy hajótörött már hónapok óta él magányosan az óceán közepén, egy lakatlan szigeten, amikor egyszercsak megpillant egy palackot a parton, a homokban. A palackban egy papírtekercs. Gyorsan kihúzza a dugót, szétnyitja a papírt, és a következőt olvassa:
"Mivel hosszú idő óta nem vette igénybe szolgáltatásunkat, sajnálattal közöljük, hogy Internet-előfizetését töröltük."

- Hány Microsoft helpdesk alkalmazott kell egy villanykörte kicseréléséhez?
- 4. Az első azt kérdezi: "Mi a villanykörte regisztrációs száma?", a második azt mondja: "Próbálja meg kikapcsolni, majd újra bekapcsolni!". A harmadik: "Próbálja meg a villanykörtét újrainstallálni!", míg a negyedik: "A probléma az Önök hálózatával lehet, a mi villanykörténk nálunk rendesen világít!"

- Mekkora az excel nadrágja???
- Hát xls!

- Mi 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, h kerek legyen!

- Mi 8 hobbit?
- ???
- Egy hobbájt.

"Helyezze be az A: meghajtóba a(z) Windows XP Professional CD-ROM cimkéjű lemezt. A folytatáshoz nyomja meg az Enter billentyűt."

/* 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.