Sikker! Her er QBasic-programmene for de gitte WAP-ene:

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

```qbasic

REM-program for å vise 1 15913 999 2 1491625 100 3 50454035 0

'Deklarer variabler

DIM-numre()

tall =0

'Initialiser matrisen med verdier

Tall(0) =1

Tall(1) =15913

Tall(2) =999

Tall(3) =2

Numbers(4) =1491625

Tall(5) =100

Tall(6) =3

Numbers(7) =50454035

Tall(8) =0

'Vis array-elementene

FOR num =0 TIL UBound(tall)

PRINT Numbers(antall);

NESTE num

«Avslutt programmet

SLUTT

```

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

```qbasic

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

'Deklarer variabler

DIM Coefficients(10) 'Inneholder koeffisientene til polynomet

DIM Powers(10) 'Har potenser av x tilsvarende koeffisienter

total =0 'Vil holde summen av polynomet

i =0 'Sløyfeteller

'Initialiser koeffisienter og potenser

FOR i =0 TIL 10

Koeffisienter(i) =i + 1

Potenser(i) =i + 2

NESTE i

'Regn ut summen

FOR i =0 TIL 10

total =total + koeffisienter(i) * x ^ potenser(i)

NESTE i

'Vis summen

SKRIV UT "Summen av polynomet:"; total

«Avslutt programmet

SLUTT

```

Merk at det andre programmet antar variabelen x er definert og har en viss verdi. Hvis du vil at programmet skal fungere for forskjellige verdier av x , må du be brukeren om å angi verdien x og lagre den i en variabel.