QBasic. Помогите, пожалуйста! Дано вещественное число A и целое число N>0. Вывести...

Question

QBasic. Помогите, пожалуйста! Дано вещественное число A и целое число N>0. Вывести значение ряда 1 – A + A^2 – A^3 + ... + (–1)^nA^n.

Answer 1

DIM A#, N%, S#
CLS
INPUT "A = ", A
INPUT "N = ", N
FOR i = 0 TO N
   S = S + (-1) ^ i * (A ^ i)
NEXT i
PRINT "S = ", S
END

Comments

Цикл начинается с 2, значит, в S нужно занести то, что было до A^2. А до него было "1 - А". Тогда нужно не "S=A", а "S=1-A". Так ведь? А еще проще вообще эту строчку не писать, а в цикл начать с нуля: FOR i = 0 TO N, да?

---

Заметил бы "1-" на другой строке - так было бы...

---

Ясно)))