Sicher! Hier sind die QBasic-Programme für die angegebenen WAPs:
Programm 1:Anzeige 1 15913 999 2 1491625 100 3 50454035 0
„qbasic
REM-Programm zur Anzeige von 1 15913 999 2 1491625 100 3 50454035 0
'Variablen deklarieren
DIM-Nummern()
Anzahl =0
'Initialisieren Sie das Array mit Werten
Zahlen(0) =1
Zahlen(1) =15913
Zahlen(2) =999
Zahlen(3) =2
Zahlen(4) =1491625
Zahlen(5) =100
Zahlen(6) =3
Zahlen(7) =50454035
Zahlen(8) =0
'Zeigen Sie die Array-Elemente an
FOR num =0 TO UBound(Zahlen)
PRINT Numbers(num);
NÄCHSTE Num
„Beenden Sie das Programm.“
ENDE
„
Programm 2:Anzeige 1x^2 + 2x^3 + 3x^4 + ... + 9x^10 =?
„qbasic
REM-Programm zur Anzeige von 1x^2 + 2x^3 + 3x^4 + ... + 9x^10 =?
'Variablen deklarieren
DIM Coefficients(10) 'Enthält Koeffizienten des Polynoms
DIM Powers(10) 'Enthält Potenzen von x entsprechend den Koeffizienten
total =0 'Enthält die Summe des Polynoms
i =0 'Schleifenzähler
'Koeffizienten und Potenzen initialisieren
FÜR i =0 BIS 10
Koeffizienten(i) =i + 1
Potenzen(i) =i + 2
WEITER i
„Berechnen Sie die Summe.“
FÜR i =0 BIS 10
total =total + Koeffizienten(i) * x ^ Potenzen(i)
WEITER i
„Zeige die Summe an.“
PRINT "Summe des Polynoms:"; gesamt
„Beenden Sie das Programm.“
ENDE
„
Beachten Sie, dass das zweite Programm die Variable x annimmt ist definiert und hat einen gewissen Wert. Wenn Sie möchten, dass das Programm für verschiedene Werte von x funktioniert , müssen Sie den Benutzer auffordern, den Wert von x einzugeben und speichere es in einer Variablen.
