Если кто еще не забыл QBasic прошу помочь

← →
blackweber © (2002-11-24 18:07) [0]

Знакомая попросила написать прогу для нахождения значения функции заданной системой уравнений
Вот что у меня получилось
CLS
DO
INPUT "Enter a number less than 10: ", X
IF X < 10 THEN EXIT DO ELSE PRINT X; "out of range"
LOOP
IF X <= -5 THEN Y = 2.6 * EXP(2 * LOG(ABS(X))) + 3 * SQR(ABS(X - 4.5)) ELSE
IF X < 10 AND X >= 0 THEN Y = (EXP(3 * LOG(X)) - 1) * LOG(2.8 * X) ELSE
IF X < 0 AND X > -5 THEN Y = (3.4 * X - 7.25) * EXP(2 * LOG(ABS(X)))
PRINT "The result is "; Y;

а вот блок-схема если чего не так подскажите.
http://members.lycos.co.uk/blackweber/hpbimg/hell.gif

← →
blackweber © (2002-11-24 18:08) [1]

Думаю систему указывать не нужно

← →
Grifon © (2002-11-24 18:35) [2]

А че не работает?

← →
blackweber © (2002-11-24 19:55) [3]

Работает, но это первая программа спустя с 1992 года, со Spectrum`а короче. Вот и подумал может чего не так.

← →
TTCustomDelphiMaster © (2002-11-24 20:04) [4]

Алгоритм не правельный.
Наверное так
CLS
INPUT "Enter a number less then 10: ", x
IF (-5 < x) AND (x < 0) THEN
y = (3.4 * x - 7.25) * EXP(2 * LOG(ABS(x)))
ELSE
IF x <= 5 THEN
y = 2.6 * EXP(2)
ELSE
IF x < 10 THEN
y = EXP(3 * LOG(x))
ELSE
PRINT "out of range"
GOTO 10
END IF
END IF
END IF
PRINT y
10 END

Понял
Вместо IF x <= 5 THEN написать IF x <= -5 THEN

Твоя прога неверно считает. А моя верно.

Если кто еще не забыл QBasic прошу помочь Найти похожие ветки