Sikker! Her er QBasic-programmerne til de givne WAP'er:

Program 1:Display 1 15913 999 2 1491625 100 3 50454035 0

```qbasic

REM-program til visning 1 15913 999 2 1491625 100 3 50454035 0

'Deklarer variabler

DIM-numre()

antal =0

'Initialiser arrayet med værdier

Tal(0) =1

Tal(1) =15913

Tal(2) =999

Tal(3) =2

Numbers(4) =1491625

Tal(5) =100

Tal(6) =3

Tal(7) =50454035

Tal(8) =0

'Vis array-elementerne

FOR num =0 TIL UBound(tal)

PRINT numre(antal);

NÆSTE nummer

'Afslut programmet

ENDE

```

Program 2:Display 1x^2 + 2x^3 + 3x^4 + ... + 9x^10 =?

```qbasic

REM-program til at vise 1x^2 + 2x^3 + 3x^4 + ... + 9x^10 =?

'Deklarer variabler

DIM Coefficients(10) 'Indeholder koefficienter for polynomiet

DIM Powers(10) 'Indeholder potenser af x svarende til koefficienter

total =0 'Vil holde summen af ​​polynomiet

i =0 'Sløjfetæller

'Initialiser koefficienter og potenser

FOR i =0 TIL 10

Koefficienter(i) =i + 1

Potenser(i) =i + 2

NÆSTE i

'Beregn summen

FOR i =0 TIL 10

total =total + Koefficienter(i) * x ^ Potenser(i)

NÆSTE i

'Vis summen

PRINT "Sum af polynomiet:"; total

'Afslut programmet

ENDE

```

Bemærk, at det andet program antager variablen x er defineret og har en vis værdi. Hvis du ønsker, at programmet skal arbejde for forskellige værdier af x , skal du bede brugeren om at indtaste værdien x og gem det i en variabel.