Μπορεί κάποιος να τα κάνει αυτάΜπορούν αυτά τα WAP σε qbasic για εμφάνιση 1 15913 999 2 1491625 100 3 50454035 0 4 1x2 συν 2x3 3x4 9x10 να βρουν το;

Σίγουρος! Ακολουθούν τα προγράμματα QBasic για τα δεδομένα WAP:

Πρόγραμμα 1:Εμφάνιση 1 15913 999 2 1491625 100 3 50454035 0

`` qbasic

Πρόγραμμα REM για εμφάνιση 1 15913 999 2 1491625 100 3 50454035 0

«Δήλωση μεταβλητών

Αριθμοί DIM()

αριθμός =0

'Εκκινήστε τον πίνακα με τιμές

Αριθμοί(0) =1

Αριθμοί(1) =15913

Αριθμοί(2) =999

Αριθμοί(3) =2

Αριθμοί(4) =1491625

Αριθμοί(5) =100

Αριθμοί(6) =3

Αριθμοί(7) =50454035

Αριθμοί(8) =0

«Εμφάνιση των στοιχείων του πίνακα

FOR num =0 TO UBound(Αριθμοί)

PRINT Numbers(number);

ΕΠΟΜΕΝΟ αρ

«Τερματίστε το πρόγραμμα

ΤΕΛΟΣ

```

Πρόγραμμα 2:Εμφάνιση 1x^2 + 2x^3 + 3x^4 + ... + 9x^10 =?

`` qbasic

Πρόγραμμα REM για εμφάνιση 1x^2 + 2x^3 + 3x^4 + ... + 9x^10 =?

«Δήλωση μεταβλητών

DIM Coefficients(10) «Διατηρεί τους συντελεστές του πολυωνύμου

DIM Powers(10) «Διατηρεί δυνάμεις x που αντιστοιχούν σε συντελεστές

σύνολο =0 'Θα κρατήσει το άθροισμα του πολυωνύμου

i =0 'Μετρητής βρόχου

«Αρχικοποιήστε τους συντελεστές και τις δυνάμεις

ΓΙΑ i =0 ΕΩΣ 10

Συντελεστές(i) =i + 1

Δυνάμεις(i) =i + 2

ΕΠΟΜΕΝΟ i

«Υπολογίστε το άθροισμα

ΓΙΑ i =0 ΕΩΣ 10

σύνολο =σύνολο + Συντελεστές(i) * x ^ Δυνάμεις(i)

ΕΠΟΜΕΝΟ i

«Εμφάνιση του αθροίσματος

PRINT "Άθροισμα του πολυωνύμου:"; σύνολο

«Τερματίστε το πρόγραμμα

ΤΕΛΟΣ

```

Σημειώστε ότι το δεύτερο πρόγραμμα υποθέτει τη μεταβλητή x ορίζεται και έχει κάποια αξία. Εάν θέλετε το πρόγραμμα να λειτουργεί για διαφορετικές τιμές του x , θα χρειαστεί να ζητήσετε από τον χρήστη να εισαγάγει την τιμή x και αποθηκεύστε το σε μια μεταβλητή.