Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.11.2022, 14:17   #1
Vasya_OK
Новичок
Джуниор
 
Регистрация: 17.03.2018
Сообщений: 1
По умолчанию ABS() дает неверное значение

Здравствуйте, пишу простенькую программу на GPSS. Условие:
"Т.А. Шанс живет в Лас-Вегасе. Ежедневно перед работой
он заходит в соседний ресторан и играет в «тройку». В этой игре
игрок подбрасывает многократно монету до тех пор, пока
разность между числом выпавших «гербов» и «решек» не станет
равна трем. За каждый бросок монеты игрок платит один доллар,
но при удачном исходе кона игры он получает 8 долларов.
Каждое утро Т.А. Шанс откладывает 10 долларов для этой игры
и играет в нее до тех пор, пока либо не проиграет все деньги,
отложенные на игру, либо не завершит одну партию.
Оценить вероятность того, будет ли Шанс в выигрыше за
неделю в 5 рабочих дней." В инете решения не нашел (может кто знает решение
- эта задача известная). Поэтому сам написал GPSS программу. Вот она:
;SHANS1
DIFF VARIABLE ABS(V$ORE-V$RES)
BAL VARIABLE ABS(V$TOT-V$BONUS)
TRY GENERATE 1
TRANZ SAVEVALUE TOT+,1
INP TRANSFER .5,OREL,RESH
RESH SAVEVALUE RES+,1
TRANSFER ,RAZN
OREL SAVEVALUE ORE+,1
RAZN SAVEVALUE DIF,DIFF
TEST GE X$DIF,3,TRY
SAVEVALUE BONUS+,8
SAVEVALUE BALAN,BAL
SAVEVALUE RES,0
SAVEVALUE ORE,0
TEST GE BALAN,10,TRY
TERMINATE 1
START 50
Но при пошаговом прогоне переменная DIFF = VARIABLE ABS(V$ORE-V$RES) сразу принимает
значение
10000.0 хотя к этому времени RES=1 и ORE = 0. То есть ABS(V$ORE-V$RES) выдает неверное
значение.
Кто знает, почему так происходит? И как получить верное значение ABS(V$ORE-V$RES) ?
Vasya_OK вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
неверное значение даты при выборке hunter03 SQL, базы данных 1 10.10.2013 23:49
Неверное деление (3/2=1) EnterFix Общие вопросы C/C++ 16 02.10.2012 16:25
VBA макрос придаёт неверное значение ячейке 4istii_listo4ek Microsoft Office Excel 4 15.10.2010 21:39
Простая арифметическая функция выдает неверное значение delphi Inqui Помощь студентам 0 26.05.2010 14:28