|
Bien sûr! Voici les programmes QBasic pour les WAP donnés :
Programme 1 :Affichage 1 15913 999 2 1491625 100 3 50454035 0
```qbasique
Programme REM à afficher 1 15913 999 2 1491625 100 3 50454035 0
'Déclarer les variables
Numéros DIM()
num =0
'Initialiser le tableau avec des valeurs
Nombres (0) =1
Nombres(1) =15913
Nombres(2) =999
Nombres(3) =2
Nombres(4) =1491625
Nombres (5) =100
Nombres (6) =3
Nombres (7) =50454035
Nombres (8) =0
'Afficher les éléments du tableau
POUR num =0 À UBound(Nombres)
IMPRIMER les numéros (num);
Numéro SUIVANT
'Fin du programme
FIN
```
Programme 2 :Afficher 1x^2 + 2x^3 + 3x^4 + ... + 9x^10 =?
```qbasique
Programme REM pour afficher 1x^2 + 2x^3 + 3x^4 + ... + 9x^10 =?
'Déclarer les variables
Coefficients DIM(10) 'Détient les coefficients du polynôme
DIM Powers(10) 'Détient les puissances de x correspondant aux coefficients
total =0 'Détiendra la somme du polynôme
i =0 'Compteur de boucle
'Initialiser les coefficients et les puissances
POUR je =0 À 10
Coefficients(i) =i + 1
Pouvoirs(i) =i + 2
SUIVANT je
'Calculez la somme
POUR je =0 À 10
total =total + Coefficients(i) * x ^ Puissances(i)
SUIVANT je
'Afficher la somme
PRINT "Somme du polynôme :"; total
'Fin du programme
FIN
```
Notez que le deuxième programme suppose la variable x est défini et a une certaine valeur. Si vous souhaitez que le programme fonctionne pour différentes valeurs de x , vous devrez inviter l'utilisateur à saisir la valeur de x et stockez-le dans une variable.
|
