Új hozzászólás Aktív témák

• #6478 sonar addikt

  Új Válasz 2009-05-02 21:44:37 #6478

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  sonar

  addikt

  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) < TimeToInt(StrToTime("06:00:00")) Then
  AddToList(UserLoggedIn.FoundItems,Gold);
  
  {Nézd meg az anyját, vedd el a lányát}
  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<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, Diszno, 60, 1 );
  end.
  
  F9 (Run)
  
  Result:
  
  Disznó Won.
  Disznó Won.
  Lúd Won.

  A tudást mástól kapjuk, a siker a mi tehetségünk - Remember: Your life – Your choices!

Új hozzászólás Aktív témák