Claro! Aqui estão os programas QBasic para os WAPs fornecidos:
Programa 1:Visor 1 15913 999 2 1491625 100 3 50454035 0 ```qbásico
Programa REM para exibição 1 15913 999 2 1491625 100 3 50454035 0
'Declarar Variáveis
Números DIM()
num =0
'Inicializa o array com valores
Números (0) =1
Números (1) =15913
Números (2) =999
Números (3) =2
Números (4) =1491625
Números (5) =100
Números (6) =3
Números (7) =50454035
Números (8) =0
'Mostra os elementos do array
FOR num =0 TO UBound (Números)
IMPRIMIR Números (num);
PRÓXIMO número
'Terminar o programa
FIM
```
Programa 2:Exibição 1x^2 + 2x^3 + 3x^4 + ... + 9x^10 =? ```qbásico
Programa REM para exibir 1x ^ 2 + 2x ^ 3 + 3x ^ 4 + ... + 9x ^ 10 =?
'Declarar Variáveis
Coeficientes DIM(10) 'Mantém coeficientes do polinômio
DIM Powers(10) 'Mantém potências de x correspondentes a coeficientes
total =0 'Manterá a soma do polinômio
i =0 'Contador de loops
'Inicializar coeficientes e potências
PARA i =0 A 10
Coeficientes (i) =i + 1
Potências (i) =i + 2
PRÓXIMO eu
'Calcule a soma
PARA i =0 A 10
total =total + Coeficientes (i) * x ^ Potências (i)
PRÓXIMO eu
'Mostra a soma
PRINT "Soma do polinômio:"; total
'Terminar o programa
FIM
```
Observe que o segundo programa assume a variável
x está definido e tem algum valor. Se você quiser que o programa funcione para diferentes valores de
x , você precisará solicitar ao usuário que insira o valor de
x e armazene-o em uma variável.
