задача - вычислить функцию, заданную системой уравнений (qbasic)

[СТУДЕНТ-БЕДАЛАГА]

такая проблема что в print "2" l всегда выдает 2
1 REM sistema uravneni'
2 INPUT "vvedite x"; x
3 INPUT "vvedite a"; a
4 INPUT "vvedite b"; b
5 IF x < 2 THEN d = COS(x) ^ 2 + x ^ 3
6 PRINT "1"; d
7 IF 3 <= x <= 5 THEN l = ln(x) + 2 ELSE l = 0
8 PRINT "2"; l
9 IF x > 7 THEN k = a * b * ABS(x)
10 PRINT "3"; k
11 END
ввожу любое число , ответ print "2" всегда = 2

[Serge_Bliznykov]

7 IF 3 <= x <= 5 THEN l = ln(x) + 2 ELSE l = 0

так нельзя

не помню qbasic, но попробуйт так:

7 IF (3 <= x) and (x <= 5) THEN l = ln(x) + 2 ELSE l = 0

[СТУДЕНТ-БЕДАЛАГА]

Сообщение от Serge_Bliznykov

так нельзя

не помню qbasic, но попробуйт так:

7 IF (3 <= x) and (x <= 5) THEN l = ln(x) + 2 ELSE l = 0

Спасибо ОГРОМНОЕ

[ZX Spectrum-128]

7 IF x>=3 And  x<= 5 THEN l = log(x) + 2 ELSE l = 0

Какая у вас версия Basic?

[СТУДЕНТ-БЕДАЛАГА]

незнаю версия это или нет QB 64 4.1

[ZX Spectrum-128]

Ясно, очередная as is поделка