Infinity-Profan

Español

HofK

Besonders effizient son oftmals polymorphe Prozeduren.
Das funktioniert en Infinity-Profano bastante simplemente.

Gestern al 24.02. schrieb Todavía:
_________________________________________________________
Wenn entonces irgendwann todavía una Sonderzeichen para var( ) como °a übrigbleiben debería wäre lo superzumquadrat!
_________________________________________________________

y heute ya podría Yo var(a) por °a sustituir!

Kompilieren Marca Separación


// polymorphe Procedimiento

imprimir poly 8  3  
imprimir poly "Nur esta Zeichenkette wurde transferencia!" 
imprimir poly "Texto con Zahl"  7 
imprimir poly "Texto con Zahl"  2.71 
imprimir poly "Texto-Zahl-Wahrheitswert " 1998  true
imprimir poly 2  4  2.8    // no gültige Parameterliste para poly

proc poly a b c 
  //  Prüfung Typ o. welche Parámetro disponible
  if °a=="long" && °b=="long" && c==null
    volver "long-long-null-> Das Ergebnis a-2*b es: " + (a-2*b) 
  elseif °a=="cadena" && b==null && c==null    
    volver a
  elseif °a=="cadena" && (°b=="long" || °b=="float") && c==null
    if °b=="long"
      volver "Übergabe: 1. Parámetro Zeichenkette, 2. Parámetro todo Zahl"
    endif
    if °b=="float"
      volver "Übergabe: 1. Param. es Zeichenkette, 2. Parámetro Dezimalzahl"
    endif
   elseif °a=="cadena" && (°b=="long" || °b=="float") && °c=="bool"
     volver "Parameterübergabe: 1. Zeichenkette, 2. Zahl, 3. Wahrheitswert"
  más
    volver "Seguro falsche Parámetro angegeben ??? "       
  endif  
ENDPROC