|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.11.2022, 14:17 | #1 |
Новичок
Джуниор
Регистрация: 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) ? |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
неверное значение даты при выборке | 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 |