Säker! Här är QBasic-programmen för de givna WAP:erna:
Program 1:Display 1 15913 999 2 1491625 100 3 50454035 0
```qbasic
REM-program att visa 1 15913 999 2 1491625 100 3 50454035 0
'Deklarera variabler
DIM-nummer()
num =0
'Initiera arrayen med värden
Tal(0) =1
Numbers(1) =15913
Numbers(2) =999
Tal(3) =2
Numbers(4) =1491625
Tal(5) =100
Tal(6) =3
Numbers(7) =50454035
Tal(8) =0
'Visa arrayelementen
FÖR num =0 TO UBound(tal)
PRINT Numbers(antal);
NÄSTA num
'Avsluta programmet
AVSLUTA
```
Program 2:Display 1x^2 + 2x^3 + 3x^4 + ... + 9x^10 =?
```qbasic
REM-program för att visa 1x^2 + 2x^3 + 3x^4 + ... + 9x^10 =?
'Deklarera variabler
DIM Coefficients(10) 'Innehåller koefficienter för polynomet
DIM Powers(10) 'Innehåller potenser av x som motsvarar koefficienter
total =0 'Kommer att hålla summan av polynomet
i =0 'Slingräknare
'Initiera koefficienter och potenser
FÖR i =0 TILL 10
Koefficienter(i) =i + 1
Potens(i) =i + 2
NÄSTA i
'Beräkna summan
FÖR i =0 TILL 10
total =total + Koefficienter(i) * x ^ Potenser(i)
NÄSTA i
'Visa summan
PRINT "Summa av polynomet:"; total
'Avsluta programmet
AVSLUTA
```
Observera att det andra programmet antar variabeln x är definierad och har ett visst värde. Om du vill att programmet ska fungera för olika värden på x måste du uppmana användaren att ange värdet x och lagra den i en variabel.
