Infinity-Profan

Français

HofK

Besonders effizient sommes oftmals polymorphe Prozeduren.
cela funktioniert chez Infinity-Profan entier simple.

Gestern am 24.02. schrieb je encore:
_________________________________________________________
si ensuite irgendwann encore un Sonderzeichen pour var( ) comment °a übrigbleiben sollte wäre es superzumquadrat!
_________________________________________________________

et aujourd'hui déjà konnte je var(a) par °a ersetzen!

Kompilieren Marque Séparation


// polymorphe Procédure

imprimer poly 8  3  
imprimer poly "seulement cet Zeichenkette wurde transfert!" 
imprimer poly "Text avec numéro"  7 
imprimer poly "Text avec numéro"  2.71 
imprimer poly "Text-numéro-Wahrheitswert " 1998  vrai
imprimer poly 2  4  2.8    // aucun gültige Parameterliste pour poly

proc poly a b c 
  //  Prüfung Typ bzw. quelle paramètre vorhanden
  si °a=="long" && °b=="long" && c==null
    return "long-long-zéro-> cela Ergebnis a-2*b ist: " + (a-2*b) 
  elseif °a=="string" && b==null && c==null    
    return a
  elseif °a=="string" && (°b=="long" || °b=="float") && c==null
    si °b=="long"
      return "Übergabe: 1. paramètre Zeichenkette, 2. paramètre ganze numéro"
    endif
    si °b=="float"
      return "Übergabe: 1. Param. ist Zeichenkette, 2. paramètre Dezimalzahl"
    endif
   elseif °a=="string" && (°b=="long" || °b=="float") && °c=="bool"
     return "Parameterübergabe: 1. Zeichenkette, 2. numéro, 3. Wahrheitswert"
  d'autre
    return "sûrement falsche paramètre angegeben ??? "       
  endif  
endproc