Помогите мне, ПОЖАЛУЙСТА ОТВЕТИТЬ НА ВОПРОС!!! ОЧЕНЬ СССРРРРОООЧЧЧЧЧННООО!!!!

давненько не брал я в руки шашек.. . если все доп. данные вводятся с клавиатуры, то, по-моему как-то вот так:
№1
CLS
INPUT "Input a: ", a
INPUT "Input b: ", b
FOR i = 1 TO 10
INPUT "Input point: ", x
IF (x >= a AND x <= b) THEN
PRINT x - LOG(x) / LOG(2)
ELSE
i = i - 1
END IF
NEXT

№2
CLS
INPUT "Input a:", a
INPUT "Input b:", b
INPUT "Input c:", c
d = b * b - 4 * a * c
PRINT "D="
LOCATE 4, 3
PRINT d
IF d < 0 THEN
PRINT "No submissions"
ELSE
x1 = (b - SQR(d)) / (2 * a)
x2 = (b + SQR(d)) / (2 * a)
PRINT "x1="
LOCATE 5, 4
PRINT x1
PRINT "x2="
LOCATE 6, 4
PRINT x2
END IF
END

№3
CLS
INPUT "Input a:", a
INPUT "Input b:", b
INPUT "Input c:", c
d = b * b - 4 * a * c
PRINT "D="
LOCATE 4, 3
PRINT d
IF d < 0 THEN
PRINT "No submissions"
ELSE
x1 = (b - SQR(d)) / (2 * a)
x2 = (b + SQR(d)) / (2 * a)
IF x1 >= 0 THEN
PRINT "x1="
LOCATE 5, 4
PRINT -1 * SQR(x1)
PRINT "x2="
LOCATE 6, 4
PRINT SQR(x1)
IF x2 >= 0 THEN
PRINT "x3="
LOCATE 7, 4
PRINT -1 * SQR(x2)
PRINT "x4="
LOCATE 8, 4
PRINT SQR(x2)
ELSE
END IF
ELSE
IF x2 >= 0 THEN
PRINT "x1="
LOCATE 5, 4
PRINT -1 * SQR(x2)
PRINT "x2="
LOCATE 6, 4
PRINT SQR(x2)
ELSE
END IF
END IF
END IF
END

№4 не понял, просто прямоугольник со сторонами 4n и 6n? О_о
CLS
SCREEN 12
LINE (50, 60)-(210, 300), 5, B

№5
CLS
INPUT "Input x:", x
INPUT "Input y:", y
IF x * y < 0 THEN
PRINT "Unable to calculate"
ELSE
IF 2 * x * x + 2 / (7 * y) <> 0 THEN
PRINT "z="
LOCATE 3, 3
PRINT (SQR(x * y) + 1 / 4) / (2 * x * x + 2 / (7 * y))
ELSE
PRINT "Unable to calculate"
END IF
END IF

ЗЫ если что-то не понятно или не верно - аська ждет 365665972, если с антиспамом проблемы - ответ знает гугль

Жесткач сложные задачи какие Оо

Нифига себе вам задачки задают на бейсике!!!

Елки) Иди на форум программеров. Тебе там точно помогут. Есть специальные разделы для начинающих