Перевод из Visual Basic в qBasic - VB

Узнай цену своей работы

Формулировка задачи:

Не получается заменить чем-либо логический тип переменной, отказывается работать. Boolean. Пишет: Тип не определён.

Решение задачи: «Перевод из Visual Basic в qBasic»

textual
Листинг программы
DIM i AS INTEGER, summ AS SINGLE, t AS SINGLE
DIM x AS INTEGER, f AS INTEGER
 
INPUT t
summ = 0
i = 1
x = -1
f = 0
DO WHILE f = 0
   x = x * (-1)
   summ = summ + x / (2 * i - 1)
   IF t > ABS(x / (2 * i - 1)) THEN
     f = 1
   ELSE
     i = i + 1
   END IF
LOOP
PRINT summ
PRINT i
END

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.75 из 5