XProfan

WindowTitle "Zeilenvektor-Eingabe"
' Copyleft (CL) 2013-02 by P.Specht, Vienna/Austria
AppendMenuBar 10,"Trennersymbol bei Eingabe: Leerzeichen "+\
"oder Komma ',' - Ende mit return oder ]+return"
Randomize:font 2:Cls rnd(8^8):Set("decimals",15)
Declare n&,v$,v$[],v![],xp&

REPEAT

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

    while instr("  ",v$)

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

    endwhile

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

    if len(v$[0])>0

        n&=sizeof(v$[])

        whileloop 0,n&-1

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

        endwhile

        whileloop 0,n&-1

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

        endwhile

        clear v$[]

    endif

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

UNTIL 0