XProfan

Titre de la fenêtre "Zeilenvektor-Eingabe"
' Copyleft (CL) 2013-02 by P.Specht, Vienna/Austria
AppendMenuBar 10,"Trennersymbol chez Eingabe: Leerzeichen "+\
"oder Komma ',' - Ende avec return ou bien ]+return"
Randomiser:font 2:Cls rnd(8^8):Set("decimals",15)
Déclarer n&,v$,v$[],v![],xp&

REPEAT

    n&=0
    clear v![]
    imprimer " Vektor v= [';
    xp&=%pos-1
    input v$
    v$=translate$(v$,' ,',' . ')
    v$=translate$(v$,',',' ')
    v$=$ Trim(v$)
    locate %csrlin-1,xp&
    v$=translate$(v$,']",»)

    tandis que instr("  ",v$)

        v$=translate$(v$,"  "," ")

    endwhile

    clear v$[]
    v$[]=explode(v$," ")
    clear v$
    imprimer "[";

    si len(v$[0])>0

        n&=sizeof(v$[])

        whileloop 0,n&-1

            v![&Boucle]=val(v$[&Boucle])

        endwhile

        whileloop 0,n&-1

            imprimer format$("%g",v![&Boucle]);
            cas &Boucle<(n&-1):imprimer »;

        endwhile

        clear v$[]

    endif

    imprimer "] "+mkstr$(" ",76-%pos)
    imprimer " ";n&,"Elemente "
    '  v![& Loop] contient den Vektor, n&=Anzahl Elemente
    waitinput 10000

UNTIL 0