Question

For13°. Дано целое число N (> 0). Найти значение выражения1.1 – 1.2 + 1.3 – …(N слагаемых, знаки чередуются). Условный оператор не использовать.ЧЕРЕЗ БЭЙСИК ЖЕЛАТЕЛЬНО

Answer 1

CLS
a:
INPUT n
IF n < 1 OR INT(n) <> n THEN GOTO a
DIM a(n)
a(1) = 1.1
s = a(1)
FOR i = 2 TO n
a(i) = (ABS(a(i - 1)) + .1) * (-1) ^ (i + 1)
s = s + a(i)
NEXT i
PRINT s

Answer 2

Программа на языке Бэйсик для решения этой задачи может выглядеть следующим образом:

INPUT "Введите целое число N: ", N
sum = 0
sign = 1
FOR i = 1 TO N
    sum = sum + sign * 1.1
    sign = -sign
    sum = sum + sign * 1.2
    sign = -sign
    sum = sum + sign * 1.3
    sign = -sign
NEXT i
PRINT "Значение выражения: "; sum

Эта программа сначала запрашивает у пользователя целое число N, затем в цикле проходит через N итераций, в каждой из которых добавляет к переменной sum значение, соответствующее текущему слагаемому с учетом знака. Затем программа выводит итоговое значение выражения.