Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.16;
Скачать: CL | DM;

Вниз

Если кто еще не забыл 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


 
TTCustomDelphiMaster ©   (2002-11-24 20:10) [5]

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


 
blackweber ©   (2002-11-24 23:31) [6]

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



Страницы: 1 вся ветка

Текущий архив: 2002.12.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
3-51586
nick-from
2002-11-26 23:32
2002.12.16
BOOLEAN


3-51600
Ruf
2002-11-27 18:46
2002.12.16
Летит таблица


1-51754
vuk
2002-12-03 21:39
2002.12.16
Кто-нибудь работал с двумерными штрихкодами PDF417?


1-51787
Roman_Tutov
2002-12-04 12:53
2002.12.16
Как проверить активен-ли процесс


14-51931
Axis_of_Evil
2002-11-25 15:32
2002.12.16
Lyrics