|  ÁRAJÁNLAT KÉRÉS  |  Elérhetőség, telefon, mobil   |  
Kapcsolat, elérhetőség:
email, cím, telefonszám
   |  
Honlap térkép,
tartalmi áttekintés
 Honlap térkép  |  
Keresés a honlap tartalmában
az MXCMS8 belső keresőjével
      
 // www.MaXeline.hu / Extrák / Keresőoptimalizálás / SEO és egyéb tudásbázis, fogalomtár / Közmondások programozási nyelveken (vicc)

Közmondások programozási nyelveken (vicc)

Közmondások programozási nyelveken:

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

--------------------------------------------------------------------------------

{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ásnak 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
F9 (Run)

Result:

Disznó Won.
Disznó Won.
Lúd Won.

 

 


Formátumok


A dokumentum megtekinthető az alábbi formátumokban is:
- Microsoft Word Document formátum: http://maxeline.hu/d1503-Kzmondsok-programozsi-nyelveken-vicc-.doc




Megrendelés, információ,
kapcsolat, elérhetőség


Nyomtatóbarát változat


Ugrás az oldal tetejéreUgrás az oldal tetejére  |  Címlap   |  Honlap térkép, tartalmi áttekintés

Megoldásaink  |  Szolgáltatásaink  |  Díjcsomagjaink  |  Termékeink  |  Magunkról  |  Áraink
Ügyfélszolgálat  |  Letöltések  |  Sajtószoba  |  Kapcsolat  |  Karrier, álláslehetőségek
Cégnév ötletek | Cégnév tippek | Cégnév generáló / cégnév generátor | Cégnevek kitalálása

Adatvédelmi nyilatkozat  |  A MAXELINE.HU honlap látogatása a feltételek elfogadását jelenti
Copyright © 1999-2019 WWW.MAXELINE.HU