Перевод из 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д