XProfan

Título de la ventana "Zeilenvektor-Eingabe"
' Copyleft (CL) 2013-02 by P.Pájaro carpintero, Vienna/Austria
AppendMenuBar 10,"Trennersymbol en Eingabe: Leerzeichen "+\
"oder Komma ',' - Ende con volver oder ]+return"
Selección aleatoria:font 2:Cls rnd(8^8):Conjunto("decimals",15)
Declarar n&,v$,v$[],v![],xp&

REPEAT

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

    mientras que instr("  ",v$)

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

    endwhile

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

    if len(v$[0])>0

        n&=sizeof(v$[])

        whileloop 0,n&-1

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

        endwhile

        whileloop 0,n&-1

            imprimir format$("%g",v![&Loop]);
            caso &Loop<(n&-1):imprimir ",";

        endwhile

        clear v$[]

    endif

    imprimir "] "+mkstr$(" ",76-%pos)
    imprimir " ";n&,"Elemente "
    '  v![&Loop] enthält el Vektor, n&=Anzahl Elemente
    waitinput 10000

UNTIL 0